[BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Christopher M. Miles]

[-- 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 --]

Re: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Ihor Radchenko]

"Christopher M. Miles" <numbchild@gmail.com> writes:

> 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:

Thanks for the report! Are you able to reproduce it with clean emacs
config? I am unable to reproduce the problem with the provided example
and with org-adapt-indentation set to t.

Best,
Ihor

Re: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Christopher M. Miles]

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


Ihor Radchenko <yantar92@gmail.com> writes:

> "Christopher M. Miles" <numbchild@gmail.com> writes:
>
>> 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:
>
> Thanks for the report! Are you able to reproduce it with clean emacs
> config? I am unable to reproduce the problem with the provided example
> and with org-adapt-indentation set to t.

Thanks for answering, Ihor.

I can't reproduce it with clean Emacs config. And my option ~org-adapt-indentation~ is ~nil~. And this
error is not raised every time. Just some org buffer and sometimes. Have not noticed some regular
pattern of problem reason yet. If I found any clue I will update here.

-- 
[ 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 --]

Re: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Ihor Radchenko]

"Christopher M. Miles" <numbchild@gmail.com> writes:

> I can't reproduce it with clean Emacs config. And my option ~org-adapt-indentation~ is ~nil~. And this
> error is not raised every time. Just some org buffer and sometimes. Have not noticed some regular
> pattern of problem reason yet. If I found any clue I will update here.

I checked the code and I can see a valid scenario when the error you
have seen may appear. I have fixed that hypothetical case in 54da1d6d7.
Hopefully, it will also fix your issue without introducing other errors.

Best,
Ihor

Re: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Christopher M. Miles]

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


Ihor Radchenko <yantar92@gmail.com> writes:

> "Christopher M. Miles" <numbchild@gmail.com> writes:
>
>> I can't reproduce it with clean Emacs config. And my option ~org-adapt-indentation~ is ~nil~. And this
>> error is not raised every time. Just some org buffer and sometimes. Have not noticed some regular
>> pattern of problem reason yet. If I found any clue I will update here.
>
> I checked the code and I can see a valid scenario when the error you
> have seen may appear. I have fixed that hypothetical case in 54da1d6d7.
> Hopefully, it will also fix your issue without introducing other errors.
>
> Best,
> Ihor

I pulled your fix commit, and tested on some org files, no problem on Tab indention anymore. I think
the problem should be fixed. Thanks a lot!!! You got awesome Elisp skill!

-- 
[ 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 --]

[SOLVED] Re: [BUG] error on org-element--cache-process-request when TAB indent region select properties drawer

[Christopher M. Miles]

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


Ihor Radchenko <yantar92@gmail.com> writes:

> "Christopher M. Miles" <numbchild@gmail.com> writes:
>
>> I can't reproduce it with clean Emacs config. And my option ~org-adapt-indentation~ is ~nil~. And this
>> error is not raised every time. Just some org buffer and sometimes. Have not noticed some regular
>> pattern of problem reason yet. If I found any clue I will update here.
>
> I checked the code and I can see a valid scenario when the error you
> have seen may appear. I have fixed that hypothetical case in 54da1d6d7.
> Hopefully, it will also fix your issue without introducing other errors.
>
> Best,
> Ihor

Confirmed problem solved.

-- 
[ 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 --]