emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer
@ 2021-11-20 11:30 Christopher M. Miles
  2021-11-20 12:21 ` Ihor Radchenko
  0 siblings, 1 reply; 6+ messages in thread
From: Christopher M. Miles @ 2021-11-20 11:30 UTC (permalink / raw)
  To: Org Mode

[-- Attachment #1: Type: text/plain, Size: 40152 bytes --]


The bellowing error often raised when I region select multiple headlines which contains properties
drawer

#+begin_src org
|<start>*** headline 1
:PROPERTIES:
:kkk:      kkkk2
:END:

,*** headline 2
:PROPERTIES:
:kkk:      kkkk3
:END:
|<end>
#+end_src

(Here the ~|<start>~ and ~|<end>~ represent the region select two headline properties drawer.)

then press =[Tab]= key to indent properties drawers will raise this error:

#+begin_example
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
  >(26723 nil)
  (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin (aref next-request 4)) (org-element-property :begin parent)))
  (if (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin (aref next-request 4)) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset v 4 parent)))
  (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin (aref next-request 4)) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset v 4 parent))))
  (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string (concat (format "org-element-cache diagnostics(%s): " ...) "Reached next request.")) (format-string (format format-string))) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil (setq org-element--cache-diagnostics-ring (make-ring org-element--cache-diagnostics-ring-size))) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin (aref next-request 4)) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset v 4 parent)))) (throw 'quit t))
  (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string (concat ... "Reached next request.")) (format-string (format format-string))) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil (setq org-element--cache-diagnostics-ring ...)) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin (aref next-request 4)) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset v 4 parent)))) (throw 'quit t)))
  (if (org-element--cache-key-less-p key start) nil (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-element-property :cached (aref next-request 4)) (org-element-property :begin (aref next-request 4)) (> (org-element-property :begin ...) (org-element-property :begin parent))) nil (let* ((v next-request)) (aset v 4 parent)))) (throw 'quit t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (= 0 offset) nil (if (>= org-element--cache-diagnostics-level 3) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))))) (org-element--cache-shift-positions data offset)) (let ((begin (org-element-property :begin data))) (while (and parent (<= (org-element-property :end parent) begin)) (setq parent (org-element-property :parent parent))) (cond ((and (not parent) (= 0 offset)) (throw 'quit nil)) ((and parent (or (not (memq ... org-element-greater-elements)) (and (org-element-property :contents-begin parent) (< ... ...)) (and (org-element-property :contents-end parent) (>= ... ...)) (> (org-element-property :end data) (org-element-property :end parent)) (and (org-element-property :contents-end data) (> ... ...)))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (org-element--cache-remove data) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)) (setq node (org-element--cache-root) stack (list nil) leftp t begin -1 continue-flag t)) ((and parent (not (eq parent data)) (let ((p ...)) (or (not p) (< ... ...) (if ... nil ...)))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (if (and (eq 'org-data (org-element-type parent)) (not (eq ... ...))) (progn (let* (... ...) (if ... ... ...)) (org-element-cache-reset) (throw 'quit t))) (org-element-put-property data :parent parent) (let ((s (org-element-property :structure parent))) (if (and s (org-element-property :structure data)) (progn (org-element-put-property data :structure s)))))) (if (and threshold (> begin threshold)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (setq exit-flag t)))))
  (if (and leftp (progn (progn (aref node 0))) (not (org-element--cache-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node (progn (progn (aref node 0))))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (let ((next-request (nth 1 org-element--cache-sync-requests))) (if (and (org-element-property :cached ...) (org-element-property :begin ...) (> ... ...)) nil (let* (...) (aset v 4 parent)))) (throw 'quit t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (= 0 offset) nil (if (>= org-element--cache-diagnostics-level 3) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))))) (org-element--cache-shift-positions data offset)) (let ((begin (org-element-property :begin data))) (while (and parent (<= (org-element-property :end parent) begin)) (setq parent (org-element-property :parent parent))) (cond ((and (not parent) (= 0 offset)) (throw 'quit nil)) ((and parent (or (not ...) (and ... ...) (and ... ...) (> ... ...) (and ... ...))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (org-element--cache-remove data) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)) (setq node (org-element--cache-root) stack (list nil) leftp t begin -1 continue-flag t)) ((and parent (not (eq parent data)) (let (...) (or ... ... ...))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (if (and (eq ... ...) (not ...)) (progn (let* ... ...) (org-element-cache-reset) (throw ... t))) (org-element-put-property data :parent parent) (let ((s ...)) (if (and s ...) (progn ...))))) (if (and threshold (> begin threshold)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (setq exit-flag t))))) (if continue-flag (setq continue-flag nil) (setq node (if (setq leftp (progn (progn (aref node 1)))) (progn (progn (aref node 1))) (car-safe (prog1 stack (setq stack (cdr stack))))))))
  (let* ((data (progn (progn (aref node 2)))) (key (org-element--cache-key data))) (if (and leftp (progn (progn (aref node 0))) (not (org-element--cache-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node (progn (progn (aref node 0))))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (let ((next-request ...)) (if (and ... ... ...) nil (let* ... ...))) (throw 'quit t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (let* ((v request)) (aset v 0 key)) (let* ((v request)) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (= 0 offset) nil (if (>= org-element--cache-diagnostics-level 3) (progn (if (or org-element--cache-diagnostics ...) (progn ...)))) (org-element--cache-shift-positions data offset)) (let ((begin (org-element-property :begin data))) (while (and parent (<= (org-element-property :end parent) begin)) (setq parent (org-element-property :parent parent))) (cond ((and (not parent) (= 0 offset)) (throw 'quit nil)) ((and parent (or ... ... ... ... ...)) (if (or org-element--cache-diagnostics ...) (progn ...)) (org-element--cache-remove data) (let* (...) (aset v 0 key)) (let* (...) (aset v 4 parent)) (setq node (org-element--cache-root) stack (list nil) leftp t begin -1 continue-flag t)) ((and parent (not ...) (let ... ...)) (if (or org-element--cache-diagnostics ...) (progn ...)) (if (and ... ...) (progn ... ... ...)) (org-element-put-property data :parent parent) (let (...) (if ... ...)))) (if (and threshold (> begin threshold)) (progn (if (or org-element--cache-diagnostics ...) (progn ...)) (setq exit-flag t))))) (if continue-flag (setq continue-flag nil) (setq node (if (setq leftp (progn (progn ...))) (progn (progn (aref node 1))) (car-safe (prog1 stack (setq stack ...))))))))
  (while node (let* ((data (progn (progn (aref node 2)))) (key (org-element--cache-key data))) (if (and leftp (progn (progn (aref node 0))) (not (org-element--cache-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node (progn (progn (aref node 0))))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (if (or org-element--cache-diagnostics ...) (progn ...)) (let (...) (if ... nil ...)) (throw 'quit t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if (or org-element--cache-diagnostics ...) (progn ...)) (let* (...) (aset v 0 key)) (let* (...) (aset v 4 parent)) (throw 'org-element--cache-interrupt nil))) (if (= 0 offset) nil (if (>= org-element--cache-diagnostics-level 3) (progn (if ... ...))) (org-element--cache-shift-positions data offset)) (let ((begin (org-element-property :begin data))) (while (and parent (<= ... begin)) (setq parent (org-element-property :parent parent))) (cond ((and ... ...) (throw ... nil)) ((and parent ...) (if ... ...) (org-element--cache-remove data) (let* ... ...) (let* ... ...) (setq node ... stack ... leftp t begin -1 continue-flag t)) ((and parent ... ...) (if ... ...) (if ... ...) (org-element-put-property data :parent parent) (let ... ...))) (if (and threshold (> begin threshold)) (progn (if ... ...) (setq exit-flag t))))) (if continue-flag (setq continue-flag nil) (setq node (if (setq leftp (progn ...)) (progn (progn ...)) (car-safe (prog1 stack ...))))))))
  (let ((start (aref request 0)) (offset (aref request 3)) (parent (aref request 4)) (node (org-element--cache-root)) (stack (list nil)) (leftp t) exit-flag continue-flag) (if (and (not parent) (= 0 offset)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (throw 'quit t))) (while node (let* ((data (progn (progn (aref node 2)))) (key (org-element--cache-key data))) (if (and leftp (progn (progn (aref node 0))) (not (org-element--cache-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node (progn (progn ...)))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-key (not ...)) (progn (if ... ...) (let ... ...) (throw ... t))) (if (or exit-flag (org-element--cache-interrupt-p time-limit)) (progn (if ... ...) (let* ... ...) (let* ... ...) (throw ... nil))) (if (= 0 offset) nil (if (>= org-element--cache-diagnostics-level 3) (progn ...)) (org-element--cache-shift-positions data offset)) (let ((begin ...)) (while (and parent ...) (setq parent ...)) (cond (... ...) (... ... ... ... ... ...) (... ... ... ... ...)) (if (and threshold ...) (progn ... ...)))) (if continue-flag (setq continue-flag nil) (setq node (if (setq leftp ...) (progn ...) (car-safe ...))))))) t)
  (catch 'quit (if (= (aref request 5) 0) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (catch 'end-phase (let ((deletion-count 0)) (while t (if (org-element--cache-interrupt-p time-limit) (progn ... ...)) (let (... ... ... data data-key) (while node ...) (if data ... ... ...))))))) (if (= (aref request 5) 1) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let ((key (aref request 0))) (if (and next-request-key (not (org-element--cache-key-less-p key next-request-key))) (progn (let (...) (if ... ...) (let* ... ...) (let* ... ...) (let* ... ...) (throw ... t))))) (let ((limit (+ (aref request 1) (aref request 3)))) (cond ((and threshold (> limit threshold)) (if (or org-element--cache-diagnostics ...) (progn ...)) (throw 'org-element--cache-interrupt nil)) ((and future-change (>= limit future-change)) (if (or org-element--cache-diagnostics ...) (progn ...)) (let* (...) (aset v 4 nil)) (let* (...) (aset v 5 2))) (t (let (...) (if ... ...) (let* ... ...) (let* ... ...))))))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string (concat (format "org-element-cache diagnostics(%s): " ...) "Phase 2")) (format-string (format format-string))) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil (setq org-element--cache-diagnostics-ring (make-ring org-element--cache-diagnostics-ring-size))) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let ((start (aref request 0)) (offset (aref request 3)) (parent (aref request 4)) (node (org-element--cache-root)) (stack (list nil)) (leftp t) exit-flag continue-flag) (if (and (not parent) (= 0 offset)) (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (throw 'quit t))) (while node (let* ((data (progn (progn ...))) (key (org-element--cache-key data))) (if (and leftp (progn (progn ...)) (not (org-element--cache-key-less-p key start))) (progn (setq stack (cons node stack)) (setq node (progn ...))) (if (org-element--cache-key-less-p key start) nil (if (and next-request-key ...) (progn ... ... ...)) (if (or exit-flag ...) (progn ... ... ... ...)) (if (= 0 offset) nil (if ... ...) (org-element--cache-shift-positions data offset)) (let (...) (while ... ...) (cond ... ... ...) (if ... ...))) (if continue-flag (setq continue-flag nil) (setq node (if ... ... ...)))))) t))
  org-element--cache-process-request([27553 26834 nil -6 nil 2] 27568 32741 nil nil)
  (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn (aref next 0))) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ((v next)) (aset v 3 (+ (aref v 3) (aref request 3)))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))) (let* ((v next)) (aset v 2 (aref request 2))))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests)))
  (catch 'org-element--cache-interrupt (if org-element--cache-sync-requests (progn (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* ((format-string ...) (format-string ...)) (if org-element--cache-diagnostics (warn "%s" format-string) (if org-element--cache-diagnostics-ring nil ...) (ring-insert org-element--cache-diagnostics-ring format-string))))))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn (aref next 0))) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ((v next)) (aset v 3 (+ (aref v 3) (aref request 3)))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))) (let* ((v next)) (aset v 2 (aref request 2))))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests))))
  (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 (eq org-element--cache-self-verify 'backtrace)) (progn (let* (... ...) (if org-element--cache-diagnostics ... ... ...)))))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn (aref next 0))) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* ((v next)) (aset v 3 (+ ... ...))) (if (or org-element--cache-diagnostics (eq org-element--cache-self-verify ...)) (progn (let* ... ...))) (let* ((v next)) (aset v 2 (aref request 2))))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-requests)))))
  (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 (eq org-element--cache-self-verify ...)) (progn (let* ... ...))))) (while org-element--cache-sync-requests (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next (progn (aref next 0))) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (if next (progn (let* (...) (aset v 3 ...)) (if (or org-element--cache-diagnostics ...) (progn ...)) (let* (...) (aset v 2 ...)))) (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-change-tic (buffer-chars-modified-tick)) (/= (buffer-chars-modified-tick) (buffer-modified-tick)) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or org-element--cache-diagnostics-modifications (and (boundp 'org-batch-test) org-batch-test)) (progn (let* ((format-string (format "Unregistered buffer modifications detected. Resett..." ... this-command ...)) (format-string (if ... format-string ...))) (if (and (boundp ...) org-batch-test) (error "%s" (concat "org-element--cache: " format-string)) (warn "%s" (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 (setq request (car org-element--cache-sync-requests) 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) (setq request (car org-element--cache-sync-requests) 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)))))
  (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (and (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (/= (buffer-chars-modified-tick) (buffer-modified-tick)) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or org-element--cache-diagnostics-modifications (and (boundp 'org-batch-test) org-batch-test)) (progn (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error "%s" ...) (warn "%s" ...))))) (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 (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (org-element--cache-process-request request (if next ...) threshold (if threshold nil time-limit) future-change) (setq request (car org-element--cache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (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))))))
  (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (and (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (/= (buffer-chars-modified-tick) (buffer-modified-tick)) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 6))) (not (= (buffer-chars-modified-tick) (- (buffer-modified-tick) 7)))) (progn (if (or org-element--cache-diagnostics-modifications (and (boundp ...) org-batch-test)) (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 (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 (setq request ... next ...) (org-element--cache-process-request request ... threshold ... future-change) (setq request ... next ...) (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)))))))
  (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer (or (buffer-base-buffer buffer) buffer)) (if (and (/= org-element--cache-change-tic (buffer-chars-modified-tick)) (/= (buffer-chars-modified-tick) (buffer-modified-tick)) (not (= (buffer-chars-modified-tick) (- ... 6))) (not (= (buffer-chars-modified-tick) (- ... 7)))) (progn (if (or org-element--cache-diagnostics-modifications (and ... org-batch-test)) (progn (let* ... ...))) (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))))))))
  org-element--cache-sync(#<buffer Bookmarks.org> 32741)
  (if cached-only nil (org-element--cache-sync (current-buffer) pom))
  (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))
  (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))
  (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom)))))
  (let (element) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-element-cache-reset) (if cached-only nil (org-element--cache-sync (current-buffer) pom))))) (setq element (if cached-only (and (org-element--cache-active-p) (or (not org-element--cache-sync-requests) (org-element--cache-key-less-p pom (aref (car org-element--cache-sync-requests) 0))) (org-element--cache-find pom)) (condition-case err (org-element--parse-to pom) (error (let* ((format-string ...) (format-string ...)) (if (and ... org-batch-test) (error "%s" ...) (warn "%s" ...))) (org-element-cache-reset) (org-element--parse-to pom))))) (if (and (org-element--cache-active-p) element (org-element--cache-verify-element element)) (progn (setq element (org-element--parse-to pom)))) (if (eq 'org-data (org-element-type element)) nil (if (and cached-only (not (and element (or (= pom ...) (and ... ... ...) (and ... ... ...) (and ... ... ...))))) nil (if (not (eq (org-element-type element) 'section)) element (org-element-at-point (1+ pom) cached-only)))))
  org-element-at-point()
  (let ((pos (point)) (element (org-element-at-point))) (cond ((org-hide-block-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) ((and (org-match-line "[ \11]*[|+]") (org-element-lineage element '(table) t)) (if (and (eq 'table (org-element-type element)) (eq 'table\.el (org-element-property :type element))) (message (substitute-command-keys "\\<org-mode-map>Use `\\[org-edit-special]' to edit t...")) (org-table-justify-field-maybe) (call-interactively #'org-table-next-field))) ((run-hook-with-args-until-success 'org-tab-after-check-for-table-hook)) ((and (or (and org-cycle-include-plain-lists (let (...) (and item ...))) (org-match-line org-outline-regexp)) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success 'org-tab-after-check-for-cycling-hook)) ((run-hook-with-args-until-success 'org-tab-before-tab-emulation-hook)) ((and (eq org-cycle-emulate-tab 'exc-hl-bol) (or (not (bolp)) (not (looking-at org-outline-regexp)))) (call-interactively (global-key-binding (kbd "TAB")))) ((or (eq org-cycle-emulate-tab t) (and (memq org-cycle-emulate-tab '(white whitestart)) (save-excursion (beginning-of-line 1) (looking-at "[ \11]*")) (or (and (eq org-cycle-emulate-tab ...) (= ... ...)) (and (eq org-cycle-emulate-tab ...) (>= ... pos))))) (call-interactively (global-key-binding (kbd "TAB")))) (t (save-excursion (org-back-to-heading) (org-cycle)))))
  (cond ((equal arg '(16)) (setq last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIBILITY properties")) ((equal arg '(64)) (org-show-all) (org-unlogged-message "Entire buffer visible, including drawers")) ((equal arg '(4)) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- (funcall outline-level) arg))) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-outline-regexp))) (let ((org-cycle-hook (remq 'org-optimize-window-after-visibility-change org-cycle-hook))) (org-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-inlinetask-toggle-visibility)) (t (let ((pos (point)) (element (org-element-at-point))) (cond ((org-hide-block-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) ((and (org-match-line "[ \11]*[|+]") (org-element-lineage element '... t)) (if (and (eq ... ...) (eq ... ...)) (message (substitute-command-keys "\\<org-mode-map>Use `\\[org-edit-special]' to edit t...")) (org-table-justify-field-maybe) (call-interactively #'org-table-next-field))) ((run-hook-with-args-until-success 'org-tab-after-check-for-table-hook)) ((and (or (and org-cycle-include-plain-lists ...) (org-match-line org-outline-regexp)) (or (bolp) (not ...))) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success 'org-tab-after-check-for-cycling-hook)) ((run-hook-with-args-until-success 'org-tab-before-tab-emulation-hook)) ((and (eq org-cycle-emulate-tab 'exc-hl-bol) (or (not ...) (not ...))) (call-interactively (global-key-binding (kbd "TAB")))) ((or (eq org-cycle-emulate-tab t) (and (memq org-cycle-emulate-tab ...) (save-excursion ... ...) (or ... ...))) (call-interactively (global-key-binding (kbd "TAB")))) (t (save-excursion (org-back-to-heading) (org-cycle)))))))
  (let* ((limit-level (or org-cycle-max-level (and (boundp 'org-inlinetask-min-level) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (1- (* 2 limit-level)) limit-level))) (org-outline-regexp (format "\\*%s " (if nstars (format "\\{1,%d\\}" nstars) "+")))) (cond ((equal arg '(16)) (setq last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIBILITY properties")) ((equal arg '(64)) (org-show-all) (org-unlogged-message "Entire buffer visible, including drawers")) ((equal arg '(4)) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- (funcall outline-level) arg))) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-outline-regexp))) (let ((org-cycle-hook (remq 'org-optimize-window-after-visibility-change org-cycle-hook))) (org-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab 'exc-hl-bol)))) (org-inlinetask-toggle-visibility)) (t (let ((pos (point)) (element (org-element-at-point))) (cond ((org-hide-block-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) ((and (org-match-line "[ \11]*[|+]") (org-element-lineage element ... t)) (if (and ... ...) (message ...) (org-table-justify-field-maybe) (call-interactively ...))) ((run-hook-with-args-until-success 'org-tab-after-check-for-table-hook)) ((and (or ... ...) (or ... ...)) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success 'org-tab-after-check-for-cycling-hook)) ((run-hook-with-args-until-success 'org-tab-before-tab-emulation-hook)) ((and (eq org-cycle-emulate-tab ...) (or ... ...)) (call-interactively (global-key-binding ...))) ((or (eq org-cycle-emulate-tab t) (and ... ... ...)) (call-interactively (global-key-binding ...))) (t (save-excursion (org-back-to-heading) (org-cycle))))))))
  (if (or (run-hook-with-args-until-success 'org-tab-first-hook) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and (boundp 'org-inlinetask-min-level) org-inlinetask-min-level (1- org-inlinetask-min-level)))) (nstars (and limit-level (if org-odd-levels-only (1- (* 2 limit-level)) limit-level))) (org-outline-regexp (format "\\*%s " (if nstars (format "\\{1,%d\\}" nstars) "+")))) (cond ((equal arg '(16)) (setq last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIBILITY properties")) ((equal arg '(64)) (org-show-all) (org-unlogged-message "Entire buffer visible, including drawers")) ((equal arg '(4)) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading (if (< arg 0) (- arg) (- ... arg))) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not (looking-at org-outline-regexp))) (let ((org-cycle-hook (remq ... org-cycle-hook))) (org-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep 'org-inlinetask) (org-inlinetask-at-task-p) (or (bolp) (not (eq org-cycle-emulate-tab ...)))) (org-inlinetask-toggle-visibility)) (t (let ((pos (point)) (element (org-element-at-point))) (cond ((org-hide-block-toggle nil t element)) ((org-hide-drawer-toggle nil t element)) ((and ... ...) (if ... ... ... ...)) ((run-hook-with-args-until-success ...)) ((and ... ...) (org-cycle-internal-local)) (buffer-read-only (org-back-to-heading)) ((run-hook-with-args-until-success ...)) ((run-hook-with-args-until-success ...)) ((and ... ...) (call-interactively ...)) ((or ... ...) (call-interactively ...)) (t (save-excursion ... ...))))))))
  (closure (org-priority-regexp org-mode-abbrev-table org-mode-syntax-table org-element-use-cache org-element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components org-export-registered-backends org-modules crm-separator org-babel-load-languages org-id-overriding-file-name org-indent-indentation-per-level org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-min-level t) (&optional arg) "TAB-action and visibility cycling for Org mode.\n\nT..." (interactive "P") (org-load-modules-maybe) (if (or (run-hook-with-args-until-success 'org-tab-first-hook) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and ... org-inlinetask-min-level ...))) (nstars (and limit-level (if org-odd-levels-only ... limit-level))) (org-outline-regexp (format "\\*%s " (if nstars ... "+")))) (cond ((equal arg '...) (setq last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIBILITY properties")) ((equal arg '...) (org-show-all) (org-unlogged-message "Entire buffer visible, including drawers")) ((equal arg '...) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading ...) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not ...)) (let (...) (org-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep ...) (org-inlinetask-at-task-p) (or ... ...)) (org-inlinetask-toggle-visibility)) (t (let (... ...) (cond ... ... ... ... ... ... ... ... ... ... ...)))))))(nil)
  apply((closure (org-priority-regexp org-mode-abbrev-table org-mode-syntax-table org-element-use-cache org-element-cache-persistent buffer-face-mode-face org-tbl-menu org-org-menu org-struct-menu org-entities org-last-state org-id-track-globally org-clock-start-time texmathp-why remember-data-file org-agenda-tags-todo-honor-ignore-options iswitchb-temp-buflist calc-embedded-open-mode calc-embedded-open-formula calc-embedded-close-formula align-mode-rules-list org-emphasis-alist org-emphasis-regexp-components org-export-registered-backends org-modules crm-separator org-babel-load-languages org-id-overriding-file-name org-indent-indentation-per-level org-element-paragraph-separate org-agenda-buffer-name org-inlinetask-min-level t) (&optional arg) "TAB-action and visibility cycling for Org mode.\n\nT..." (interactive "P") (org-load-modules-maybe) (if (or (run-hook-with-args-until-success 'org-tab-first-hook) (and org-cycle-level-after-item/entry-creation (or (org-cycle-level) (org-cycle-item-indentation)))) nil (let* ((limit-level (or org-cycle-max-level (and ... org-inlinetask-min-level ...))) (nstars (and limit-level (if org-odd-levels-only ... limit-level))) (org-outline-regexp (format "\\*%s " (if nstars ... "+")))) (cond ((equal arg '...) (setq last-command 'dummy) (org-set-startup-visibility) (org-unlogged-message "Startup visibility, plus VISIBILITY properties")) ((equal arg '...) (org-show-all) (org-unlogged-message "Entire buffer visible, including drawers")) ((equal arg '...) (org-cycle-internal-global)) ((integerp arg) (save-excursion (org-back-to-heading) (outline-up-heading ...) (org-show-subtree))) ((and org-cycle-global-at-bob (bobp) (not ...)) (let (...) (org-cycle-internal-global))) ((org-try-cdlatex-tab)) ((and (featurep ...) (org-inlinetask-at-task-p) (or ... ...)) (org-inlinetask-toggle-visibility)) (t (let (... ...) (cond ... ... ... ... ... ... ... ... ... ... ...))))))) nil)
  org-cycle(nil)
  funcall-interactively(org-cycle nil)
  call-interactively(org-cycle nil nil)
  command-execute(org-cycle)
#+end_example

-- 
[ stardiviner ]
       I try to make every word tell the meaning that I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 488 bytes --]

^ permalink raw reply	[flat|nested] 6+ messages in thread

end of thread, other threads:[~2021-11-21 13:57 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-11-20 11:30 [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer Christopher M. Miles
2021-11-20 12:21 ` Ihor Radchenko
2021-11-21  8:31   ` Christopher M. Miles
2021-11-21  9:54     ` Ihor Radchenko
2021-11-21 13:35       ` Christopher M. Miles
2021-11-21 13:37       ` [SOLVED] " Christopher M. Miles

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).