From mboxrd@z Thu Jan 1 00:00:00 1970 From: Daimrod Subject: Re: still seeing semi-regular lockups Date: Thu, 29 May 2014 12:01:04 +0900 Message-ID: <874n09cmq7.fsf@tanger.home> References: <87siocrbyb.fsf@ericabrahamsen.net> <87siobtn1i.fsf@bzg.ath.cx> <87ha4r1j91.fsf@tanger.home> <87k39hdf2o.fsf@tanger.home> Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="=-=-=" Return-path: Received: from eggs.gnu.org ([2001:4830:134:3::10]:51068) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1Wpqay-0007pW-8R for emacs-orgmode@gnu.org; Wed, 28 May 2014 23:01:41 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1Wpqap-0002my-7G for emacs-orgmode@gnu.org; Wed, 28 May 2014 23:01:32 -0400 In-Reply-To: <87k39hdf2o.fsf@tanger.home> (daimrod@gmail.com's message of "Mon, 19 May 2014 23:21:35 +0900") List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: Bastien Cc: Eric Abrahamsen , emacs-orgmode@gnu.org --=-=-= Content-Type: text/plain Daimrod writes: > Daimrod writes: > >> I have also semi-regular lockup with org-mode. I have opened a bug on >> debbugs and here is what Stefan told me to try to debug this: >> >>> You can try `debug-on-event'. >>> >>> There's jit-lock-debug-mode but it doesn't disable inhibit-quit. >>> So you'll need to additionally use >>> >>> (advice-add 'jit-lock--debug-fontify :around >>> (lambda (fun &rest args) >>> (with-local-quit (apply fun args)))) >>> >>> Of course sometimes this doesn't work because jit-lock-debug-mode >>> changes the way things are executed and the bug may not manifest itself >>> any more, but it's worth a try. >>> >>> Another source of info is to >>> >>> M-x trace-function RET org-adaptive-fill-function RET >>> M-x trace-function RET org-element-at-point RET >>> M-x trace-function RET org-element--cache-sync RET >>> M-x trace-function RET org-element--cache-process-request RET >>> >>> Then reproduce the hang, then break the hang somehow (maybe with the >>> jit-lock-debug hack above, or maybe with debug-on-event, or with C-g C-g >>> C-g, ...), then look at the *trace..* buffer. >> >> I'll try to see what I can find this week end and report back. > > Ok, so the good news is the `debug-on-event' trick works. If you got a > lockup, you can get a classic elisp backtrace by sending the SIGUSR2 to > the Emacs process. > > The bad news is that I don't know yet how to reproduce the lockup. It > seems to happen mostly (if not only) when I use org-mode + > visual-line-mode + adaptive-wrap-prefix-mode + an input-method like > latin-postfix. > > And it probably has to do with the cache mechanism. I'll try to > reproduce it with the cache disabled but it hard to test because, as I > said, I don't know how to reproduce it yet. Grr, I still don't know how to reproduce this bug. As I said above, I only had this bug with visual-line-mode + adaptive-wrap-prefix-mode and input-method = latin-postfix. It seems to happen with different configurationsa but it takes longer (maybe days of editing) before it is triggered. I've attached part of the traces (the whole traces are way too big) and the backtraces. --=-=-= Content-Type: text/x-org Content-Disposition: attachment; filename=crash-dat.org Content-Transfer-Encoding: quoted-printable * 1 #+BEGIN_EXAMPLE Debugger entered--beginning evaluation of function call form: * (funcall #[0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210db\210\3= 07\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" [org-elem= ent--cache-sync nil #[0 "\300\207" [""] 1 "\n\n(fn)"] (nil) inhibit-trace t= race-buffer trace--display-buffer trace-exit-message !non-local\ exit! trac= e-level] 6 "\n\n(fn)"]) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n= (fn)"] trace-level deactivate-mark get-buffer-create nil make-local-variabl= e window-point-insertion-type t trace--display-buffer 1 trace-entry-message= funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\= 210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207= " vconcat vector [inhibit-trace trace-buffer trace--display-buffer trace-ex= it-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer i= nhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda (buffe= r &optional threshold) "Synchronize cache with recent modification in BUFFE= R.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchronization fo= r all elements starting before or at threshold,\nthen exit. Otherwise, syn= chronize cache for as long as\n`org-element-cache-sync-duration' or until E= macs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-current-b= uffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if org-elem= ent--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer)))= (catch (quote interrupt) (while org-element--cache-sync-requests (setq req= uest ... next ...) (or ... ...) (if next ...) (setq org-element--cache-sync= -requests ...))) (if org-element--cache-sync-requests (org-element--cache-s= et-timer buffer) (clrhash org-element--cache-sync-keys))))))) # 652) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""]= 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local= -variable window-point-insertion-type t trace--display-buffer 1 trace-entry= -message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\= 306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\26= 2=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer = trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-= buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambd= a (buffer &optional threshold) "Synchronize cache with recent modification = in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchroniz= ation for all elements starting before or at threshold,\nthen exit. Otherw= ise, synchronize cache for as long as\n`org-element-cache-sync-duration' or= until Emacs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-c= urrent-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if = org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-= timer))) (catch (quote interrupt) (while org-element--cache-sync-requests (= setq request ... next ...) (or ... ...) (if next ...) (setq org-element--ca= che-sync-requests ...))) (if org-element--cache-sync-requests (org-element-= -cache-set-timer buffer) (clrhash org-element--cache-sync-keys))))))) (# 652)) org-element--cache-sync(# 652) (if (not org-element--cache) (org-element-cache-reset) (org-element--cach= e-sync (current-buffer) origin)) (progn (if (not org-element--cache) (org-element-cache-reset) (org-elemen= t--cache-sync (current-buffer) origin))) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (or= g-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outlin= e-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-rege= xp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-headi= ng-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t = (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-= element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (= org-element--parse-to origin))) (let ((origin (point))) (end-of-line) (skip-chars-backward " =0D \n") (co= nd ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-reg= exp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (= org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)= ) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (= org-element--cache-active-p) (progn (if (not org-element--cache) (org-eleme= nt-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-e= lement--parse-to origin)))) (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-cha= rs-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-= levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-re= gexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-re= gexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parse= r (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-= element--cache) (org-element-cache-reset) (org-element--cache-sync ... orig= in)))) (org-element--parse-to origin))))) (save-excursion (save-restriction (widen) (let ((origin (point))) (end-of= -line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-call= ed-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outl= ine-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p)) (beginning-of= -line) (org-element-headline-parser (point-max) t)) (t (if (org-element--ca= che-active-p) (progn (if ... ... ...))) (org-element--parse-to origin)))))) (lambda nil "Determine closest element around point.\n\nReturn value is a= list like (TYPE PROPS) where TYPE is the type\nof the element and PROPS a = plist of properties associated to the\nelement.\n\nPossible types are defin= ed in `org-element-all-elements'.\nProperties depend on element or object t= ype, but always include\n`:begin', `:end', `:parent' and `:post-blank' prop= erties.\n\nAs a special case, if point is at the very beginning of the firs= t\nitem in a list or sub-list, returned element will be that list\ninstead = of the item. Likewise, if point is at the beginning of\nthe first row of a= table, returned element will be the table\ninstead of the first row.\n\nWh= en point is at the end of the buffer, return the innermost\nelement ending = there." (save-excursion (save-restriction (widen) (let ((origin (point))) (= end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (...= ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline= -parser (point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (= org-element--parse-to origin)))))))() apply((lambda nil "Determine closest element around point.\n\nReturn valu= e is a list like (TYPE PROPS) where TYPE is the type\nof the element and PR= OPS a plist of properties associated to the\nelement.\n\nPossible types are= defined in `org-element-all-elements'.\nProperties depend on element or ob= ject type, but always include\n`:begin', `:end', `:parent' and `:post-blank= ' properties.\n\nAs a special case, if point is at the very beginning of th= e first\nitem in a list or sub-list, returned element will be that list\nin= stead of the item. Likewise, if point is at the beginning of\nthe first ro= w of a table, returned element will be the table\ninstead of the first row.= \n\nWhen point is at the end of the buffer, return the innermost\nelement e= nding there." (save-excursion (save-restriction (widen) (let ((origin (poin= t))) (end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let= * (... ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-he= adline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn .= ..)) (org-element--parse-to origin))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n(fn= )"] trace-level deactivate-mark get-buffer-create nil make-local-variable w= indow-point-insertion-type t trace--display-buffer 1 trace-entry-message fu= ncall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210= db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" v= concat vector [inhibit-trace trace-buffer trace--display-buffer trace-exit-= message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer inhi= bit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda nil "Dete= rmine closest element around point.\n\nReturn value is a list like (TYPE PR= OPS) where TYPE is the type\nof the element and PROPS a plist of properties= associated to the\nelement.\n\nPossible types are defined in `org-element-= all-elements'.\nProperties depend on element or object type, but always inc= lude\n`:begin', `:end', `:parent' and `:post-blank' properties.\n\nAs a spe= cial case, if point is at the very beginning of the first\nitem in a list o= r sub-list, returned element will be that list\ninstead of the item. Likew= ise, if point is at the beginning of\nthe first row of a table, returned el= ement will be the table\ninstead of the first row.\n\nWhen point is at the = end of the buffer, return the innermost\nelement ending there." (save-excur= sion (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-= chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... ...) (org-= at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max)= t)) (t (if (org-element--cache-active-p) (progn ...)) (org-element--parse-= to origin)))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 = "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-va= riable window-point-insertion-type t trace--display-buffer 1 trace-entry-me= ssage funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambda= nil "Determine closest element around point.\n\nReturn value is a list lik= e (TYPE PROPS) where TYPE is the type\nof the element and PROPS a plist of = properties associated to the\nelement.\n\nPossible types are defined in `or= g-element-all-elements'.\nProperties depend on element or object type, but = always include\n`:begin', `:end', `:parent' and `:post-blank' properties.\n= \nAs a special case, if point is at the very beginning of the first\nitem i= n a list or sub-list, returned element will be that list\ninstead of the it= em. Likewise, if point is at the beginning of\nthe first row of a table, r= eturned element will be the table\ninstead of the first row.\n\nWhen point = is at the end of the buffer, return the innermost\nelement ending there." (= save-excursion (save-restriction (widen) (let ((origin (point))) (end-of-li= ne) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... = ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (= point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (org-eleme= nt--parse-to origin))))))) nil) org-element-at-point() (progn (org-element-at-point)) (condition-case nil (progn (org-element-at-point)) (error nil)) (or (condition-case nil (progn (org-element-at-point)) (error nil)) (user= -error "An element cannot be parsed line %d" (line-number-at-pos (point)))) (save-excursion (beginning-of-line) (or (condition-case nil (progn (org-e= lement-at-point)) (error nil)) (user-error "An element cannot be parsed lin= e %d" (line-number-at-pos (point))))) (let* ((p (line-beginning-position)) (element (save-excursion (beginning-= of-line) (or (condition-case nil (progn (org-element-at-point)) (error nil)= ) (user-error "An element cannot be parsed line %d" (line-number-at-pos (po= int)))))) (type (org-element-type element)) (post-affiliated (org-element-p= roperty :post-affiliated element))) (if (and post-affiliated (< p post-affi= liated)) nil (cond ((eql type (quote comment)) (save-excursion (beginning-o= f-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type (q= uote footnote-definition)) "") ((memql type (quote (item plain-list))) (mak= e-string (org-list-item-body-column (or post-affiliated (org-element-proper= ty :begin element))) 32)) ((eql type (quote paragraph)) (let ((parent (org-= element-property :parent element))) (save-excursion (beginning-of-line) (co= nd (... ...) (...) (... ...) (t ""))))) ((eql type (quote comment-block)) (= let* ((cbeg (save-excursion ... ... ...)) (cend (save-excursion ... ... ...= ))) (if (and (>=3D p cbeg) (< p cend)) (progn (if ... ... "")))))))) (save-restriction (widen) (let* ((p (line-beginning-position)) (element (= save-excursion (beginning-of-line) (or (condition-case nil (progn ...) (err= or nil)) (user-error "An element cannot be parsed line %d" (line-number-at-= pos ...))))) (type (org-element-type element)) (post-affiliated (org-elemen= t-property :post-affiliated element))) (if (and post-affiliated (< p post-a= ffiliated)) nil (cond ((eql type (quote comment)) (save-excursion (beginnin= g-of-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type= (quote footnote-definition)) "") ((memql type (quote (item plain-list))) (= make-string (org-list-item-body-column (or post-affiliated ...)) 32)) ((eql= type (quote paragraph)) (let ((parent ...)) (save-excursion (beginning-of-= line) (cond ... ... ... ...)))) ((eql type (quote comment-block)) (let* ((c= beg ...) (cend ...)) (if (and ... ...) (progn ...)))))))) (save-excursion (save-restriction (widen) (let* ((p (line-beginning-posit= ion)) (element (save-excursion (beginning-of-line) (or (condition-case nil = ... ...) (user-error "An element cannot be parsed line %d" ...)))) (type (o= rg-element-type element)) (post-affiliated (org-element-property :post-affi= liated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond= ((eql type (quote comment)) (save-excursion (beginning-of-line) (looking-a= t "[ ]*") (concat ... "# "))) ((eql type (quote footnote-definition)) "") = ((memql type (quote ...)) (make-string (org-list-item-body-column ...) 32))= ((eql type (quote paragraph)) (let (...) (save-excursion ... ...))) ((eql = type (quote comment-block)) (let* (... ...) (if ... ...)))))))) (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sav= e-excursion (beginning-of-line) (cond ((or (not ...) (looking-at orgtbl-lin= e-start-regexp)) (throw (quote exit) nil)) ((looking-at message-cite-prefix= -regexp) (throw (quote exit) (match-string-no-properties 0))) ((looking-at = org-outline-regexp) (throw (quote exit) (make-string ... 32))))))) (save-ex= cursion (save-restriction (widen) (let* ((p (line-beginning-position)) (ele= ment (save-excursion (beginning-of-line) (or ... ...))) (type (org-element-= type element)) (post-affiliated (org-element-property :post-affiliated elem= ent))) (if (and post-affiliated (< p post-affiliated)) nil (cond ((eql type= ...) (save-excursion ... ... ...)) ((eql type ...) "") ((memql type ...) (= make-string ... 32)) ((eql type ...) (let ... ...)) ((eql type ...) (let* .= .. ...)))))))) (lambda nil "Compute a fill prefix for the current line.\nReturn fill pre= fix, as a string, or nil if current line isn't\nmeant to be filled. For co= nvenience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, us= e it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn= (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) (= (looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-o= utline-regexp) (throw ... ...)))))) (save-excursion (save-restriction (wide= n) (let* ((p (line-beginning-position)) (element (save-excursion ... ...)) = (type (org-element-type element)) (post-affiliated (org-element-property :p= ost-affiliated element))) (if (and post-affiliated (< p post-affiliated)) n= il (cond (... ...) (... "") (... ...) (... ...) (... ...))))))))() apply((lambda nil "Compute a fill prefix for the current line.\nReturn fi= ll prefix, as a string, or nil if current line isn't\nmeant to be filled. = For convenience, if `adaptive-fill-regexp'\nmatches in paragraphs or commen= ts, use it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) = (progn (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... n= il)) ((looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at= org-outline-regexp) (throw ... ...)))))) (save-excursion (save-restriction= (widen) (let* ((p (line-beginning-position)) (element (save-excursion ... = ...)) (type (org-element-type element)) (post-affiliated (org-element-prope= rty :post-affiliated element))) (if (and post-affiliated (< p post-affiliat= ed)) nil (cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [""] 1 "\= n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-vari= able window-point-insertion-type t trace--display-buffer 1 trace-entry-mess= age funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda= nil "Compute a fill prefix for the current line.\nReturn fill prefix, as a= string, or nil if current line isn't\nmeant to be filled. For convenience= , if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it." (c= atch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (save-ex= cursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((looking-= at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outline-re= gexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (let* = ((p (line-beginning-position)) (element (save-excursion ... ...)) (type (or= g-element-type element)) (post-affiliated (org-element-property :post-affil= iated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond = (... ...) (... "") (... ...) (... ...) (... ...))))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [= ""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-lo= cal-variable window-point-insertion-type t trace--display-buffer 1 trace-en= try-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13= =00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c= )\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buf= fer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply tr= ace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (l= ambda nil "Compute a fill prefix for the current line.\nReturn fill prefix,= as a string, or nil if current line isn't\nmeant to be filled. For conven= ience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it= ." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sa= ve-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((loo= king-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outli= ne-regexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (= let* ((p (line-beginning-position)) (element (save-excursion ... ...)) (typ= e (org-element-type element)) (post-affiliated (org-element-property :post-= affiliated element))) (if (and post-affiliated (< p post-affiliated)) nil (= cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) org-adaptive-fill-function() fill-match-adaptive-prefix() fill-context-prefix(652 729) adaptive-wrap-fill-context-prefix(652 729) adaptive-wrap-prefix-function(652 730) run-hook-with-args(adaptive-wrap-prefix-function 652 730) #[0 "\302\303\300\242\301\242#\207" [(652) (730) run-hook-with-args jit-l= ock-functions] 4 "\n\n(fn)"]() funcall(#[0 "\302\303\300\242\301\242#\207" [(652) (730) run-hook-with-ar= gs jit-lock-functions] 4 "\n\n(fn)"]) jit-lock-fontify-now(652 1152) jit-lock-function(652) redisplay_internal\ \(C\ function\)() read-key-sequence(nil nil nil t) quail-start-translation(97) quail-input-method(97) #+END_EXAMPLE #+BEGIN_EXAMPLE =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 652) | | | 4 -> (org-element--cache-process-request [726 nil 1 nil 2] 727 652 ni= l) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [727 nil 5 nil 2] 9750 652 n= il) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 652 :end 728 :contents-begi= n 652 :contents-end 727 :post-blank 1 :post-affiliated 652 :parent nil)) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | 2 <- org-element-at-point: (headline (:raw-value #1=3D"This is another te= st" :begin 728 :end 9766 :pre-blank 1 :contents-begin 752 :contents-end 976= 6 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :post-b= lank 0 :footnote-section-p nil :archivedp nil :commentedp nil :CATEGORY nil= :title #1#)) 1 <- org-adaptive-fill-function: nil =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync #) | 2 -> (org-element--cache-process-request [932 nil 5 nil 2] 9750 nil (2138= 1 47609 398931 512000)) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 608541 nil org-element--cache-sync (= #) idle 676000] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 652) | | | 4 -> (org-element--cache-process-request [1626 nil 5 nil 2] 9750 652 = nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 652 :end 728 :contents-begi= n 652 :contents-end 727 :post-blank 1 :post-affiliated 652 :parent nil)) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 726) | 2 -> (org-element--cache-process-request [9628 nil 5 nil 2] 9750 726 nil) | 2 <- org-element--cache-process-request: t | 2 -> (org-element--cache-process-request [9750 nil 7 nil 2] nil 726 nil) | 2 <- org-element--cache-process-request: t 1 <- org-element--cache-sync: #s(hash-table size 65 test eq weakness key re= hash-size 1.5 rehash-threshold 0.8 data ()) =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 652) | | | 4 -> (org-element--cache-process-request [153 740 1 nil 0] nil 652 ni= l) #+END_EXAMPLE * 2 #+BEGIN_EXAMPLE Debugger entered--beginning evaluation of function call form: * (funcall #[0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210db\210\3= 07\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" [org-elem= ent--cache-process-request nil #[0 "\300\207" [""] 1 "\n\n(fn)"] (nil) inhi= bit-trace trace-buffer trace--display-buffer trace-exit-message !non-local\= exit! trace-level] 6 "\n\n(fn)"]) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element--cache-process-request "*trace-output*" nil #[0 "\300\207" [= ""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-lo= cal-variable window-point-insertion-type t trace--display-buffer 1 trace-en= try-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13= =00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c= )\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buf= fer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply tr= ace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((l= ambda (request next threshold time-limit) "Process synchronization REQUEST = for all entries before NEXT.\n\nREQUEST is a vector, built by `org-element-= -cache-submit-request'.\n\nNEXT is a cache key, as returned by `org-element= --cache-key'.\n\nWhen non-nil, THRESHOLD is a buffer position. Synchroniza= tion\nstops as soon as a shifted element begins after it.\n\nWhen non-nil, = TIME-LIMIT is a time value. Synchronization stops\nafter this time or when= Emacs exits idle state.\n\nReturn nil if the process stops before completi= ng the request,\nt otherwise." (catch (quote quit) (if (=3D (aref request 4= ) 0) (progn (catch (quote end-phase) (let ((beg ...) (end ...) (deleted-par= ent ...)) (while t (if ... ...) (let ... ... ...)))))) (if (=3D (aref reque= st 4) 1) (progn (catch (quote end-phase) (if (equal (aref request 0) next) = (progn (throw ... t))) (let ((limit ...)) (if (and threshold ...) (progn ..= .)) (let (...) (if ... ... ... ... ...)))))) (let ((start (aref request 0))= (offset (aref request 2)) (parent (aref request 3)) (node (org-element--ca= che-root)) (stack (list nil)) (leftp t) exit-flag) (if (and (not parent) (z= erop offset)) (progn (throw (quote quit) t))) (while node (let* ((data (pro= gn ...)) (key (org-element--cache-key data))) (if (and leftp (progn ...) (n= ot ...)) (progn (setq stack ...) (setq node ...)) (if (org-element--cache-k= ey-less-p key start) nil (if ... ...) (if ... ...) (if ... nil ... ...) (le= t ... ... ... ...)) (setq node (if ... ... ...))))) t))) [(1983 11529215046= 06846975) 2221 1 nil 0] 9763 2060 nil) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element--cache-process-request "*trace-output*" nil #[0 "\30= 0\207" [""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil= make-local-variable window-point-insertion-type t trace--display-buffer 1 = trace-entry-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301= \204=13=00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\3= 10=04$c)\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--disp= lay-buffer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" a= pply trace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARG= S)"] (lambda (request next threshold time-limit) "Process synchronization R= EQUEST for all entries before NEXT.\n\nREQUEST is a vector, built by `org-e= lement--cache-submit-request'.\n\nNEXT is a cache key, as returned by `org-= element--cache-key'.\n\nWhen non-nil, THRESHOLD is a buffer position. Sync= hronization\nstops as soon as a shifted element begins after it.\n\nWhen no= n-nil, TIME-LIMIT is a time value. Synchronization stops\nafter this time = or when Emacs exits idle state.\n\nReturn nil if the process stops before c= ompleting the request,\nt otherwise." (catch (quote quit) (if (=3D (aref re= quest 4) 0) (progn (catch (quote end-phase) (let ((beg ...) (end ...) (dele= ted-parent ...)) (while t (if ... ...) (let ... ... ...)))))) (if (=3D (are= f request 4) 1) (progn (catch (quote end-phase) (if (equal (aref request 0)= next) (progn (throw ... t))) (let ((limit ...)) (if (and threshold ...) (p= rogn ...)) (let (...) (if ... ... ... ... ...)))))) (let ((start (aref requ= est 0)) (offset (aref request 2)) (parent (aref request 3)) (node (org-elem= ent--cache-root)) (stack (list nil)) (leftp t) exit-flag) (if (and (not par= ent) (zerop offset)) (progn (throw (quote quit) t))) (while node (let* ((da= ta (progn ...)) (key (org-element--cache-key data))) (if (and leftp (progn = ...) (not ...)) (progn (setq stack ...) (setq node ...)) (if (org-element--= cache-key-less-p key start) nil (if ... ...) (if ... ...) (if ... nil ... .= ..) (let ... ... ... ...)) (setq node (if ... ... ...))))) t))) ([(1983 115= 2921504606846975) 2221 1 nil 0] 9763 2060 nil)) org-element--cache-process-request([(1983 1152921504606846975) 2221 1 nil= 0] 9763 2060 nil) (or (org-element--cache-process-request request (and next (aref next 0)) = threshold (and (not threshold) (time-add (current-time) org-element-cache-s= ync-duration))) (throw (quote interrupt) t)) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request (and next (aref next 0)) threshold = (and (not threshold) (time-add (current-time) org-element-cache-sync-durati= on))) (throw (quote interrupt) t)) (if next (progn (let* ((v next)) (aset v= 2 (+ (aref v 2) (aref request 2)))) (aset next 1 (aref request 1)) (aset n= ext 4 (aref request 4)))) (setq org-element--cache-sync-requests (cdr org-e= lement--cache-sync-requests))) (catch (quote interrupt) (while org-element--cache-sync-requests (setq re= quest (car org-element--cache-sync-requests) next (nth 1 org-element--cache= -sync-requests)) (or (org-element--cache-process-request request (and next = (aref next 0)) threshold (and (not threshold) (time-add (current-time) org-= element-cache-sync-duration))) (throw (quote interrupt) t)) (if next (progn= (let* ((v next)) (aset v 2 (+ (aref v 2) (aref request 2)))) (aset next 1 = (aref request 1)) (aset next 4 (aref request 4)))) (setq org-element--cache= -sync-requests (cdr org-element--cache-sync-requests)))) (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (p= rogn (cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt= ) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request (and next (aref next 0)) threshold = (and (not threshold) (time-add (current-time) org-element-cache-sync-durati= on))) (throw (quote interrupt) t)) (if next (progn (let* ((v next)) (aset v= 2 (+ ... ...))) (aset next 1 (aref request 1)) (aset next 4 (aref request = 4)))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-r= equests)))) (if org-element--cache-sync-requests (org-element--cache-set-ti= mer buffer) (clrhash org-element--cache-sync-keys))) (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request n= ext) (if org-element--cache-sync-timer (progn (cancel-timer org-element--ca= che-sync-timer))) (catch (quote interrupt) (while org-element--cache-sync-r= equests (setq request (car org-element--cache-sync-requests) next (nth 1 or= g-element--cache-sync-requests)) (or (org-element--cache-process-request re= quest (and next (aref next 0)) threshold (and (not threshold) (time-add ...= org-element-cache-sync-duration))) (throw (quote interrupt) t)) (if next (= progn (let* (...) (aset v 2 ...)) (aset next 1 (aref request 1)) (aset next= 4 (aref request 4)))) (setq org-element--cache-sync-requests (cdr org-elem= ent--cache-sync-requests)))) (if org-element--cache-sync-requests (org-elem= ent--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))) (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) re= quest next) (if org-element--cache-sync-timer (progn (cancel-timer org-elem= ent--cache-sync-timer))) (catch (quote interrupt) (while org-element--cache= -sync-requests (setq request (car org-element--cache-sync-requests) next (n= th 1 org-element--cache-sync-requests)) (or (org-element--cache-process-req= uest request (and next ...) threshold (and ... ...)) (throw (quote interrup= t) t)) (if next (progn (let* ... ...) (aset next 1 ...) (aset next 4 ...)))= (setq org-element--cache-sync-requests (cdr org-element--cache-sync-reques= ts)))) (if org-element--cache-sync-requests (org-element--cache-set-timer b= uffer) (clrhash org-element--cache-sync-keys))))) (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer buffer= ) (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (p= rogn (cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt= ) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request ... threshold ...) (throw ... t)) (= if next (progn ... ... ...)) (setq org-element--cache-sync-requests (cdr or= g-element--cache-sync-requests)))) (if org-element--cache-sync-requests (or= g-element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))= ))) (lambda (buffer &optional threshold) "Synchronize cache with recent modif= ication in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do the\nsy= nchronization for all elements starting before or at threshold,\nthen exit.= Otherwise, synchronize cache for as long as\n`org-element-cache-sync-dura= tion' or until Emacs leaves idle\nstate." (if (buffer-live-p buffer) (progn= (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request ne= xt) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cac= he-sync-timer))) (catch (quote interrupt) (while org-element--cache-sync-re= quests (setq request ... next ...) (or ... ...) (if next ...) (setq org-ele= ment--cache-sync-requests ...))) (if org-element--cache-sync-requests (org-= element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))))= ))(# 2060) apply((lambda (buffer &optional threshold) "Synchronize cache with recent= modification in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do t= he\nsynchronization for all elements starting before or at threshold,\nthen= exit. Otherwise, synchronize cache for as long as\n`org-element-cache-syn= c-duration' or until Emacs leaves idle\nstate." (if (buffer-live-p buffer) = (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) requ= est next) (if org-element--cache-sync-timer (progn (cancel-timer org-elemen= t--cache-sync-timer))) (catch (quote interrupt) (while org-element--cache-s= ync-requests (setq request ... next ...) (or ... ...) (if next ...) (setq o= rg-element--cache-sync-requests ...))) (if org-element--cache-sync-requests= (org-element--cache-set-timer buffer) (clrhash org-element--cache-sync-key= s))))))) (# 2060)) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n= (fn)"] trace-level deactivate-mark get-buffer-create nil make-local-variabl= e window-point-insertion-type t trace--display-buffer 1 trace-entry-message= funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\= 210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207= " vconcat vector [inhibit-trace trace-buffer trace--display-buffer trace-ex= it-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer i= nhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda (buffe= r &optional threshold) "Synchronize cache with recent modification in BUFFE= R.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchronization fo= r all elements starting before or at threshold,\nthen exit. Otherwise, syn= chronize cache for as long as\n`org-element-cache-sync-duration' or until E= macs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-current-b= uffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if org-elem= ent--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer)))= (catch (quote interrupt) (while org-element--cache-sync-requests (setq req= uest ... next ...) (or ... ...) (if next ...) (setq org-element--cache-sync= -requests ...))) (if org-element--cache-sync-requests (org-element--cache-s= et-timer buffer) (clrhash org-element--cache-sync-keys))))))) # 2060) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""]= 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local= -variable window-point-insertion-type t trace--display-buffer 1 trace-entry= -message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\= 306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\26= 2=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer = trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-= buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambd= a (buffer &optional threshold) "Synchronize cache with recent modification = in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchroniz= ation for all elements starting before or at threshold,\nthen exit. Otherw= ise, synchronize cache for as long as\n`org-element-cache-sync-duration' or= until Emacs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-c= urrent-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if = org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-= timer))) (catch (quote interrupt) (while org-element--cache-sync-requests (= setq request ... next ...) (or ... ...) (if next ...) (setq org-element--ca= che-sync-requests ...))) (if org-element--cache-sync-requests (org-element-= -cache-set-timer buffer) (clrhash org-element--cache-sync-keys))))))) (# 2060)) org-element--cache-sync(# 2060) (if (not org-element--cache) (org-element-cache-reset) (org-element--cach= e-sync (current-buffer) origin)) (progn (if (not org-element--cache) (org-element-cache-reset) (org-elemen= t--cache-sync (current-buffer) origin))) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (or= g-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outlin= e-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-rege= xp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-headi= ng-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t = (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-= element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (= org-element--parse-to origin))) (let ((origin (point))) (end-of-line) (skip-chars-backward " =0D \n") (co= nd ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-reg= exp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (= org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)= ) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (= org-element--cache-active-p) (progn (if (not org-element--cache) (org-eleme= nt-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-e= lement--parse-to origin)))) (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-cha= rs-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-= levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-re= gexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-re= gexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parse= r (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-= element--cache) (org-element-cache-reset) (org-element--cache-sync ... orig= in)))) (org-element--parse-to origin))))) (save-excursion (save-restriction (widen) (let ((origin (point))) (end-of= -line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-call= ed-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outl= ine-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p)) (beginning-of= -line) (org-element-headline-parser (point-max) t)) (t (if (org-element--ca= che-active-p) (progn (if ... ... ...))) (org-element--parse-to origin)))))) (lambda nil "Determine closest element around point.\n\nReturn value is a= list like (TYPE PROPS) where TYPE is the type\nof the element and PROPS a = plist of properties associated to the\nelement.\n\nPossible types are defin= ed in `org-element-all-elements'.\nProperties depend on element or object t= ype, but always include\n`:begin', `:end', `:parent' and `:post-blank' prop= erties.\n\nAs a special case, if point is at the very beginning of the firs= t\nitem in a list or sub-list, returned element will be that list\ninstead = of the item. Likewise, if point is at the beginning of\nthe first row of a= table, returned element will be the table\ninstead of the first row.\n\nWh= en point is at the end of the buffer, return the innermost\nelement ending = there." (save-excursion (save-restriction (widen) (let ((origin (point))) (= end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (...= ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline= -parser (point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (= org-element--parse-to origin)))))))() apply((lambda nil "Determine closest element around point.\n\nReturn valu= e is a list like (TYPE PROPS) where TYPE is the type\nof the element and PR= OPS a plist of properties associated to the\nelement.\n\nPossible types are= defined in `org-element-all-elements'.\nProperties depend on element or ob= ject type, but always include\n`:begin', `:end', `:parent' and `:post-blank= ' properties.\n\nAs a special case, if point is at the very beginning of th= e first\nitem in a list or sub-list, returned element will be that list\nin= stead of the item. Likewise, if point is at the beginning of\nthe first ro= w of a table, returned element will be the table\ninstead of the first row.= \n\nWhen point is at the end of the buffer, return the innermost\nelement e= nding there." (save-excursion (save-restriction (widen) (let ((origin (poin= t))) (end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let= * (... ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-he= adline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn .= ..)) (org-element--parse-to origin))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n(fn= )"] trace-level deactivate-mark get-buffer-create nil make-local-variable w= indow-point-insertion-type t trace--display-buffer 1 trace-entry-message fu= ncall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210= db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" v= concat vector [inhibit-trace trace-buffer trace--display-buffer trace-exit-= message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer inhi= bit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda nil "Dete= rmine closest element around point.\n\nReturn value is a list like (TYPE PR= OPS) where TYPE is the type\nof the element and PROPS a plist of properties= associated to the\nelement.\n\nPossible types are defined in `org-element-= all-elements'.\nProperties depend on element or object type, but always inc= lude\n`:begin', `:end', `:parent' and `:post-blank' properties.\n\nAs a spe= cial case, if point is at the very beginning of the first\nitem in a list o= r sub-list, returned element will be that list\ninstead of the item. Likew= ise, if point is at the beginning of\nthe first row of a table, returned el= ement will be the table\ninstead of the first row.\n\nWhen point is at the = end of the buffer, return the innermost\nelement ending there." (save-excur= sion (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-= chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... ...) (org-= at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max)= t)) (t (if (org-element--cache-active-p) (progn ...)) (org-element--parse-= to origin)))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 = "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-va= riable window-point-insertion-type t trace--display-buffer 1 trace-entry-me= ssage funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambda= nil "Determine closest element around point.\n\nReturn value is a list lik= e (TYPE PROPS) where TYPE is the type\nof the element and PROPS a plist of = properties associated to the\nelement.\n\nPossible types are defined in `or= g-element-all-elements'.\nProperties depend on element or object type, but = always include\n`:begin', `:end', `:parent' and `:post-blank' properties.\n= \nAs a special case, if point is at the very beginning of the first\nitem i= n a list or sub-list, returned element will be that list\ninstead of the it= em. Likewise, if point is at the beginning of\nthe first row of a table, r= eturned element will be the table\ninstead of the first row.\n\nWhen point = is at the end of the buffer, return the innermost\nelement ending there." (= save-excursion (save-restriction (widen) (let ((origin (point))) (end-of-li= ne) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... = ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (= point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (org-eleme= nt--parse-to origin))))))) nil) org-element-at-point() (progn (org-element-at-point)) (condition-case nil (progn (org-element-at-point)) (error nil)) (or (condition-case nil (progn (org-element-at-point)) (error nil)) (user= -error "An element cannot be parsed line %d" (line-number-at-pos (point)))) (save-excursion (beginning-of-line) (or (condition-case nil (progn (org-e= lement-at-point)) (error nil)) (user-error "An element cannot be parsed lin= e %d" (line-number-at-pos (point))))) (let* ((p (line-beginning-position)) (element (save-excursion (beginning-= of-line) (or (condition-case nil (progn (org-element-at-point)) (error nil)= ) (user-error "An element cannot be parsed line %d" (line-number-at-pos (po= int)))))) (type (org-element-type element)) (post-affiliated (org-element-p= roperty :post-affiliated element))) (if (and post-affiliated (< p post-affi= liated)) nil (cond ((eql type (quote comment)) (save-excursion (beginning-o= f-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type (q= uote footnote-definition)) "") ((memql type (quote (item plain-list))) (mak= e-string (org-list-item-body-column (or post-affiliated (org-element-proper= ty :begin element))) 32)) ((eql type (quote paragraph)) (let ((parent (org-= element-property :parent element))) (save-excursion (beginning-of-line) (co= nd (... ...) (...) (... ...) (t ""))))) ((eql type (quote comment-block)) (= let* ((cbeg (save-excursion ... ... ...)) (cend (save-excursion ... ... ...= ))) (if (and (>=3D p cbeg) (< p cend)) (progn (if ... ... "")))))))) (save-restriction (widen) (let* ((p (line-beginning-position)) (element (= save-excursion (beginning-of-line) (or (condition-case nil (progn ...) (err= or nil)) (user-error "An element cannot be parsed line %d" (line-number-at-= pos ...))))) (type (org-element-type element)) (post-affiliated (org-elemen= t-property :post-affiliated element))) (if (and post-affiliated (< p post-a= ffiliated)) nil (cond ((eql type (quote comment)) (save-excursion (beginnin= g-of-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type= (quote footnote-definition)) "") ((memql type (quote (item plain-list))) (= make-string (org-list-item-body-column (or post-affiliated ...)) 32)) ((eql= type (quote paragraph)) (let ((parent ...)) (save-excursion (beginning-of-= line) (cond ... ... ... ...)))) ((eql type (quote comment-block)) (let* ((c= beg ...) (cend ...)) (if (and ... ...) (progn ...)))))))) (save-excursion (save-restriction (widen) (let* ((p (line-beginning-posit= ion)) (element (save-excursion (beginning-of-line) (or (condition-case nil = ... ...) (user-error "An element cannot be parsed line %d" ...)))) (type (o= rg-element-type element)) (post-affiliated (org-element-property :post-affi= liated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond= ((eql type (quote comment)) (save-excursion (beginning-of-line) (looking-a= t "[ ]*") (concat ... "# "))) ((eql type (quote footnote-definition)) "") = ((memql type (quote ...)) (make-string (org-list-item-body-column ...) 32))= ((eql type (quote paragraph)) (let (...) (save-excursion ... ...))) ((eql = type (quote comment-block)) (let* (... ...) (if ... ...)))))))) (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sav= e-excursion (beginning-of-line) (cond ((or (not ...) (looking-at orgtbl-lin= e-start-regexp)) (throw (quote exit) nil)) ((looking-at message-cite-prefix= -regexp) (throw (quote exit) (match-string-no-properties 0))) ((looking-at = org-outline-regexp) (throw (quote exit) (make-string ... 32))))))) (save-ex= cursion (save-restriction (widen) (let* ((p (line-beginning-position)) (ele= ment (save-excursion (beginning-of-line) (or ... ...))) (type (org-element-= type element)) (post-affiliated (org-element-property :post-affiliated elem= ent))) (if (and post-affiliated (< p post-affiliated)) nil (cond ((eql type= ...) (save-excursion ... ... ...)) ((eql type ...) "") ((memql type ...) (= make-string ... 32)) ((eql type ...) (let ... ...)) ((eql type ...) (let* .= .. ...)))))))) (lambda nil "Compute a fill prefix for the current line.\nReturn fill pre= fix, as a string, or nil if current line isn't\nmeant to be filled. For co= nvenience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, us= e it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn= (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) (= (looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-o= utline-regexp) (throw ... ...)))))) (save-excursion (save-restriction (wide= n) (let* ((p (line-beginning-position)) (element (save-excursion ... ...)) = (type (org-element-type element)) (post-affiliated (org-element-property :p= ost-affiliated element))) (if (and post-affiliated (< p post-affiliated)) n= il (cond (... ...) (... "") (... ...) (... ...) (... ...))))))))() apply((lambda nil "Compute a fill prefix for the current line.\nReturn fi= ll prefix, as a string, or nil if current line isn't\nmeant to be filled. = For convenience, if `adaptive-fill-regexp'\nmatches in paragraphs or commen= ts, use it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) = (progn (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... n= il)) ((looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at= org-outline-regexp) (throw ... ...)))))) (save-excursion (save-restriction= (widen) (let* ((p (line-beginning-position)) (element (save-excursion ... = ...)) (type (org-element-type element)) (post-affiliated (org-element-prope= rty :post-affiliated element))) (if (and post-affiliated (< p post-affiliat= ed)) nil (cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [""] 1 "\= n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-vari= able window-point-insertion-type t trace--display-buffer 1 trace-entry-mess= age funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda= nil "Compute a fill prefix for the current line.\nReturn fill prefix, as a= string, or nil if current line isn't\nmeant to be filled. For convenience= , if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it." (c= atch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (save-ex= cursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((looking-= at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outline-re= gexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (let* = ((p (line-beginning-position)) (element (save-excursion ... ...)) (type (or= g-element-type element)) (post-affiliated (org-element-property :post-affil= iated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond = (... ...) (... "") (... ...) (... ...) (... ...))))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [= ""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-lo= cal-variable window-point-insertion-type t trace--display-buffer 1 trace-en= try-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13= =00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c= )\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buf= fer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply tr= ace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (l= ambda nil "Compute a fill prefix for the current line.\nReturn fill prefix,= as a string, or nil if current line isn't\nmeant to be filled. For conven= ience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it= ." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sa= ve-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((loo= king-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outli= ne-regexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (= let* ((p (line-beginning-position)) (element (save-excursion ... ...)) (typ= e (org-element-type element)) (post-affiliated (org-element-property :post-= affiliated element))) (if (and post-affiliated (< p post-affiliated)) nil (= cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) org-adaptive-fill-function() fill-match-adaptive-prefix() fill-context-prefix(2060 2221) adaptive-wrap-fill-context-prefix(2060 2221) adaptive-wrap-prefix-function(2060 2222) run-hook-with-args(adaptive-wrap-prefix-function 2060 2222) #[0 "\302\303\300\242\301\242#\207" [(2060) (2222) run-hook-with-args jit= -lock-functions] 4 "\n\n(fn)"]() funcall(#[0 "\302\303\300\242\301\242#\207" [(2060) (2222) run-hook-with-= args jit-lock-functions] 4 "\n\n(fn)"]) jit-lock-fontify-now(2060 2560) jit-lock-function(2060) redisplay_internal\ \(C\ function\)() #+END_EXAMPLE #+BEGIN_EXAMPLE =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2063) | | | 4 -> (org-element--cache-process-request [1984 2172 -14 nil 1] 1989 2= 063 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2063 :end 2224 :contents-be= gin 2063 :contents-end 2223 :post-blank 1 :post-affiliated 2063 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 2062) | 2 -> (org-element--cache-process-request [1984 2172 -14 nil 1] 1989 2062 = nil) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sync (= #) idle 0] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2060) | | | 4 -> (org-element--cache-process-request [(1983 1152921504606846975) = 2063 -1 nil 0] 1984 2060 nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [1984 2172 -15 nil 1] 1989 2= 060 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 1858 :end 2223 :contents-be= gin 1858 :contents-end 2222 :post-blank 1 :post-affiliated 1858 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2062) | | | 4 -> (org-element--cache-process-request [1984 2172 -15 nil 1] 1989 2= 062 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 1858 :end 2223 :contents-be= gin 1858 :contents-end 2222 :post-blank 1 :post-affiliated 1858 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 2061) | 2 -> (org-element--cache-process-request [1984 2172 -15 nil 1] 1989 2061 = nil) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sync (= #) idle 0] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2061) | | | 4 -> (org-element--cache-process-request [(1983 1152921504606846975) = 2223 -1 nil 0] 1984 2061 nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [1984 2172 -16 nil 1] 1989 2= 061 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2061 :end 2222 :contents-be= gin 2061 :contents-end 2221 :post-blank 1 :post-affiliated 2061 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2061) | | | 4 -> (org-element--cache-process-request [1984 2172 -16 nil 1] 1989 2= 061 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2061 :end 2222 :contents-be= gin 2061 :contents-end 2221 :post-blank 1 :post-affiliated 2061 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 2061) | 2 -> (org-element--cache-process-request [1984 2172 -16 nil 1] 1989 2061 = nil) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sync (= #) idle 0] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2060) | | | 4 -> (org-element--cache-process-request [(1983 1152921504606846975) = 2222 -1 nil 0] 1984 2060 nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [1984 2172 -17 nil 1] 1989 2= 060 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 1858 :end 2221 :contents-be= gin 1858 :contents-end 2220 :post-blank 1 :post-affiliated 1858 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2221) | | | 4 -> (org-element--cache-process-request [1984 2172 -17 nil 1] 1989 2= 221 nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [1989 2172 77 nil 2] nil 222= 1 nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2221 :end 2292 :contents-be= gin 2221 :contents-end 2291 :post-blank 1 :post-affiliated 2221 :parent (pa= ragraph (:begin 2155 :end 2316 :contents-begin 2155 :contents-end 2315 :pos= t-blank 1 :post-affiliated 2155 :parent (paragraph (:begin 1858 :end 2221 := contents-begin 1858 :contents-end 2220 :post-blank 1 :post-affiliated 1858 = :parent nil)))))) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 2060) | 2 -> (org-element--cache-process-request [2558 2172 77 nil 2] nil 2060 ni= l) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sync (= #) idle 0] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2060) | | | 4 -> (org-element--cache-process-request [(1983 1152921504606846975) = 2221 1 nil 0] 9763 2060 nil) #+END_EXAMPLE * 3 #+BEGIN_EXAMPLE Debugger entered--beginning evaluation of function call form: * (funcall #[0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210db\210\3= 07\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" [org-elem= ent--cache-process-request nil #[0 "\300\207" [""] 1 "\n\n(fn)"] (nil) inhi= bit-trace trace-buffer trace--display-buffer trace-exit-message !non-local\= exit! trace-level] 6 "\n\n(fn)"]) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element--cache-process-request "*trace-output*" nil #[0 "\300\207" [= ""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-lo= cal-variable window-point-insertion-type t trace--display-buffer 1 trace-en= try-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13= =00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c= )\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buf= fer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply tr= ace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((l= ambda (request next threshold time-limit) "Process synchronization REQUEST = for all entries before NEXT.\n\nREQUEST is a vector, built by `org-element-= -cache-submit-request'.\n\nNEXT is a cache key, as returned by `org-element= --cache-key'.\n\nWhen non-nil, THRESHOLD is a buffer position. Synchroniza= tion\nstops as soon as a shifted element begins after it.\n\nWhen non-nil, = TIME-LIMIT is a time value. Synchronization stops\nafter this time or when= Emacs exits idle state.\n\nReturn nil if the process stops before completi= ng the request,\nt otherwise." (catch (quote quit) (if (=3D (aref request 4= ) 0) (progn (catch (quote end-phase) (let ((beg ...) (end ...) (deleted-par= ent ...)) (while t (if ... ...) (let ... ... ...)))))) (if (=3D (aref reque= st 4) 1) (progn (catch (quote end-phase) (if (equal (aref request 0) next) = (progn (throw ... t))) (let ((limit ...)) (if (and threshold ...) (progn ..= .)) (let (...) (if ... ... ... ... ...)))))) (let ((start (aref request 0))= (offset (aref request 2)) (parent (aref request 3)) (node (org-element--ca= che-root)) (stack (list nil)) (leftp t) exit-flag) (if (and (not parent) (z= erop offset)) (progn (throw (quote quit) t))) (while node (let* ((data (pro= gn ...)) (key (org-element--cache-key data))) (if (and leftp (progn ...) (n= ot ...)) (progn (setq stack ...) (setq node ...)) (if (org-element--cache-k= ey-less-p key start) nil (if ... ...) (if ... ...) (if ... nil ... ...) (le= t ... ... ... ...)) (setq node (if ... ... ...))))) t))) [2191 2672 1 nil 0= ] 2542 2440 nil) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element--cache-process-request "*trace-output*" nil #[0 "\30= 0\207" [""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil= make-local-variable window-point-insertion-type t trace--display-buffer 1 = trace-entry-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301= \204=13=00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\3= 10=04$c)\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--disp= lay-buffer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" a= pply trace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARG= S)"] (lambda (request next threshold time-limit) "Process synchronization R= EQUEST for all entries before NEXT.\n\nREQUEST is a vector, built by `org-e= lement--cache-submit-request'.\n\nNEXT is a cache key, as returned by `org-= element--cache-key'.\n\nWhen non-nil, THRESHOLD is a buffer position. Sync= hronization\nstops as soon as a shifted element begins after it.\n\nWhen no= n-nil, TIME-LIMIT is a time value. Synchronization stops\nafter this time = or when Emacs exits idle state.\n\nReturn nil if the process stops before c= ompleting the request,\nt otherwise." (catch (quote quit) (if (=3D (aref re= quest 4) 0) (progn (catch (quote end-phase) (let ((beg ...) (end ...) (dele= ted-parent ...)) (while t (if ... ...) (let ... ... ...)))))) (if (=3D (are= f request 4) 1) (progn (catch (quote end-phase) (if (equal (aref request 0)= next) (progn (throw ... t))) (let ((limit ...)) (if (and threshold ...) (p= rogn ...)) (let (...) (if ... ... ... ... ...)))))) (let ((start (aref requ= est 0)) (offset (aref request 2)) (parent (aref request 3)) (node (org-elem= ent--cache-root)) (stack (list nil)) (leftp t) exit-flag) (if (and (not par= ent) (zerop offset)) (progn (throw (quote quit) t))) (while node (let* ((da= ta (progn ...)) (key (org-element--cache-key data))) (if (and leftp (progn = ...) (not ...)) (progn (setq stack ...) (setq node ...)) (if (org-element--= cache-key-less-p key start) nil (if ... ...) (if ... ...) (if ... nil ... .= ..) (let ... ... ... ...)) (setq node (if ... ... ...))))) t))) ([2191 2672= 1 nil 0] 2542 2440 nil)) org-element--cache-process-request([2191 2672 1 nil 0] 2542 2440 nil) (or (org-element--cache-process-request request (and next (aref next 0)) = threshold (and (not threshold) (time-add (current-time) org-element-cache-s= ync-duration))) (throw (quote interrupt) t)) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request (and next (aref next 0)) threshold = (and (not threshold) (time-add (current-time) org-element-cache-sync-durati= on))) (throw (quote interrupt) t)) (if next (progn (let* ((v next)) (aset v= 2 (+ (aref v 2) (aref request 2)))) (aset next 1 (aref request 1)) (aset n= ext 4 (aref request 4)))) (setq org-element--cache-sync-requests (cdr org-e= lement--cache-sync-requests))) (catch (quote interrupt) (while org-element--cache-sync-requests (setq re= quest (car org-element--cache-sync-requests) next (nth 1 org-element--cache= -sync-requests)) (or (org-element--cache-process-request request (and next = (aref next 0)) threshold (and (not threshold) (time-add (current-time) org-= element-cache-sync-duration))) (throw (quote interrupt) t)) (if next (progn= (let* ((v next)) (aset v 2 (+ (aref v 2) (aref request 2)))) (aset next 1 = (aref request 1)) (aset next 4 (aref request 4)))) (setq org-element--cache= -sync-requests (cdr org-element--cache-sync-requests)))) (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (p= rogn (cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt= ) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request (and next (aref next 0)) threshold = (and (not threshold) (time-add (current-time) org-element-cache-sync-durati= on))) (throw (quote interrupt) t)) (if next (progn (let* ((v next)) (aset v= 2 (+ ... ...))) (aset next 1 (aref request 1)) (aset next 4 (aref request = 4)))) (setq org-element--cache-sync-requests (cdr org-element--cache-sync-r= equests)))) (if org-element--cache-sync-requests (org-element--cache-set-ti= mer buffer) (clrhash org-element--cache-sync-keys))) (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request n= ext) (if org-element--cache-sync-timer (progn (cancel-timer org-element--ca= che-sync-timer))) (catch (quote interrupt) (while org-element--cache-sync-r= equests (setq request (car org-element--cache-sync-requests) next (nth 1 or= g-element--cache-sync-requests)) (or (org-element--cache-process-request re= quest (and next (aref next 0)) threshold (and (not threshold) (time-add ...= org-element-cache-sync-duration))) (throw (quote interrupt) t)) (if next (= progn (let* (...) (aset v 2 ...)) (aset next 1 (aref request 1)) (aset next= 4 (aref request 4)))) (setq org-element--cache-sync-requests (cdr org-elem= ent--cache-sync-requests)))) (if org-element--cache-sync-requests (org-elem= ent--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))) (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) re= quest next) (if org-element--cache-sync-timer (progn (cancel-timer org-elem= ent--cache-sync-timer))) (catch (quote interrupt) (while org-element--cache= -sync-requests (setq request (car org-element--cache-sync-requests) next (n= th 1 org-element--cache-sync-requests)) (or (org-element--cache-process-req= uest request (and next ...) threshold (and ... ...)) (throw (quote interrup= t) t)) (if next (progn (let* ... ...) (aset next 1 ...) (aset next 4 ...)))= (setq org-element--cache-sync-requests (cdr org-element--cache-sync-reques= ts)))) (if org-element--cache-sync-requests (org-element--cache-set-timer b= uffer) (clrhash org-element--cache-sync-keys))))) (if (buffer-live-p buffer) (progn (save-current-buffer (set-buffer buffer= ) (let ((inhibit-quit t) request next) (if org-element--cache-sync-timer (p= rogn (cancel-timer org-element--cache-sync-timer))) (catch (quote interrupt= ) (while org-element--cache-sync-requests (setq request (car org-element--c= ache-sync-requests) next (nth 1 org-element--cache-sync-requests)) (or (org= -element--cache-process-request request ... threshold ...) (throw ... t)) (= if next (progn ... ... ...)) (setq org-element--cache-sync-requests (cdr or= g-element--cache-sync-requests)))) (if org-element--cache-sync-requests (or= g-element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))= ))) (lambda (buffer &optional threshold) "Synchronize cache with recent modif= ication in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do the\nsy= nchronization for all elements starting before or at threshold,\nthen exit.= Otherwise, synchronize cache for as long as\n`org-element-cache-sync-dura= tion' or until Emacs leaves idle\nstate." (if (buffer-live-p buffer) (progn= (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) request ne= xt) (if org-element--cache-sync-timer (progn (cancel-timer org-element--cac= he-sync-timer))) (catch (quote interrupt) (while org-element--cache-sync-re= quests (setq request ... next ...) (or ... ...) (if next ...) (setq org-ele= ment--cache-sync-requests ...))) (if org-element--cache-sync-requests (org-= element--cache-set-timer buffer) (clrhash org-element--cache-sync-keys)))))= ))(# 2440) apply((lambda (buffer &optional threshold) "Synchronize cache with recent= modification in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do t= he\nsynchronization for all elements starting before or at threshold,\nthen= exit. Otherwise, synchronize cache for as long as\n`org-element-cache-syn= c-duration' or until Emacs leaves idle\nstate." (if (buffer-live-p buffer) = (progn (save-current-buffer (set-buffer buffer) (let ((inhibit-quit t) requ= est next) (if org-element--cache-sync-timer (progn (cancel-timer org-elemen= t--cache-sync-timer))) (catch (quote interrupt) (while org-element--cache-s= ync-requests (setq request ... next ...) (or ... ...) (if next ...) (setq o= rg-element--cache-sync-requests ...))) (if org-element--cache-sync-requests= (org-element--cache-set-timer buffer) (clrhash org-element--cache-sync-key= s))))))) (# 2440)) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n= (fn)"] trace-level deactivate-mark get-buffer-create nil make-local-variabl= e window-point-insertion-type t trace--display-buffer 1 trace-entry-message= funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\= 210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207= " vconcat vector [inhibit-trace trace-buffer trace--display-buffer trace-ex= it-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer i= nhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda (buffe= r &optional threshold) "Synchronize cache with recent modification in BUFFE= R.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchronization fo= r all elements starting before or at threshold,\nthen exit. Otherwise, syn= chronize cache for as long as\n`org-element-cache-sync-duration' or until E= macs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-current-b= uffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if org-elem= ent--cache-sync-timer (progn (cancel-timer org-element--cache-sync-timer)))= (catch (quote interrupt) (while org-element--cache-sync-requests (setq req= uest ... next ...) (or ... ...) (if next ...) (setq org-element--cache-sync= -requests ...))) (if org-element--cache-sync-requests (org-element--cache-s= et-timer buffer) (clrhash org-element--cache-sync-keys))))))) # 2440) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element--cache-sync "*trace-output*" nil #[0 "\300\207" [""]= 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local= -variable window-point-insertion-type t trace--display-buffer 1 trace-entry= -message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\= 306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\26= 2=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer = trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-= buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambd= a (buffer &optional threshold) "Synchronize cache with recent modification = in BUFFER.\nWhen optional argument THRESHOLD is non-nil, do the\nsynchroniz= ation for all elements starting before or at threshold,\nthen exit. Otherw= ise, synchronize cache for as long as\n`org-element-cache-sync-duration' or= until Emacs leaves idle\nstate." (if (buffer-live-p buffer) (progn (save-c= urrent-buffer (set-buffer buffer) (let ((inhibit-quit t) request next) (if = org-element--cache-sync-timer (progn (cancel-timer org-element--cache-sync-= timer))) (catch (quote interrupt) (while org-element--cache-sync-requests (= setq request ... next ...) (or ... ...) (if next ...) (setq org-element--ca= che-sync-requests ...))) (if org-element--cache-sync-requests (org-element-= -cache-set-timer buffer) (clrhash org-element--cache-sync-keys))))))) (# 2440)) org-element--cache-sync(# 2440) (if (not org-element--cache) (org-element-cache-reset) (org-element--cach= e-sync (current-buffer) origin)) (progn (if (not org-element--cache) (org-element-cache-reset) (org-elemen= t--cache-sync (current-buffer) origin))) (if (org-element--cache-active-p) (progn (if (not org-element--cache) (or= g-element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (cond ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outlin= e-regexp (org-get-limited-outline-regexp)) (outline-regexp org-outline-rege= xp) (org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-headi= ng-p)) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t = (if (org-element--cache-active-p) (progn (if (not org-element--cache) (org-= element-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (= org-element--parse-to origin))) (let ((origin (point))) (end-of-line) (skip-chars-backward " =0D \n") (co= nd ((bobp) nil) ((let* ((org-called-with-limited-levels t) (org-outline-reg= exp (org-get-limited-outline-regexp)) (outline-regexp org-outline-regexp) (= org-outline-regexp-bol (concat "^" org-outline-regexp))) (org-at-heading-p)= ) (beginning-of-line) (org-element-headline-parser (point-max) t)) (t (if (= org-element--cache-active-p) (progn (if (not org-element--cache) (org-eleme= nt-cache-reset) (org-element--cache-sync (current-buffer) origin)))) (org-e= lement--parse-to origin)))) (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-cha= rs-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-called-with-limited-= levels t) (org-outline-regexp (org-get-limited-outline-regexp)) (outline-re= gexp org-outline-regexp) (org-outline-regexp-bol (concat "^" org-outline-re= gexp))) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parse= r (point-max) t)) (t (if (org-element--cache-active-p) (progn (if (not org-= element--cache) (org-element-cache-reset) (org-element--cache-sync ... orig= in)))) (org-element--parse-to origin))))) (save-excursion (save-restriction (widen) (let ((origin (point))) (end-of= -line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* ((org-call= ed-with-limited-levels t) (org-outline-regexp ...) (outline-regexp org-outl= ine-regexp) (org-outline-regexp-bol ...)) (org-at-heading-p)) (beginning-of= -line) (org-element-headline-parser (point-max) t)) (t (if (org-element--ca= che-active-p) (progn (if ... ... ...))) (org-element--parse-to origin)))))) (lambda nil "Determine closest element around point.\n\nReturn value is a= list like (TYPE PROPS) where TYPE is the type\nof the element and PROPS a = plist of properties associated to the\nelement.\n\nPossible types are defin= ed in `org-element-all-elements'.\nProperties depend on element or object t= ype, but always include\n`:begin', `:end', `:parent' and `:post-blank' prop= erties.\n\nAs a special case, if point is at the very beginning of the firs= t\nitem in a list or sub-list, returned element will be that list\ninstead = of the item. Likewise, if point is at the beginning of\nthe first row of a= table, returned element will be the table\ninstead of the first row.\n\nWh= en point is at the end of the buffer, return the innermost\nelement ending = there." (save-excursion (save-restriction (widen) (let ((origin (point))) (= end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (...= ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline= -parser (point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (= org-element--parse-to origin)))))))() apply((lambda nil "Determine closest element around point.\n\nReturn valu= e is a list like (TYPE PROPS) where TYPE is the type\nof the element and PR= OPS a plist of properties associated to the\nelement.\n\nPossible types are= defined in `org-element-all-elements'.\nProperties depend on element or ob= ject type, but always include\n`:begin', `:end', `:parent' and `:post-blank= ' properties.\n\nAs a special case, if point is at the very beginning of th= e first\nitem in a list or sub-list, returned element will be that list\nin= stead of the item. Likewise, if point is at the beginning of\nthe first ro= w of a table, returned element will be the table\ninstead of the first row.= \n\nWhen point is at the end of the buffer, return the innermost\nelement e= nding there." (save-excursion (save-restriction (widen) (let ((origin (poin= t))) (end-of-line) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let= * (... ... ... ...) (org-at-heading-p)) (beginning-of-line) (org-element-he= adline-parser (point-max) t)) (t (if (org-element--cache-active-p) (progn .= ..)) (org-element--parse-to origin))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 "\n\n(fn= )"] trace-level deactivate-mark get-buffer-create nil make-local-variable w= indow-point-insertion-type t trace--display-buffer 1 trace-entry-message fu= ncall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306=0D!\210= db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262=01\207" v= concat vector [inhibit-trace trace-buffer trace--display-buffer trace-exit-= message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-buffer inhi= bit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda nil "Dete= rmine closest element around point.\n\nReturn value is a list like (TYPE PR= OPS) where TYPE is the type\nof the element and PROPS a plist of properties= associated to the\nelement.\n\nPossible types are defined in `org-element-= all-elements'.\nProperties depend on element or object type, but always inc= lude\n`:begin', `:end', `:parent' and `:post-blank' properties.\n\nAs a spe= cial case, if point is at the very beginning of the first\nitem in a list o= r sub-list, returned element will be that list\ninstead of the item. Likew= ise, if point is at the beginning of\nthe first row of a table, returned el= ement will be the table\ninstead of the first row.\n\nWhen point is at the = end of the buffer, return the innermost\nelement ending there." (save-excur= sion (save-restriction (widen) (let ((origin (point))) (end-of-line) (skip-= chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... ...) (org-= at-heading-p)) (beginning-of-line) (org-element-headline-parser (point-max)= t)) (t (if (org-element--cache-active-p) (progn ...)) (org-element--parse-= to origin)))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-element-at-point "*trace-output*" nil #[0 "\300\207" [""] 1 = "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-va= riable window-point-insertion-type t trace--display-buffer 1 trace-entry-me= ssage funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (lambda= nil "Determine closest element around point.\n\nReturn value is a list lik= e (TYPE PROPS) where TYPE is the type\nof the element and PROPS a plist of = properties associated to the\nelement.\n\nPossible types are defined in `or= g-element-all-elements'.\nProperties depend on element or object type, but = always include\n`:begin', `:end', `:parent' and `:post-blank' properties.\n= \nAs a special case, if point is at the very beginning of the first\nitem i= n a list or sub-list, returned element will be that list\ninstead of the it= em. Likewise, if point is at the beginning of\nthe first row of a table, r= eturned element will be the table\ninstead of the first row.\n\nWhen point = is at the end of the buffer, return the innermost\nelement ending there." (= save-excursion (save-restriction (widen) (let ((origin (point))) (end-of-li= ne) (skip-chars-backward " =0D \n") (cond ((bobp) nil) ((let* (... ... ... = ...) (org-at-heading-p)) (beginning-of-line) (org-element-headline-parser (= point-max) t)) (t (if (org-element--cache-active-p) (progn ...)) (org-eleme= nt--parse-to origin))))))) nil) org-element-at-point() (progn (org-element-at-point)) (condition-case nil (progn (org-element-at-point)) (error nil)) (or (condition-case nil (progn (org-element-at-point)) (error nil)) (user= -error "An element cannot be parsed line %d" (line-number-at-pos (point)))) (save-excursion (beginning-of-line) (or (condition-case nil (progn (org-e= lement-at-point)) (error nil)) (user-error "An element cannot be parsed lin= e %d" (line-number-at-pos (point))))) (let* ((p (line-beginning-position)) (element (save-excursion (beginning-= of-line) (or (condition-case nil (progn (org-element-at-point)) (error nil)= ) (user-error "An element cannot be parsed line %d" (line-number-at-pos (po= int)))))) (type (org-element-type element)) (post-affiliated (org-element-p= roperty :post-affiliated element))) (if (and post-affiliated (< p post-affi= liated)) nil (cond ((eql type (quote comment)) (save-excursion (beginning-o= f-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type (q= uote footnote-definition)) "") ((memql type (quote (item plain-list))) (mak= e-string (org-list-item-body-column (or post-affiliated (org-element-proper= ty :begin element))) 32)) ((eql type (quote paragraph)) (let ((parent (org-= element-property :parent element))) (save-excursion (beginning-of-line) (co= nd (... ...) (...) (... ...) (t ""))))) ((eql type (quote comment-block)) (= let* ((cbeg (save-excursion ... ... ...)) (cend (save-excursion ... ... ...= ))) (if (and (>=3D p cbeg) (< p cend)) (progn (if ... ... "")))))))) (save-restriction (widen) (let* ((p (line-beginning-position)) (element (= save-excursion (beginning-of-line) (or (condition-case nil (progn ...) (err= or nil)) (user-error "An element cannot be parsed line %d" (line-number-at-= pos ...))))) (type (org-element-type element)) (post-affiliated (org-elemen= t-property :post-affiliated element))) (if (and post-affiliated (< p post-a= ffiliated)) nil (cond ((eql type (quote comment)) (save-excursion (beginnin= g-of-line) (looking-at "[ ]*") (concat (match-string 0) "# "))) ((eql type= (quote footnote-definition)) "") ((memql type (quote (item plain-list))) (= make-string (org-list-item-body-column (or post-affiliated ...)) 32)) ((eql= type (quote paragraph)) (let ((parent ...)) (save-excursion (beginning-of-= line) (cond ... ... ... ...)))) ((eql type (quote comment-block)) (let* ((c= beg ...) (cend ...)) (if (and ... ...) (progn ...)))))))) (save-excursion (save-restriction (widen) (let* ((p (line-beginning-posit= ion)) (element (save-excursion (beginning-of-line) (or (condition-case nil = ... ...) (user-error "An element cannot be parsed line %d" ...)))) (type (o= rg-element-type element)) (post-affiliated (org-element-property :post-affi= liated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond= ((eql type (quote comment)) (save-excursion (beginning-of-line) (looking-a= t "[ ]*") (concat ... "# "))) ((eql type (quote footnote-definition)) "") = ((memql type (quote ...)) (make-string (org-list-item-body-column ...) 32))= ((eql type (quote paragraph)) (let (...) (save-excursion ... ...))) ((eql = type (quote comment-block)) (let* (... ...) (if ... ...)))))))) (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sav= e-excursion (beginning-of-line) (cond ((or (not ...) (looking-at orgtbl-lin= e-start-regexp)) (throw (quote exit) nil)) ((looking-at message-cite-prefix= -regexp) (throw (quote exit) (match-string-no-properties 0))) ((looking-at = org-outline-regexp) (throw (quote exit) (make-string ... 32))))))) (save-ex= cursion (save-restriction (widen) (let* ((p (line-beginning-position)) (ele= ment (save-excursion (beginning-of-line) (or ... ...))) (type (org-element-= type element)) (post-affiliated (org-element-property :post-affiliated elem= ent))) (if (and post-affiliated (< p post-affiliated)) nil (cond ((eql type= ...) (save-excursion ... ... ...)) ((eql type ...) "") ((memql type ...) (= make-string ... 32)) ((eql type ...) (let ... ...)) ((eql type ...) (let* .= .. ...)))))))) (lambda nil "Compute a fill prefix for the current line.\nReturn fill pre= fix, as a string, or nil if current line isn't\nmeant to be filled. For co= nvenience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, us= e it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn= (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) (= (looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-o= utline-regexp) (throw ... ...)))))) (save-excursion (save-restriction (wide= n) (let* ((p (line-beginning-position)) (element (save-excursion ... ...)) = (type (org-element-type element)) (post-affiliated (org-element-property :p= ost-affiliated element))) (if (and post-affiliated (< p post-affiliated)) n= il (cond (... ...) (... "") (... ...) (... ...) (... ...))))))))() apply((lambda nil "Compute a fill prefix for the current line.\nReturn fi= ll prefix, as a string, or nil if current line isn't\nmeant to be filled. = For convenience, if `adaptive-fill-regexp'\nmatches in paragraphs or commen= ts, use it." (catch (quote exit) (if (derived-mode-p (quote message-mode)) = (progn (save-excursion (beginning-of-line) (cond ((or ... ...) (throw ... n= il)) ((looking-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at= org-outline-regexp) (throw ... ...)))))) (save-excursion (save-restriction= (widen) (let* ((p (line-beginning-position)) (element (save-excursion ... = ...)) (type (org-element-type element)) (post-affiliated (org-element-prope= rty :post-affiliated element))) (if (and post-affiliated (< p post-affiliat= ed)) nil (cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) #[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E=18q\2= 10\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036=00=0E= =1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\302\303= =06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262=01+\207= " [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [""] 1 "\= n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-local-vari= able window-point-insertion-type t trace--display-buffer 1 trace-entry-mess= age funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13=00\306= =0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c)\262= =01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buffer t= race-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply trace-b= uffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"]((lambda= nil "Compute a fill prefix for the current line.\nReturn fill prefix, as a= string, or nil if current line isn't\nmeant to be filled. For convenience= , if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it." (c= atch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (save-ex= cursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((looking-= at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outline-re= gexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (let* = ((p (line-beginning-position)) (element (save-excursion ... ...)) (type (or= g-element-type element)) (post-affiliated (org-element-property :post-affil= iated element))) (if (and post-affiliated (< p post-affiliated)) nil (cond = (... ...) (... "") (... ...) (... ...) (... ...))))))))) apply(#[385 "\fT\306\301!\307\303 =01=1D=02=1E=18=03=1C=0E=19\204@=00r=0E= =18q\210\310\311!\210\312=16 \302\204)=00\313=0E=18!\210db\210\f\314U\2036= =00=0E=1Ac\210\315\300\f=06=07=04$c\210)\307C\316\317\320\321\322\323\300\3= 02\303=06 $\324\"\325\326%DC\216\211\327=06=06\"C\240\210)\211\242@\262= =01+\207" [org-adaptive-fill-function "*trace-output*" nil #[0 "\300\207" [= ""] 1 "\n\n(fn)"] trace-level deactivate-mark get-buffer-create nil make-lo= cal-variable window-point-insertion-type t trace--display-buffer 1 trace-en= try-message funcall make-byte-code 0 "\f?\205,=00\302 r=0Dq\210\301\204=13= =00\306=0D!\210db\210\307\300=0E \303\242\203%=00\303\242@\202&=00\310=04$c= )\262=01\207" vconcat vector [inhibit-trace trace-buffer trace--display-buf= fer trace-exit-message !non-local\ exit! trace-level] 6 "\n\n(fn)" apply tr= ace-buffer inhibit-trace trace-separator] 17 "\n\n(fn BODY &rest ARGS)"] (l= ambda nil "Compute a fill prefix for the current line.\nReturn fill prefix,= as a string, or nil if current line isn't\nmeant to be filled. For conven= ience, if `adaptive-fill-regexp'\nmatches in paragraphs or comments, use it= ." (catch (quote exit) (if (derived-mode-p (quote message-mode)) (progn (sa= ve-excursion (beginning-of-line) (cond ((or ... ...) (throw ... nil)) ((loo= king-at message-cite-prefix-regexp) (throw ... ...)) ((looking-at org-outli= ne-regexp) (throw ... ...)))))) (save-excursion (save-restriction (widen) (= let* ((p (line-beginning-position)) (element (save-excursion ... ...)) (typ= e (org-element-type element)) (post-affiliated (org-element-property :post-= affiliated element))) (if (and post-affiliated (< p post-affiliated)) nil (= cond (... ...) (... "") (... ...) (... ...) (... ...)))))))) nil) org-adaptive-fill-function() fill-match-adaptive-prefix() fill-context-prefix(2440 2513) adaptive-wrap-fill-context-prefix(2440 2513) adaptive-wrap-prefix-function(2440 2514) run-hook-with-args(adaptive-wrap-prefix-function 2440 2514) #[0 "\302\303\300\242\301\242#\207" [(2440) (2514) run-hook-with-args jit= -lock-functions] 4 "\n\n(fn)"]() funcall(#[0 "\302\303\300\242\301\242#\207" [(2440) (2514) run-hook-with-= args jit-lock-functions] 4 "\n\n(fn)"]) jit-lock-fontify-now(2440 2940) jit-lock-function(2440) redisplay_internal\ \(C\ function\)() read-key-sequence(nil nil nil t) quail-start-translation(107) quail-input-method(107) #+END_EXAMPLE #+BEGIN_EXAMPLE =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2440) | | | 4 -> (org-element--cache-process-request [2510 nil 1 nil 2] 2511 2440= nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [2511 nil 5 nil 2] 2542 2440= nil) | | | 4 <- org-element--cache-process-request: t | | | 4 -> (org-element--cache-process-request [2542 nil 26 nil 2] nil 2440= nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2440 :end 2512 :contents-be= gin 2440 :contents-end 2511 :post-blank 1 :post-affiliated 2440 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | 2 <- org-element-at-point: (headline (:raw-value #1=3D"This is another te= st" :begin 2512 :end 11714 :pre-blank 1 :contents-begin 2536 :contents-end = 11714 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :po= st-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil :CATEGORY= nil :title #1#)) 1 <- org-adaptive-fill-function: nil =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2440) | | | 4 -> (org-element--cache-process-request [2542 nil 26 nil 2] nil 2440= nil) | | | 4 <- org-element--cache-process-request: nil | | 3 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sy= nc (#) idle 0] | 2 <- org-element-at-point: (paragraph (:begin 2440 :end 2512 :contents-be= gin 2440 :contents-end 2511 :post-blank 1 :post-affiliated 2440 :parent nil= )) 1 <- org-adaptive-fill-function: "" =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-element--cache-sync # 2510) | 2 -> (org-element--cache-process-request [2542 nil 26 nil 2] nil 2510 nil) | 2 <- org-element--cache-process-request: nil 1 <- org-element--cache-sync: [nil 0 0 400000 nil org-element--cache-sync (= #) idle 0] =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D= =3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D 1 -> (org-adaptive-fill-function) | 2 -> (org-element-at-point) | | 3 -> (org-element--cache-sync # 2440) | | | 4 -> (org-element--cache-process-request [2191 2672 1 nil 0] 2542 244= 0 nil) #+END_EXAMPLE --=-=-= Content-Type: text/plain -- Daimrod/Greg --=-=-=--