Re: [O] BUG in org-lint and tangle

[Rainer M Krug]

I just want to bring this bug to attention again.

Confirmed with

GNU Emacs 24.5.1 (x86_64-apple-darwin14.5.0, Carbon Version 157 AppKit 1348.17) 
of 2015-08-28 on Rainers-MacBook-Pro.local

starter with -Q

obviously there only for tangle.

Cheers

Rainer


Rainer M Krug <address@hidden> writes:

> The following R file causes an crash of the org-lint function and of
> tangling -
> backtrace attached. The problem seems to be the missing specification of
> :exports.
>
>
> * Test
> #+begin_src R :exports 
> #+end_src
>
>
> Cheers,
>
> Rainer
>
> ,----
> | Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> |   string-match("[ \f        \n.]+" nil 0)
> |   split-string(nil)
> |   (funcall e-merge exports-exclusive-groups exports (split-string (cdr 
> pair)))
> |   (setq exports (funcall e-merge exports-exclusive-groups exports 
> (split-string (cdr pair))))
> | (cond ((eql temp (quote :var)) (let ((name (if (listp (cdr pair))
> (car (cdr pair)) (and (string-match "^\\([^= \f \n.]+\\)[ ]*=" ...)
> (intern ...))))) (if name (setq vars (append (if (member name ...)
> (progn ... ...) vars) (list (cons name pair)))) (if (and vars (nth
> variable-index vars)) (let ((name ...)) (setq clearnames (cons name
> clearnames)) (prog1 (let* ... ...) (setq variable-index ...))) (error
> "Variable \"%s\" must be assigned a default value" (cdr pair))))))
> ((eql temp (quote :results)) (setq results (funcall e-merge
> results-exclusive-groups results (split-string (let ((r ...)) (if
> (stringp r) r (eval r))))))) ((eql temp (quote :file)) (if (cdr pair)
> (progn (setq results (funcall e-merge results-exclusive-groups results
> (quote ("file")))) (if (or (member "both" exports) (member "none"
> exports) (member "code" exports)) nil (setq exports (funcall e-merge
> exports-exclusive-groups exports (quote ...)))) (setq params (cons
> pair (assq-delete-all (car pair) params)))))) ((eql temp (quote
> :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge
> results-exclusive-groups results (quote ("file")))) (if (or (member
> "both" exports) (member "none" exports) (member "code" exports)) nil
> (setq exports (funcall e-merge exports-exclusive-groups exports (quote
> ...)))) (setq params (cons pair (assq-delete-all (car pair)
> params)))))) ((eql temp (quote :exports)) (setq exports (funcall
> e-merge exports-exclusive-groups exports (split-string (cdr pair)))))
> ((eql temp (quote :tangle)) (setq tangle (or (list (cdr pair))
> tangle))) ((eql temp (quote :noweb)) (setq noweb (funcall e-merge
> (quote (("yes" "no" "tangle" "no-export" "strip-export" "eval")))
> noweb (split-string (or (cdr pair) ""))))) ((eql temp (quote :cache))
> (setq cache (funcall e-merge (quote (("yes" "no"))) cache
> (split-string (or (cdr pair) ""))))) ((eql temp (quote :padline))
> (setq padline (funcall e-merge (quote (("yes" "no"))) padline
> (split-string (or (cdr pair) ""))))) ((eql temp (quote :shebang))
> (setq shebang (or (list (cdr pair)) shebang))) ((eql temp (quote
> :comments)) (setq comments (funcall e-merge (quote (("yes" "no")))
> comments (split-string (or (cdr pair) ""))))) (t (setq params (cons
> pair (assq-delete-all (car pair) params)))))
> | (let* ((temp (car pair))) (cond ((eql temp (quote :var)) (let ((name
> (if (listp ...) (car ...) (and ... ...)))) (if name (setq vars (append
> (if ... ... vars) (list ...))) (if (and vars (nth variable-index
> vars)) (let (...) (setq clearnames ...) (prog1 ... ...)) (error
> "Variable \"%s\" must be assigned a default value" (cdr pair))))))
> ((eql temp (quote :results)) (setq results (funcall e-merge
> results-exclusive-groups results (split-string (let (...) (if ... r
> ...)))))) ((eql temp (quote :file)) (if (cdr pair) (progn (setq
> results (funcall e-merge results-exclusive-groups results (quote
> ...))) (if (or (member "both" exports) (member "none" exports) (member
> "code" exports)) nil (setq exports (funcall e-merge
> exports-exclusive-groups exports ...))) (setq params (cons pair
> (assq-delete-all ... params)))))) ((eql temp (quote :file-ext)) (if
> (cdr pair) (progn (setq results (funcall e-merge
> results-exclusive-groups results (quote ...))) (if (or (member "both"
> exports) (member "none" exports) (member "code" exports)) nil (setq
> exports (funcall e-merge exports-exclusive-groups exports ...))) (setq
> params (cons pair (assq-delete-all ... params)))))) ((eql temp (quote
> :exports)) (setq exports (funcall e-merge exports-exclusive-groups
> exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq
> tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb))
> (setq noweb (funcall e-merge (quote (("yes" "no" "tangle" "no-export"
> "strip-export" "eval"))) noweb (split-string (or (cdr pair) "")))))
> ((eql temp (quote :cache)) (setq cache (funcall e-merge (quote (("yes"
> "no"))) cache (split-string (or (cdr pair) ""))))) ((eql temp (quote
> :padline)) (setq padline (funcall e-merge (quote (("yes" "no")))
> padline (split-string (or (cdr pair) ""))))) ((eql temp (quote
> :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql temp
> (quote :comments)) (setq comments (funcall e-merge (quote (("yes"
> "no"))) comments (split-string (or (cdr pair) ""))))) (t (setq params
> (cons pair (assq-delete-all (car pair) params))))))
> | (lambda (pair) (let* ((temp (car pair))) (cond ((eql temp (quote
> :var)) (let ((name (if ... ... ...))) (if name (setq vars (append
> ... ...)) (if (and vars ...) (let ... ... ...) (error "Variable \"%s\"
> must be assigned a default value" ...))))) ((eql temp (quote
> :results)) (setq results (funcall e-merge results-exclusive-groups
> results (split-string (let ... ...))))) ((eql temp (quote :file)) (if
> (cdr pair) (progn (setq results (funcall e-merge
> results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq
> exports ...)) (setq params (cons pair ...))))) ((eql temp (quote
> :file-ext)) (if (cdr pair) (progn (setq results (funcall e-merge
> results-exclusive-groups results ...)) (if (or ... ... ...) nil (setq
> exports ...)) (setq params (cons pair ...))))) ((eql temp (quote
> :exports)) (setq exports (funcall e-merge exports-exclusive-groups
> exports (split-string (cdr pair))))) ((eql temp (quote :tangle)) (setq
> tangle (or (list (cdr pair)) tangle))) ((eql temp (quote :noweb))
> (setq noweb (funcall e-merge (quote (...)) noweb (split-string (or
> ... ""))))) ((eql temp (quote :cache)) (setq cache (funcall e-merge
> (quote (...)) cache (split-string (or ... ""))))) ((eql temp (quote
> :padline)) (setq padline (funcall e-merge (quote (...)) padline
> (split-string (or ... ""))))) ((eql temp (quote :shebang)) (setq
> shebang (or (list (cdr pair)) shebang))) ((eql temp (quote :comments))
> (setq comments (funcall e-merge (quote (...)) comments (split-string
> (or ... ""))))) (t (setq params (cons pair (assq-delete-all (car pair)
> params)))))))((:exports))
> | mapc((lambda (pair) (let* ((temp (car pair))) (cond ((eql temp
> (quote :var)) (let ((name (if ... ... ...))) (if name (setq vars
> (append ... ...)) (if (and vars ...) (let ... ... ...) (error
> "Variable \"%s\" must be assigned a default value" ...))))) ((eql temp
> (quote :results)) (setq results (funcall e-merge
> results-exclusive-groups results (split-string (let ... ...))))) ((eql
> temp (quote :file)) (if (cdr pair) (progn (setq results (funcall
> e-merge results-exclusive-groups results ...)) (if (or ... ... ...)
> nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp
> (quote :file-ext)) (if (cdr pair) (progn (setq results (funcall
> e-merge results-exclusive-groups results ...)) (if (or ... ... ...)
> nil (setq exports ...)) (setq params (cons pair ...))))) ((eql temp
> (quote :exports)) (setq exports (funcall e-merge
> exports-exclusive-groups exports (split-string (cdr pair))))) ((eql
> temp (quote :tangle)) (setq tangle (or (list (cdr pair)) tangle)))
> ((eql temp (quote :noweb)) (setq noweb (funcall e-merge (quote (...))
> noweb (split-string (or ... ""))))) ((eql temp (quote :cache)) (setq
> cache (funcall e-merge (quote (...)) cache (split-string (or
> ... ""))))) ((eql temp (quote :padline)) (setq padline (funcall
> e-merge (quote (...)) padline (split-string (or ... ""))))) ((eql temp
> (quote :shebang)) (setq shebang (or (list (cdr pair)) shebang))) ((eql
> temp (quote :comments)) (setq comments (funcall e-merge (quote (...))
> comments (split-string (or ... ""))))) (t (setq params (cons pair
> (assq-delete-all (car pair) params))))))) ((:exports)))
> | (lambda (plist) (mapc (function (lambda (pair) (let* ((temp (car
> pair))) (cond ((eql temp ...) (let ... ...)) ((eql temp ...) (setq
> results ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (if
> ... ...)) ((eql temp ...) (setq exports ...)) ((eql temp ...) (setq
> tangle ...)) ((eql temp ...) (setq noweb ...)) ((eql temp ...) (setq
> cache ...)) ((eql temp ...) (setq padline ...)) ((eql temp ...) (setq
> shebang ...)) ((eql temp ...) (setq comments ...)) (t (setq params
> ...)))))) plist))(((:exports)))
> | mapc((lambda (plist) (mapc (function (lambda (pair) (let* ((temp
> (car pair))) (cond ((eql temp ...) (let ... ...)) ((eql temp ...)
> (setq results ...)) ((eql temp ...) (if ... ...)) ((eql temp ...) (if
> ... ...)) ((eql temp ...) (setq exports ...)) ((eql temp ...) (setq
> tangle ...)) ((eql temp ...) (setq noweb ...)) ((eql temp ...) (setq
> cache ...)) ((eql temp ...) (setq padline ...)) ((eql temp ...) (setq
> shebang ...)) ((eql temp ...) (setq comments ...)) (t (setq params
> ...)))))) plist)) (((:noweb . "no") (:session . "none") (:results
> . "replace") (:exports . "code") (:cache . "no") (:hlines . "no")
> (:tangle . "no")) nil nil nil nil nil ((:exports))))
> | (let* ((results-exclusive-groups (mapcar (function (lambda (group)
> (mapcar (function symbol-name) group))) (cdr (assoc (quote results)
> org-babel-common-header-args-w-values)))) (exports-exclusive-groups
> (mapcar (function (lambda (group) (mapcar (function symbol-name)
> group))) (cdr (assoc (quote exports)
> org-babel-common-header-args-w-values)))) (variable-index 0) (e-merge
> (function (lambda (exclusive-groups &rest result-params) (let (output)
> (mapc (function ...) result-params) output)))) params results exports
> tangle noweb cache vars shebang comments padline clearnames) (mapc
> (function (lambda (plist) (mapc (function (lambda (pair) (let*
> ... ...))) plist))) plists) (setq vars (reverse vars)) (while vars
> (setq params (cons (cons :var (cdr (cdr (car-safe ...)))) params)))
> (mapc (function (lambda (name) (mapc (function (lambda (param) (if
> ... ...))) (list :colname-names :rowname-names)))) clearnames) (mapc
> (function (lambda (hd) (let ((key (intern ...)) (val (eval hd))) (setq
> params (cons (cons key ...) params))))) (quote (results exports tangle
> noweb padline cache shebang comments))) params)
> | org-babel-merge-params(((:noweb . "no") (:session . "none")
> (:results . "replace") (:exports . "code") (:cache . "no") (:hlines
> . "no") (:tangle . "no")) nil nil nil nil nil ((:exports)))
> | apply(org-babel-merge-params ((:noweb . "no") (:session . "none")
> (:results . "replace") (:exports . "code") (:cache . "no") (:hlines
> . "no") (:tangle . "no")) nil (nil nil nil nil ((:exports))))
> | (org-babel-process-params (apply (function org-babel-merge-params)
> org-babel-default-header-args (and language (let ((v (intern (concat
> "org-babel-default-header-args:" language)))) (and (boundp v)
> (symbol-value v)))) (append (list (and (memq type (quote (babel-call
> inline-babel-call))) org-babel-default-lob-header-args)) (progn
> (goto-char (org-element-property :begin datum))
> (org-babel-params-from-properties language)) (list
> (org-babel-parse-header-arguments (org-trim (cond (... ...) (... ...)
> (t ...))))))))
> | (let* ((type (org-element-type datum)) (language
> (org-element-property :language datum)) (allowed-header-values (append
> (and language (let ((v ...)) (and (boundp v) (symbol-value v))))
> org-babel-common-header-args-w-values)) (datum-header-values
> (org-babel-process-params (apply (function org-babel-merge-params)
> org-babel-default-header-args (and language (let (...) (and ... ...)))
> (append (list (and ... org-babel-default-lob-header-args)) (progn
> (goto-char ...) (org-babel-params-from-properties language)) (list
> (org-babel-parse-header-arguments ...))))))) (let ((--dolist-tail--
> datum-header-values)) (while --dolist-tail-- (let ((header (car
> --dolist-tail--))) (let ((allowed-values (cdr ...))) (if (memq
> allowed-values (quote ...)) nil (let (... groups-alist) (let
> ... ...)))) (setq --dolist-tail-- (cdr --dolist-tail--))))))
> | (closure ((reports) (ast org-data nil (headline (:raw-value "Test"
> :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44
> :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil
> :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent
> (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9
> :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3)
> (src-block (:language "R" :switches nil :parameters ":exports" :begin
> 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t
> :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated
> 9 :parent #4))))) cl-struct-org-lint-checker-tags t) (datum) (let*
> ((type (org-element-type datum)) (language (org-element-property
> :language datum)) (allowed-header-values (append (and language (let
> (...) (and ... ...))) org-babel-common-header-args-w-values))
> (datum-header-values (org-babel-process-params (apply (function
> org-babel-merge-params) org-babel-default-header-args (and language
> (let ... ...)) (append (list ...) (progn ... ...) (list ...)))))) (let
> ((--dolist-tail-- datum-header-values)) (while --dolist-tail-- (let
> ((header (car --dolist-tail--))) (let ((allowed-values ...)) (if (memq
> allowed-values ...) nil (let ... ...))) (setq --dolist-tail-- (cdr
> --dolist-tail--)))))))((src-block (:language "R" :switches nil
> :parameters ":exports" :begin 9 :end 44 :number-lines nil
> :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent (section (:begin 9
> :end 44 :contents-begin 9 :contents-end 44 :post-blank 0
> :post-affiliated 9 :parent (headline (:raw-value "Test" :begin 1 :end
> 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority
> nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0
> :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil
> #4)) #2)) #0))))
> | #[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects]
> 6]((src-block (:language "R" :switches nil :parameters ":exports"
> :begin 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels
> t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent (section (:begin 9 :end 44 :contents-begin
> 9 :contents-end 44 :post-blank 0 :post-affiliated 9 :parent (headline
> (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9
> :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil
> :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
> :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent
> (org-data nil #4)) #2)) #0))))
> | mapc(#[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects] 6]
> ((src-block (:language "R" :switches nil :parameters ":exports" :begin
> 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t
> :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated
> 9 :parent (section (:begin 9 :end 44 :contents-begin 9 :contents-end
> 44 :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value
> "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end
> 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil
> :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 ...)) :parent (org-data nil
> #5)) #3)) #1)))))
> | #[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects]
> 6]((section (:begin 9 :end 44 :contents-begin 9 :contents-end 44
> :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test"
> :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44
> :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil
> :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #2))) :parent
> (org-data nil #2)) #0)) (src-block (:language "R" :switches nil
> :parameters ":exports" :begin 9 :end 44 :number-lines nil
> :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent #0))))
> | mapc(#[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects] 6]
> ((section (:begin 9 :end 44 :contents-begin 9 :contents-end 44
> :post-blank 0 :post-affiliated 9 :parent (headline (:raw-value "Test"
> :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44
> :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil
> :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent
> (org-data nil #3)) #1)) (src-block (:language "R" :switches nil
> :parameters ":exports" :begin 9 :end 44 :number-lines nil
> :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent #1)))))
> | #[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects]
> 6]((headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1
> :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #0))) :parent (org-data nil #0)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #0) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #1)))))
> | mapc(#[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects] 6]
> ((headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1
> :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #1))) :parent (org-data nil #1)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #1) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #2))))))
> | #[(--data) "\211.:\204.. ;\205..\306\202.. @9\205..
> @).?\206\337.\203,.\307\310\">\206\337.\n\2047.\311\f\"\202\337.\n\312=\203\\.\311\f\211.:\204J.\313\202W.
>  @9\203V. AA\202W. 
> )\"\202\337.\n.>\203\202...!\211..\203\201...\203z.\314\315..\"\210\202\201.....B..)..\316=\203\312.;address@hidden
>  ;\203\266.\317\320..
> #\202\275.\307
> address@hidden"*!\210..A\211..\204\234.*..\203\202...\316=\203\202.\n..>\203\202..\313.
>  address@hidden @. A... ;\203..\317\320..
> #\202.\307
> address@hidden"*.!.\".!\203w..\".#\235\203_..\"address@hidden@address@hidden".$\235\203r.\311\f\321.!!\"\210\202w.\f.!!\210*..A\211..\204\350.*\n.&>\206\337.\211.:\204\224.\313\202\241.
>  @9\203\240. AA\202\241. 
> )?\206\337...\322=\203\265.\n.'>?\206\337...\323=\203\303.\n.(>\206\337.\311\f\211.:\204\320.\313\202\335.
>  @9\203\334. AA\202\335. )\")\207"
> [--data element --type info --walk-tree types plain-text plist-get
> :ignore-list mapc org-data nil throw --map-first-match objects
> get-text-property 0 reverse greater-elements elements fun result
> first-match --acc --category org-element-secondary-value-alist p
> --dolist-tail-- property with-affiliated org-element-all-elements
> org-element--parsed-properties-alist kwd-pair value kwd
> org-element-dual-keywords org-element-multiple-keywords line
> no-recursion org-element-greater-elements org-element-all-objects]
> 6]((org-data nil (headline (:raw-value "Test" :begin 1 :end 44
> :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil
> :tags nil :todo-keyword nil :todo-type nil :post-blank 0
> :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0)
> (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44
> :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R"
> :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines
> nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent #2))))))
> | org-element-map((org-data nil (headline (:raw-value "Test" :begin 1
> :end 44 :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1
> :priority nil :tags nil :todo-keyword nil :todo-type nil :post-blank 0
> :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0)
> (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44
> :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R"
> :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines
> nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent #2))))) (babel-call
> inline-babel-call inline-src-block src-block) (closure ((reports) (ast
> org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank
> 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #3) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #4))))) cl-struct-org-lint-checker-tags t)
> (datum) (let* ((type (org-element-type datum)) (language
> (org-element-property :language datum)) (allowed-header-values (append
> (and language (let (...) (and ... ...)))
> org-babel-common-header-args-w-values)) (datum-header-values
> (org-babel-process-params (apply (function org-babel-merge-params)
> org-babel-default-header-args (and language (let ... ...)) (append
> (list ...) (progn ... ...) (list ...)))))) (let ((--dolist-tail--
> datum-header-values)) (while --dolist-tail-- (let ((header (car
> --dolist-tail--))) (let ((allowed-values ...)) (if (memq
> allowed-values ...) nil (let ... ...))) (setq --dolist-tail-- (cdr
> --dolist-tail--))))))))
> | (let (reports) (org-element-map ast (quote (babel-call
> inline-babel-call inline-src-block src-block)) (function (lambda
> (datum) (let* ((type (org-element-type datum)) (language
> (org-element-property :language datum)) (allowed-header-values (append
> ... org-babel-common-header-args-w-values)) (datum-header-values
> (org-babel-process-params ...))) (let ((--dolist-tail--
> datum-header-values)) (while --dolist-tail-- (let ... ... ...)))))))
> reports)
> | org-lint-wrong-header-value((org-data nil (headline (:raw-value
> "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9 :contents-end
> 44 :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil
> :post-blank 0 :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #1))) :parent #0)
> (section (:begin 9 :end 44 :contents-begin 9 :contents-end 44
> :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language "R"
> :switches nil :parameters ":exports" :begin 9 :end 44 :number-lines
> nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil
> :value "" :post-blank 0 :post-affiliated 9 :parent #2))))))
> | funcall(org-lint-wrong-header-value (org-data nil (headline
> (:raw-value "Test" :begin 1 :end 44 :pre-blank 1 :contents-begin 9
> :contents-end 44 :level 1 :priority nil :tags nil :todo-keyword nil
> :todo-type nil :post-blank 0 :footnote-section-p nil :archivedp nil
> :commentedp nil :post-affiliated 1 :title (#("Test" 0 4 (:parent #1)))
> :parent #0) (section (:begin 9 :end 44 :contents-begin 9 :contents-end
> 44 :post-blank 0 :post-affiliated 9 :parent #1) (src-block (:language
> "R" :switches nil :parameters ":exports" :begin 9 :end 44
> :number-lines nil :preserve-indent nil :retain-labels t :use-labels t
> :label-fmt nil :value "" :post-blank 0 :post-affiliated 9 :parent
> #2))))))
> | (save-excursion (funcall (intern (format "org-lint-%s" (progn nil
> (or (progn nil (and ... ... ... t)) (signal (quote
> wrong-type-argument) (list ... c))) (aref c 1)))) ast))
> | (mapcar (function (lambda (report) (list (car report) trust (nth 1
> report) c))) (save-excursion (funcall (intern (format "org-lint-%s"
> (progn nil (or (progn nil ...) (signal ... ...)) (aref c 1)))) ast)))
> | (let ((trust (symbol-name (progn nil (or (progn nil (and
> ... ... ... t)) (signal (quote wrong-type-argument) (list ... c)))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil (or ... ...) (aref c 1)))) ast))))
> | (closure ((last-pos . 1) (last-line . 1) (id . 0) (ast org-data nil
> (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank 1
> :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #3) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #4))))) (checkers
> [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer
> . #<buffer lint.org>) cl-struct-org-lint-checker-tags t) (c) (let
> ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil ... ...)))
> ast)))))([cl-struct-org-lint-checker wrong-header-value "Report
> invalid value in babel headers" (babel) low])
> | mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast
> org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank
> 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #3) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #4))))) (checkers
> [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer
> . #<buffer lint.org>) cl-struct-org-lint-checker-tags t) (c) (let
> ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil ... ...))) ast)))))
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]))
> | cl-mapcar((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast
> org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank
> 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #3) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #4))))) (checkers
> [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer
> . #<buffer lint.org>) cl-struct-org-lint-checker-tags t) (c) (let
> ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil ... ...))) ast)))))
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]))
> | apply(cl-mapcar (closure ((last-pos . 1) (last-line . 1) (id . 0)
> (ast org-data nil (headline (:raw-value "Test" :begin 1 :end 44
> :pre-blank 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil
> :tags nil :todo-keyword nil :todo-type nil :post-blank 0
> :footnote-section-p nil :archivedp nil :commentedp nil
> :post-affiliated 1 :title (#("Test" 0 4 (:parent #3))) :parent
> (org-data nil #3)) (section (:begin 9 :end 44 :contents-begin 9
> :contents-end 44 :post-blank 0 :post-affiliated 9 :parent #3)
> (src-block (:language "R" :switches nil :parameters ":exports" :begin
> 9 :end 44 :number-lines nil :preserve-indent nil :retain-labels t
> :use-labels t :label-fmt nil :value "" :post-blank 0 :post-affiliated
> 9 :parent #4))))) (checkers [cl-struct-org-lint-checker
> duplicate-custom-id "Report duplicates CUSTOM_ID properties" (link)
> high] [cl-struct-org-lint-checker duplicate-name "Report duplicate
> NAME values" (babel link) high] [cl-struct-org-lint-checker
> duplicate-target "Report duplicate targets" (link) high]
> [cl-struct-org-lint-checker duplicate-footnote-definition "Report
> duplicate footnote definitions" (footnote) high]
> [cl-struct-org-lint-checker orphaned-affiliated-keywords "Report
> orphaned affiliated keywords" (default) low]
> [cl-struct-org-lint-checker obsolete-affiliated-keywords "Report
> obsolete affiliated keywords" (obsolete) high]
> [cl-struct-org-lint-checker deprecated-header-syntax "Report
> deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer
> . #<buffer lint.org>) cl-struct-org-lint-checker-tags t) (c) (let
> ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil ... ...))) ast)))))
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) nil)
> | cl-mapcan((closure ((last-pos . 1) (last-line . 1) (id . 0) (ast
> org-data nil (headline (:raw-value "Test" :begin 1 :end 44 :pre-blank
> 1 :contents-begin 9 :contents-end 44 :level 1 :priority nil :tags nil
> :todo-keyword nil :todo-type nil :post-blank 0 :footnote-section-p nil
> :archivedp nil :commentedp nil :post-affiliated 1 :title (#("Test" 0 4
> (:parent #3))) :parent (org-data nil #3)) (section (:begin 9 :end 44
> :contents-begin 9 :contents-end 44 :post-blank 0 :post-affiliated 9
> :parent #3) (src-block (:language "R" :switches nil :parameters
> ":exports" :begin 9 :end 44 :number-lines nil :preserve-indent nil
> :retain-labels t :use-labels t :label-fmt nil :value "" :post-blank 0
> :post-affiliated 9 :parent #4))))) (checkers
> [cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]) (buffer
> . #<buffer lint.org>) cl-struct-org-lint-checker-tags t) (c) (let
> ((trust (symbol-name (progn nil (or (progn nil ...) (signal ... ...))
> (aref c 4))))) (mapcar (function (lambda (report) (list (car report)
> trust (nth 1 report) c))) (save-excursion (funcall (intern (format
> "org-lint-%s" (progn nil ... ...))) ast)))))
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]))
> | (sort (cl-mapcan (function (lambda (c) (let ((trust (symbol-name
> ...))) (mapcar (function (lambda ... ...)) (save-excursion (funcall
> ... ast)))))) checkers) (function car-less-than-car))
> | (mapcar (function (lambda (report) (list (setq id (1+ id)) (apply
> (function vector) (cons (progn (goto-char ...) (beginning-of-line)
> (prog1 ... ...)) (cdr report)))))) (sort (cl-mapcan (function (lambda
> (c) (let ((trust ...)) (mapcar (function ...) (save-excursion ...)))))
> checkers) (function car-less-than-car)))
> | (let ((ast (org-element-parse-buffer)) (id 0) (last-line 1)
> (last-pos 1)) (mapcar (function (lambda (report) (list (setq id (1+
> id)) (apply (function vector) (cons (progn ... ... ...) (cdr
> report)))))) (sort (cl-mapcan (function (lambda (c) (let (...) (mapcar
> ... ...)))) checkers) (function car-less-than-car))))
> | (save-excursion (goto-char (point-min)) (let ((ast
> (org-element-parse-buffer)) (id 0) (last-line 1) (last-pos 1)) (mapcar
> (function (lambda (report) (list (setq id (1+ id)) (apply (function
> vector) (cons ... ...))))) (sort (cl-mapcan (function (lambda (c) (let
> ... ...))) checkers) (function car-less-than-car)))))
> | (save-current-buffer (set-buffer buffer) (save-excursion (goto-char
> (point-min)) (let ((ast (org-element-parse-buffer)) (id 0) (last-line
> 1) (last-pos 1)) (mapcar (function (lambda (report) (list (setq id
> ...) (apply ... ...)))) (sort (cl-mapcan (function (lambda ... ...))
> checkers) (function car-less-than-car))))))
> | org-lint--generate-reports(#<buffer lint.org>
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]))
> |   (setq tabulated-list-entries (org-lint--generate-reports 
> org-lint--source-buffer org-lint--local-checkers))
> |   org-lint--refresh-reports()
> | (save-current-buffer (set-buffer buffer) (org-lint--report-mode)
> (setq org-lint--source-buffer source) (setq org-lint--local-checkers
> checkers) (org-lint--refresh-reports) (tabulated-list-print) (add-hook
> (quote tabulated-list-revert-hook) (function
> org-lint--refresh-reports) nil t))
> | (let ((buffer (get-buffer-create "*Org Lint*")))
> (save-current-buffer (set-buffer buffer) (org-lint--report-mode) (setq
> org-lint--source-buffer source) (setq org-lint--local-checkers
> checkers) (org-lint--refresh-reports) (tabulated-list-print) (add-hook
> (quote tabulated-list-revert-hook) (function
> org-lint--refresh-reports) nil t)) (pop-to-buffer buffer))
> | org-lint--display-reports(#<buffer lint.org>
> ([cl-struct-org-lint-checker duplicate-custom-id "Report duplicates
> CUSTOM_ID properties" (link) high] [cl-struct-org-lint-checker
> duplicate-name "Report duplicate NAME values" (babel link) high]
> [cl-struct-org-lint-checker duplicate-target "Report duplicate
> targets" (link) high] [cl-struct-org-lint-checker
> duplicate-footnote-definition "Report duplicate footnote definitions"
> (footnote) high] [cl-struct-org-lint-checker
> orphaned-affiliated-keywords "Report orphaned affiliated keywords"
> (default) low] [cl-struct-org-lint-checker
> obsolete-affiliated-keywords "Report obsolete affiliated keywords"
> (obsolete) high] [cl-struct-org-lint-checker deprecated-header-syntax
> "Report deprecated Babel header syntax" (babel obsolete) low]
> [cl-struct-org-lint-checker missing-language-in-src-block "Report
> missing language in src blocks" (babel) high]
> [cl-struct-org-lint-checker invalid-babel-call-block "Report invalid
> Babel call blocks" (babel) high] [cl-struct-org-lint-checker
> colon-in-name "Report NAME values with a colon" (babel) high]
> [cl-struct-org-lint-checker wrong-header-argument "Report wrong babel
> headers" (babel) high] [cl-struct-org-lint-checker wrong-header-value
> "Report invalid value in babel headers" (babel) low]
> [cl-struct-org-lint-checker deprecated-category-setup "Report misuse
> of CATEGORY keyword" (obsolete) high] [cl-struct-org-lint-checker
> invalid-coderef-link "Report \"coderef\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-custom-id-link "Report \"custom-id\" links with unknown
> destination" (link) high] [cl-struct-org-lint-checker
> invalid-fuzzy-link "Report \"fuzzy\" links with unknown destination"
> (link) high] [cl-struct-org-lint-checker invalid-id-link "Report
> \"id\" links with unknown destination" (link) high]
> [cl-struct-org-lint-checker link-to-local-file "Report links to
> non-existent local files" (link) low] [cl-struct-org-lint-checker
> non-existent-setupfile-parameter "Report SETUPFILE keywords with
> non-existent file parameter" (default) low]
> [cl-struct-org-lint-checker wrong-include-link-parameter "Report
> INCLUDE keywords with misleading link parameter" (export) low]
> [cl-struct-org-lint-checker unknown-options-item "Report unknown items
> in OPTIONS keyword" (export) low] [cl-struct-org-lint-checker
> invalid-macro-argument-and-template "Report spurious macro arguments
> or invalid macro templates" (export) low] [cl-struct-org-lint-checker
> special-property-in-properties-drawer "Report special properties in
> properties drawers" (properties) high] [cl-struct-org-lint-checker
> obsolete-properties-drawer "Report obsolete syntax for properties
> drawers" (obsolete properties) high] [cl-struct-org-lint-checker
> undefined-footnote-reference "Report missing definition for footnote
> references" (footnote) high] [cl-struct-org-lint-checker
> unreferenced-footnote-definition "Report missing reference for
> footnote definitions" (footnote) high] [cl-struct-org-lint-checker
> extraneous-element-in-footnote-section "Report non-footnote
> definitions in footnote section" (footnote) high]
> [cl-struct-org-lint-checker invalid-keyword-syntax "Report probable
> invalid keywords" (default) low] [cl-struct-org-lint-checker
> invalid-block "Report invalid blocks" (default) low]
> [cl-struct-org-lint-checker misplaced-planning-info "Report misplaced
> planning info line" (default) low] [cl-struct-org-lint-checker
> incomplete-drawer "Report probable incomplete drawers" (default) low]
> [cl-struct-org-lint-checker indented-diary-sexp "Report probable
> indented diary-sexps" (default) low] [cl-struct-org-lint-checker
> quote-section "Report obsolete QUOTE section" (obsolete) low]))
> | (if (not (with-no-warnings (called-interactively-p nil)))
> (org-lint--generate-reports (current-buffer) checkers)
> (org-lint--display-reports (current-buffer) checkers) (message "Org
> linting process completed"))
> | (let ((checkers (let* ((pcase-0 (function (lambda nil ...)))) (cond
> ((null arg) (let nil org-lint--checkers)) ((consp arg) (let* (...)
> (cond ... ... ...))) (t (let nil (user-error "Invalid argument `%S'
> for `org-lint'" arg))))))) (if (not (with-no-warnings
> (called-interactively-p nil))) (org-lint--generate-reports
> (current-buffer) checkers) (org-lint--display-reports (current-buffer)
> checkers) (message "Org linting process completed")))
> |   org-lint(nil)
> |   funcall-interactively(org-lint nil)
> |   call-interactively(org-lint record nil)
> |   command-execute(org-lint record)
> |   execute-extended-command(nil "org-lint")
> | smex-read-and-run(("org-lint" "rename-buffer" "package-autoremove"
> "package-list-packages" "magit-status" "recover-this-file"
> "desktop-read" "list-packages" "gnus" "revert-buffer" "load-theme"
> "notmuch-search" "shell" "rmk/org-edit-src-code-plus-name"
> "org-reload" "org-toggle-latex-fragment" "google-contacts"
> "sr-speedbar-toggle" "R" "org-babel-execute-subtree" "org-info"
> "ess-debug-command-next" "notmuch" "org2blog/wp-post-subtree"
> "google-this" "load-library" "emacs-version" "grep" "org-version"
> "apropos" "eval-last-sexp" "hs-hide-all" "org-mobile-push"
> "org2blog/wp-login" "pdf-tools-install" "speedbar"
> "projectile-find-file" "org-agenda" "server-start"
> "projectile-find-tag" "package-install" "beginning-of-buffer"
> "rmk/mac-switch-meta" "tabbar-backward-tab" "imenu-add-to-menubar"
> "add-file-local-variable" "ess-rdired" "search-forward"
> "org-mobile-pull" "sr-speedbar-open" ...))
> |   smex()
> |   funcall-interactively(smex)
> |   call-interactively(smex nil nil)
> |   command-execute(smex)
> `----

-- 
Rainer M. Krug, PhD (Conservation Ecology, SUN), MSc (Conservation Biology, 
UCT), Dipl. Phys. (Germany)

Centre of Excellence for Invasion Biology
Stellenbosch University
South Africa

Tel :       +33 - (0)9 53 10 27 44
Cell:       +33 - (0)6 85 62 59 98
Fax :       +33 - (0)9 58 10 27 44

Fax (D):    +49 - (0)3 21 21 25 22 44

email:      address@hidden

Skype:      RMkrug

PGP: 0x0F52F982

signature.asc
Description: PGP signature