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

[Christopher M. Miles]

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

signature.asc
Description: PGP signature