What happened?
When writing in org-mode, I always receive the warning (org-element) upon saving. It pops up automatically and causes lagging.
What did you expect to happen?
No more warnings when saving org files.
Steps to reproduce
- SPC n r d t open org journal file
- type any word, save
- popping warning as follows
Warning (org-element): org-element--cache: Unregistered buffer modifications detected (175 != 176). Resetting.
If this warning appears regularly, please report the warning text to Org mode mailing list (M-x org-submit-bug-report).
The buffer is: 2024-07-26.org
Current command: evil-write
Backtrace:
" backtrace-to-string(nil)
(progn (backtrace-to-string (backtrace-get-frames 'backtrace)))
(if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames 'backtrace))))
(format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size (buffer-size) (buffer-name (current-buffer)) this-command (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames 'backtrace)))))
(let* ((format-string (format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size (buffer-size) (buffer-name (current-buffer)) this-command (if (and (fboundp 'backtrace-get-frames) (fboundp 'backtrace-to-string)) (progn (backtrace-to-string (backtrace-get-frames ...)))))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq 'backtrace org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" (buffer-name ...)) format-string \"\\nBacktrace:\\n \" (mapconcat #'identity (ring-elements org-element--cache-diagnostics-ring) \"\\n \")) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string))))
(progn (let* ((format-string (format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size (buffer-size) (buffer-name (current-buffer)) this-command (if (and (fboundp ...) (fboundp ...)) (progn (backtrace-to-string ...))))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not (eq ... org-element--cache-self-verify))) format-string (prog1 (concat (format \"Warning(%s): \" ...) format-string \"\\nBacktrace:\\n \" (mapconcat ... ... \"\\n \")) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset))
(if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size (buffer-size) (buffer-name (current-buffer)) this-command (if (and ... ...) (progn ...)))) (format-string (if (or (not org-element--cache-diagnostics-ring) (not ...)) format-string (prog1 (concat ... format-string \"\\nBacktrace:\\n \" ...) (setq org-element--cache-diagnostics-ring nil))))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if (or org-element--cache-diagnostics ...) (progn ...)))) (while org-element--cache-sync-requests (progn (setq request (car org-element--cache-sync-requests)) (setq next (nth 1 org-element--cache-sync-requests))) (org-element--cache-process-request request (if next (progn ...)) threshold (if threshold nil time-limit) future-change offset) (progn (setq request (car org-element--cache-sync-requests)) (setq next (nth 1 org-element--cache-sync-requests))) (if next (progn (let* ... ...) (if ... ...) (let* ... ...))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))
(progn (if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size (buffer-size) (buffer-name ...) this-command (if ... ...))) (format-string (if (or ... ...) format-string (prog1 ... ...)))) (if (and (boundp 'org-batch-test) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons (concat \"org-element--cache: \" format-string) org--warnings)) (display-warning '(org-element org-element-cache) (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if ... ...))) (while org-element--cache-sync-requests (progn (setq request ...) (setq next ...)) (org-element--cache-process-request request (if next ...) threshold (if threshold nil time-limit) future-change offset) (progn (setq request ...) (setq next ...)) (if next (progn ... ... ...)) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))
(if (and org-element--cache-sync-requests (or force (org-element--cache-active-p))) (progn (if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* ((format-string (format \"Unregistered buffer modifications detected (%S != ...\" org-element--cache-last-buffer-size ... ... this-command ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (error \"%s\" (concat \"org-element--cache: \" format-string)) (setq org--warnings (cons ... org--warnings)) (display-warning '... (concat \"org-element--cache: \" format-string)))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit (time-add nil org-element-cache-sync-duration))) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn ...)) (while org-element--cache-sync-requests (progn ... ...) (org-element--cache-process-request request ... threshold ... future-change offset) (progn ... ...) (if next ...) (setq org-element--cache-sync-requests ...)))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value)))))))
(save-current-buffer (set-buffer (or (buffer-base-buffer buffer) (or buffer (current-buffer)))) (if (and org-element--cache-sync-requests (or force (org-element--cache-active-p))) (progn (if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (setq org--warnings ...) (display-warning ... ...))) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer))) (let ((time-limit ...)) (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests ...) (while org-element--cache-sync-requests ... ... ... ... ...))) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value (1+ org-element--cache-sync-keys-value))))))))
(progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) (or buffer (current-buffer)))) (if (and org-element--cache-sync-requests (or force (org-element--cache-active-p))) (progn (if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* (... ...) (if ... ... ... ...)) (org-element-cache-reset)) (let ((inhibit-quit t) request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer (progn ...)) (let (...) (catch ... ... ...)) (if org-element--cache-sync-requests (org-element--cache-set-timer buffer) (setq org-element--cache-sync-keys-value ...))))))))
(if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) (or buffer (current-buffer)))) (if (and org-element--cache-sync-requests (or force (org-element--cache-active-p))) (progn (if (/= org-element--cache-last-buffer-size (buffer-size)) (progn (let* ... ...) (org-element-cache-reset)) (let (... request next) (setq org-element--cache-interrupt-C-g-count 0) (if org-element--cache-sync-timer ...) (let ... ...) (if org-element--cache-sync-requests ... ...))))))))
org-element--cache-sync(#<buffer 2024-07-26.org> 177)
(if cached-only nil (org-element--cache-sync (current-buffer) epom))
(if (not (save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil (current-buffer)))) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom)))
(progn (if (not (save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil (current-buffer)))) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom))))
(if (org-element--cache-active-p) (progn (if (not (save-current-buffer (set-buffer (or (buffer-base-buffer nil) (or nil ...))) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom)))))
(let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer (set-buffer (or ... ...)) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom (aref ... 1)))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error \"%s\" ...) (setq org--warnings ...) (display-warning ... ...))) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element (or (= epom ...) (and ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type element t) 'section)) element (org-element-at-point (1+ epom) cached-only)))))
(save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer (set-buffer ...) org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (< epom ...))) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* (... ...) (if ... ... ... ...)) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element (or ... ... ... ...)))) nil (if (not (eq (org-element-type element t) 'section)) element (org-element-at-point (1+ epom) cached-only))))))
(save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not (save-current-buffer ... org-element--cache)) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync ... epom))))) (setq element (if cached-only (if (and (org-element--cache-active-p) (or ... ...)) (progn (org-element--cache-find epom))) (condition-case err (org-element--parse-to epom) ((debug error) (let* ... ...) (org-element-cache-reset) (org-element--parse-to epom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not (and element ...))) nil (if (not (eq ... ...)) element (org-element-at-point (1+ epom) cached-only)))))))
(save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx (or 14 14))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...)))) (progn (set-buffer (let (...) (let* ... ...))))) (setq --mepom (let ((idx (or 0 0))) (let* ((parray ...)) (if parray (let* ... ...) (let* ... ...))))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if (not ...) (org-element-cache-reset) (if cached-only nil ...)))) (setq element (if cached-only (if (and ... ...) (progn ...)) (condition-case err (org-element--parse-to epom) (... ... ... ...)))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to epom)))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only (not ...)) nil (if (not ...) element (org-element-at-point ... cached-only))))))))
(let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let ((idx ...)) (let* (...) (if parray ... ...))) (progn (set-buffer (let ... ...)))) (setq --mepom (let ((idx ...)) (let* (...) (if parray ... ...)))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '(org-element org-element-parser) (format-message \"`org-element-at-point' cannot be used in non-Org b...\" (current-buffer) major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn (if ... ... ...))) (setq element (if cached-only (if ... ...) (condition-case err ... ...))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element ...))) (if (eq (org-element-type element t) 'org-data) nil (if (and cached-only ...) nil (if ... element ...))))))))
(if (org-element-type epom t) epom (setq epom (or epom (point))) (let ((--mepom epom)) (save-excursion (cond ((markerp --mepom) (set-buffer (marker-buffer --mepom))) ((numberp --mepom)) (t (if (let (...) (let* ... ...)) (progn (set-buffer ...))) (setq --mepom (let (...) (let* ... ...))))) (save-excursion (save-restriction (widen) (goto-char (or --mepom (point))) (if (derived-mode-p 'org-mode) nil (display-warning '... (format-message \"`org-element-at-point' cannot be used in non-Org b...\" ... major-mode))) (if (and cached-only (memq this-command org-element--cache-non-modifying-commands)) (progn (setq cached-only nil))) (let (element) (if (org-element--cache-active-p) (progn ...)) (setq element (if cached-only ... ...)) (if (and ... element ...) (progn ...)) (if (eq ... ...) nil (if ... nil ...))))))))
org-element-at-point()
(or element (org-element-at-point))
(let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case (match-string 1) org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((<= (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos (match-beginning 2)) (< pos (match-end 2))) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-element--property :tag element nil nil))) (if (or (not tag) (/= (line-beginning-position) post)) (throw 'objects-forbidden element) (forward-line 0) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and (>= pos ...) (< pos ...)) (narrow-to-region (point) (match-end 0)) (throw 'objects-forbidden element))))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let ((end (match-end 4))) (if (not end) (throw 'objects-forbidden element) (goto-char (match-beginning 4)) (if (looking-at org-element-comment-string) (progn ...)) (if (>= ... end) (throw ... element) (narrow-to-region ... end)))))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg (org-element-contents-begin element)) (cend (org-element-contents-end element))) (if (and cbeg cend (>= pos cbeg) (or (< pos cend) (and ... ...))) (narrow-to-region cbeg cend) (throw 'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ((next (org-element--object-lex restriction))) (if next (progn (if ... ... ...))) (if (or (not next) (> ... pos)) (throw 'exit (or last parent)) (let (... ... ...) (cond ... ... ...))))))))
(save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not (member-ignore-case ... org-element-parsed-keywords)) (throw 'objects-forbidden element)) ((<= (match-end 0) pos) (narrow-to-region (match-end 0) (line-end-position))) ((and (match-beginning 2) (>= pos ...) (< pos ...)) (narrow-to-region (match-beginning 2) (match-end 2))) (t (throw 'objects-forbidden element))) (setq type 'keyword)) ((eq type 'item) (let ((tag (org-element--property :tag element nil nil))) (if (or (not tag) (/= ... post)) (throw 'objects-forbidden element) (forward-line 0) (search-forward tag (line-end-position)) (goto-char (match-beginning 0)) (if (and ... ...) (narrow-to-region ... ...) (throw ... element))))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let ((end ...)) (if (not end) (throw ... element) (goto-char ...) (if ... ...) (if ... ... ...))))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg (org-element-contents-begin element)) (cend (org-element-contents-end element))) (if (and cbeg cend (>= pos cbeg) (or ... ...)) (narrow-to-region cbeg cend) (throw 'objects-forbidden element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ((next ...)) (if next (progn ...)) (if (or ... ...) (throw ... ...) (let ... ...))))))))
(save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let ((case-fold-search t)) (looking-at org-element--affiliated-re)) (cond ((not ...) (throw ... element)) ((<= ... pos) (narrow-to-region ... ...)) ((and ... ... ...) (narrow-to-region ... ...)) (t (throw ... element))) (setq type 'keyword)) ((eq type 'item) (let ((tag ...)) (if (or ... ...) (throw ... element) (forward-line 0) (search-forward tag ...) (goto-char ...) (if ... ... ...)))) ((memq type '(headline inlinetask)) (let ((case-fold-search nil)) (goto-char (org-element-begin element)) (looking-at org-complex-heading-regexp) (let (...) (if ... ... ... ... ...)))) ((memq type '(paragraph table-row verse-block)) (let ((cbeg ...) (cend ...)) (if (and cbeg cend ... ...) (narrow-to-region cbeg cend) (throw ... element)))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let (...) (if next ...) (if ... ... ...))))))))
(catch 'objects-forbidden (save-excursion (save-restriction (widen) (let* ((pos (point)) (element (or element (org-element-at-point))) (type (org-element-type element)) (post (org-element-post-affiliated element))) (cond ((and post (< pos post)) (forward-line 0) (let (...) (looking-at org-element--affiliated-re)) (cond (... ...) (... ...) (... ...) (t ...)) (setq type 'keyword)) ((eq type 'item) (let (...) (if ... ... ... ... ... ...))) ((memq type '...) (let (...) (goto-char ...) (looking-at org-complex-heading-regexp) (let ... ...))) ((memq type '...) (let (... ...) (if ... ... ...))) (t (throw 'objects-forbidden element))) (goto-char (point-min)) (let ((restriction (org-element-restriction type)) (parent element) last) (catch 'exit (while t (let ... ... ...))))))))
org-element-context()
(and t (org-element-context))
(let* ((elem (and t (org-element-context)))) (if elem (let* ((elem-type (car elem)) (elem-end (- (let (...) (let* ... ...)) (1- (let ... ...)))) (link-ignore-p (and (eq elem-type 'link) (or (string-match-p \"[Cc]ite\" ...) (memq ... ...)))) (key-ignore-p (and (eq elem-type 'keyword) (not (memq ... org-hidden-keywords)))) (script-ignore-p (and (or (eq elem-type ...) (eq elem-type ...)) (not (org-element--property :use-brackets-p elem nil nil)) (not (eq org-use-sub-superscripts t))))) (if (and (memq elem-type org-appear-elements) (< (point) elem-end) (not link-ignore-p) (not key-ignore-p) (not script-ignore-p)) elem nil)) nil))
org-appear--current-elem()
(let* ((prev-elem org-appear--prev-elem) (prev-elem-start (let ((idx (or 0 0))) (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...)))))) (current-elem (org-appear--current-elem)) (current-elem-start (let ((idx (or 0 0))) (let* ((parray (and t ...))) (if parray (let* (...) (if ... ... ...)) (let* (...) (cond ... ... ...))))))) (if (and prev-elem org-appear--elem-toggled (not (equal prev-elem-start current-elem-start))) (progn (setq org-appear--elem-toggled nil) (if (not org-appear--timer) (save-excursion (goto-char prev-elem-start) (org-appear--hide-invisible (org-element-context))) (cancel-timer org-appear--timer) (setq org-appear--timer nil)))) (if (and current-elem (or (eq org-appear-trigger 'always) org-appear--do-buffer org-appear--elem-toggled)) (progn (setq org-appear--elem-toggled t) (if (and (eq org-appear-trigger 'always) (> org-appear-delay 0) (not (eq prev-elem-start current-elem-start))) (progn (setq org-appear--timer (run-with-idle-timer org-appear-delay nil #'org-appear--show-with-lock current-elem t)))) (if (not org-appear--timer) (progn (org-appear--show-with-lock current-elem))))) (setq org-appear--prev-elem current-elem) (if (not (eq org-appear-trigger 'manual)) (progn (setq org-appear--do-buffer nil))))
org-appear--post-cmd()
evil-ex-call-command(nil \"w\" nil)
evil-ex(nil)
funcall-interactively(evil-ex nil)
command-execute(evil-ex)
"
System information
Loading data dump...