Hi Ihor,
I start Emacs this way:
emacs -Q -l .uemacs testfile.org
In the Emacs window I move the cursor to the #+Call: line and press C-c
C-c.
Then the error happens.
I just ran this with the following versions of Emacs and Org:
GNU Emacs 30.2 (build 1, x86_64-unknown-openbsd, GTK+ Version 2.24.33, cairo
version 1.18.4) of 2026-05-30
Org mode version 10.0-pre (release_9.8.9-472-gc8286c @
/home/roklein/ot/org-mode/lisp/)
When I do the steps above after 'toggle-debug-on-error' I get this:
Debugger entered--Lisp error: (wrong-type-argument sequencep hline)
mapc(#f(lambda (x) :dynbind (message (format "%s" x))) hline)
do-table((hline ("entry11" "entry12" "entry13") ("entry21" "entry22"
"entry23")))
(if (cdr table) (do-table (cdr table)) nil)
do-table((("head1" "head2" "head3") hline ("entry11" "entry12" "entry13")
("entry21" "entry22" "entry23")))
(let ((table '(("head1" "head2" "head3") hline ("entry11" "entry12"
"entry13") ("entry21" "entry22" "entry23")))) (defun do-table (table) (mapc
(lambda (x) (message (format "%s" x))) (car table)) (if (cdr table) (do-table
(cdr table)) nil)) (do-table table))
(progn (let ((table '(("head1" "head2" "head3") hline ("entry11" "entry12"
"entry13") ("entry21" "entry22" "entry23")))) (defun do-table (table) (mapc
(lambda (x) (message (format "%s" x))) (car table)) (if (cdr table) (do-table
(cdr table)) nil)) (do-table table)))
eval((progn (let ((table '(("head1" "head2" "head3") hline ("entry11"
"entry12" "entry13") ("entry21" "entry22" "entry23")))) (defun do-table (table)
(mapc (lambda (x) (message (format "%s" x))) (car table)) (if (cdr table)
(do-table (cdr table)) nil)) (do-table table))) nil)
(let* ((lexical (cdr (assq :lexical params))) (session (cdr (assq :session
params))) (result-params (cdr (assq :result-params params))) (body (format (if
(member "output" result-params) "(with-output-to-string %s\n)" "(progn %s\n)")
(org-babel-expand-body:emacs-lisp body params))) (result (eval (read (if (or
(member "code" result-params) (member "pp" result-params)) (concat
"(pp-to-string " body ")") body)) (org-babel-emacs-lisp-lexical lexical)))) (if
(and session (not (equal session "none"))) (progn (error "ob-emacs-lisp backend
does not support sessions"))) (let ((--params result-params)) (if (member
"discard" --params) nil (if (or (member "scalar" --params) (member "verbatim"
--params) (member "html" --params) (member "code" --params) (member "pp"
--params) (member "file" --params) (and (or (member "output" --params) (member
"raw" --params) (member "org" --params)) (not (member "table" --params)))) (let
((print-level nil) (print-length nil)) (if (or (member "scalar" result-params)
(member "verbatim" result-params)) (format "%S" result) (format "%s" result)))
(org-babel-reassemble-table result (org-babel-pick-name (cdr (assq
:colname-names params)) (cdr (assq :colnames params))) (org-babel-pick-name
(cdr (assq :rowname-names params)) (cdr (assq :rownames params))))))))
org-babel-execute:emacs-lisp("\n(defun do-table (table)\n (mapc (lambda (x)
(message (format \"%s\" x))) (car table))\n\n (if (cdr table)\n (do-table
(cdr table))\n ()))\n\n(do-table table)" ((:var table ("head1" "head2"
"head3") hline ("entry11" "entry12" "entry13") ("entry21" "entry22" "entry23"))
(:colname-names) (:rowname-names) (:result-params "replace") (:result-type .
value) (:results . "replace") (:exports . "results") (:lexical . "no") (:tangle
. "no") (:hlines . "no") (:noweb . "no") (:cache . "no") (:session . "none")))
funcall(org-babel-execute:emacs-lisp "\n(defun do-table (table)\n (mapc
(lambda (x) (message (format \"%s\" x))) (car table))\n\n (if (cdr table)\n
(do-table (cdr table))\n ()))\n\n(do-table table)" ((:var table ("head1"
"head2" "head3") hline ("entry11" "entry12" "entry13") ("entry21" "entry22"
"entry23")) (:colname-names) (:rowname-names) (:result-params "replace")
(:result-type . value) (:results . "replace") (:exports . "results") (:lexical
. "no") (:tangle . "no") (:hlines . "no") (:noweb . "no") (:cache . "no")
(:session . "none")))
(save-excursion (funcall cmd body params))
(let ((r (save-excursion (funcall cmd body params)))) (if (and (eq (cdr (assq
:result-type params)) 'value) (or (member "vector" result-params) (member
"table" result-params)) (not (listp r))) (list (list r)) r))
(setq result (let ((r (save-excursion (funcall cmd body params)))) (if (and
(eq (cdr (assq :result-type params)) 'value) (or (member "vector"
result-params) (member "table" result-params)) (not (listp r))) (list (list r))
r)))
(progn (setq exec-start-time (current-time)) (setq result (let ((r
(save-excursion (funcall cmd body params)))) (if (and (eq (cdr (assq
:result-type params)) 'value) (or (member "vector" result-params) (member
"table" result-params)) (not (listp r))) (list (list r)) r))))
(let* ((lang (nth 0 info)) (result-params (cdr (assq :result-params params)))
(body (org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp
(cdr (assq :mkdirp params))) (default-directory (cond ((not dir)
default-directory) ((let* ((session ...)) (if session (buffer-local-value ...
...)))) ((member mkdirp '("no" "nil" nil)) (file-name-as-directory
(expand-file-name dir))) (t (let ((d ...)) (make-directory d 'parents) d))))
(cmd (intern (concat "org-babel-execute:" lang))) result exec-start-time) (if
(fboundp cmd) nil (error "No org-babel-execute function for %s!" lang)) (if
noninteractive nil (message "Executing %s %s %s..." (capitalize lang) (cond
((eq executor-type 'src-block) (let nil "code block")) ((eq executor-type
'inline-src-block) (let nil "inline code block")) ((eq executor-type
'babel-call) (let nil "call")) ((eq executor-type 'inline-babel-call) (let nil
"inline call")) (t (let ((e executor-type)) (symbol-name e)))) (let ((name (nth
4 info))) (if name (format "(%s)" name) (format "at position %S" (nth 5
info)))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r
(save-excursion (funcall cmd body params)))) (if (and (eq (cdr ...) 'value) (or
(member "vector" result-params) (member "table" result-params)) (not (listp
r))) (list (list r)) r)))) (let ((file (and (member "file" result-params) (cdr
(assq :file params))))) (if file (progn (if (and result (not (or ... ...)))
(progn (let (... ...) (unwind-protect ... ...)) (if (assq :file-mode params)
(progn ...)))) (setq result file))) (let ((post (cdr (assq :post params)))) (if
post (progn (let ((*this* ...)) (setq result (org-babel-ref-resolve post)) (if
file (progn ...)))))) (if (and (member "none" result-params) (not (and cache
(eq 'cached org-babel-update-intermediate)))) nil (org-babel-insert-result
result result-params info (if (member "replace" result-params) (progn
new-hash)) lang (time-subtract (current-time) exec-start-time)))) (run-hooks
'org-babel-after-execute-hook) result)
(cond (current-cache (save-excursion (goto-char
(org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " \11") (let ((result (org-babel-read-result))) (if
noninteractive nil (message (format "Cached: %s" (replace-regexp-in-string "%"
"%%" ...)))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0
info)) (result-params (cdr (assq :result-params params))) (body
(org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr
(assq :mkdirp params))) (default-directory (cond ((not dir) default-directory)
((let* ... ...)) ((member mkdirp ...) (file-name-as-directory ...)) (t (let ...
... d)))) (cmd (intern (concat "org-babel-execute:" lang))) result
exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function
for %s!" lang)) (if noninteractive nil (message "Executing %s %s %s..."
(capitalize lang) (cond ((eq executor-type ...) (let nil "code block")) ((eq
executor-type ...) (let nil "inline code block")) ((eq executor-type ...) (let
nil "call")) ((eq executor-type ...) (let nil "inline call")) (t (let ...
...))) (let ((name ...)) (if name (format "(%s)" name) (format "at position %S"
...))))) (progn (setq exec-start-time (current-time)) (setq result (let ((r
...)) (if (and ... ... ...) (list ...) r)))) (let ((file (and (member "file"
result-params) (cdr ...)))) (if file (progn (if (and result ...) (progn ...
...)) (setq result file))) (let ((post (cdr ...))) (if post (progn (let ... ...
...)))) (if (and (member "none" result-params) (not (and cache ...))) nil
(org-babel-insert-result result result-params info (if (member "replace"
result-params) (progn new-hash)) lang (time-subtract (current-time)
exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result)))
(let* ((params (nth 2 info)) (cache (let ((c (cdr (assq :cache params))))
(and (not arg) c (string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash
info :eval))) (old-hash (and cache (org-babel-current-result-hash)))
(current-cache (and new-hash (equal new-hash old-hash)))) (cond (current-cache
(save-excursion (goto-char (org-babel-where-is-src-block-result nil info))
(forward-line) (skip-chars-forward " \11") (let ((result
(org-babel-read-result))) (if noninteractive nil (message (format "Cached: %s"
...))) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info))
(result-params (cdr (assq :result-params params))) (body
(org-babel--expand-body info)) (dir (cdr (assq :dir params))) (mkdirp (cdr
(assq :mkdirp params))) (default-directory (cond (... default-directory) (...)
(... ...) (t ...))) (cmd (intern (concat "org-babel-execute:" lang))) result
exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function
for %s!" lang)) (if noninteractive nil (message "Executing %s %s %s..."
(capitalize lang) (cond (... ...) (... ...) (... ...) (... ...) (t ...)) (let
(...) (if name ... ...)))) (progn (setq exec-start-time (current-time)) (setq
result (let (...) (if ... ... r)))) (let ((file (and ... ...))) (if file (progn
(if ... ...) (setq result file))) (let ((post ...)) (if post (progn ...))) (if
(and (member "none" result-params) (not ...)) nil (org-babel-insert-result
result result-params info (if ... ...) lang (time-subtract ...
exec-start-time)))) (run-hooks 'org-babel-after-execute-hook) result))))
(progn (let* ((c (nthcdr 2 info))) (setcar c (org-babel-process-params (car
c)))) (let* ((params (nth 2 info)) (cache (let ((c (cdr ...))) (and (not arg) c
(string= "yes" c)))) (new-hash (and cache (org-babel-sha1-hash info :eval)))
(old-hash (and cache (org-babel-current-result-hash))) (current-cache (and
new-hash (equal new-hash old-hash)))) (cond (current-cache (save-excursion
(goto-char (org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " \11") (let ((result ...)) (if noninteractive nil (message
...)) result))) ((org-babel-confirm-evaluate info) (let* ((lang (nth 0 info))
(result-params (cdr ...)) (body (org-babel--expand-body info)) (dir (cdr ...))
(mkdirp (cdr ...)) (default-directory (cond ... ... ... ...)) (cmd (intern
...)) result exec-start-time) (if (fboundp cmd) nil (error "No
org-babel-execute function for %s!" lang)) (if noninteractive nil (message
"Executing %s %s %s..." (capitalize lang) (cond ... ... ... ... ...) (let ...
...))) (progn (setq exec-start-time (current-time)) (setq result (let ...
...))) (let ((file ...)) (if file (progn ... ...)) (let (...) (if post ...))
(if (and ... ...) nil (org-babel-insert-result result result-params info ...
lang ...))) (run-hooks 'org-babel-after-execute-hook) result)))))
(if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2 info)))
(setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2 info))
(cache (let ((c ...)) (and (not arg) c (string= "yes" c)))) (new-hash (and
cache (org-babel-sha1-hash info :eval))) (old-hash (and cache
(org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash
old-hash)))) (cond (current-cache (save-excursion (goto-char
(org-babel-where-is-src-block-result nil info)) (forward-line)
(skip-chars-forward " \11") (let (...) (if noninteractive nil ...) result)))
((org-babel-confirm-evaluate info) (let* ((lang ...) (result-params ...) (body
...) (dir ...) (mkdirp ...) (default-directory ...) (cmd ...) result
exec-start-time) (if (fboundp cmd) nil (error "No org-babel-execute function
for %s!" lang)) (if noninteractive nil (message "Executing %s %s %s..." ... ...
...)) (progn (setq exec-start-time ...) (setq result ...)) (let (...) (if file
...) (let ... ...) (if ... nil ...)) (run-hooks 'org-babel-after-execute-hook)
result))))))
(let* ((org-babel-current-src-block-location (or
org-babel-current-src-block-location (nth 5 info)
(org-babel-where-is-src-block-head))) (info (if info (copy-tree info)
(org-babel-get-src-block-info))) (executor-type (or executor-type (let* ((val
(and org-babel-current-src-block-location ...))) (cond ((eql val 115) (let nil
...)) ((eql val 99) (let nil ...)) ((eql val 35) (let nil ...)) (t (let nil
...))))))) (let* ((c (nthcdr 2 info))) (setcar c (org-babel-merge-params (car
c) params))) (if (org-babel-check-evaluate info) (progn (let* ((c (nthcdr 2
info))) (setcar c (org-babel-process-params (car c)))) (let* ((params (nth 2
info)) (cache (let (...) (and ... c ...))) (new-hash (and cache
(org-babel-sha1-hash info :eval))) (old-hash (and cache
(org-babel-current-result-hash))) (current-cache (and new-hash (equal new-hash
old-hash)))) (cond (current-cache (save-excursion (goto-char ...)
(forward-line) (skip-chars-forward " \11") (let ... ... result)))
((org-babel-confirm-evaluate info) (let* (... ... ... ... ... ... ... result
exec-start-time) (if ... nil ...) (if noninteractive nil ...) (progn ... ...)
(let ... ... ... ...) (run-hooks ...) result)))))))
org-babel-execute-src-block(nil ("emacs-lisp" "\n(defun do-table (table)\n
(mapc (lambda (x) (message (format \"%s\" x))) (car table))\n\n (if (cdr
table)\n (do-table (cdr table))\n ()))\n\n(do-table table)" ((:results
. "replace") (:exports . "results") (:var . "table=mytable") (:session .
"none") (:cache . "no") (:noweb . "no") (:hlines . "no") (:tangle . "no")
(:lexical . "no") (:result-type . value) (:result-params "replace")
(:rowname-names) (:colname-names)) nil nil 160 "(ref:%s)") nil babel-call)
(progn (org-babel-execute-src-block nil info nil type))
(if info (progn (org-babel-execute-src-block nil info nil type)))
(let ((info (org-babel-lob-get-info context))) (if info (progn
(org-babel-execute-src-block nil info nil type))))
(let nil (let ((info (org-babel-lob-get-info context))) (if info (progn
(org-babel-execute-src-block nil info nil type)))))
(cond ((memq type '(src-block inline-src-block)) (let nil (if
org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffer)
(org-babel-execute-src-block current-prefix-arg (org-babel-get-src-block-info
nil context))))) ((org-match-line "[ \11]*$") (let nil (or
(run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful
here"))))) ((memq type '(inline-babel-call babel-call)) (let nil (let ((info
(org-babel-lob-get-info context))) (if info (progn (org-babel-execute-src-block
nil info nil type)))))) ((eq type 'clock) (let nil (if (org-at-timestamp-p
'lax) (org-timestamp-change 0 'day) (org-clock-update-time-maybe)))) ((eq type
'dynamic-block) (let nil (save-excursion (goto-char
(org-element-post-affiliated context)) (org-update-dblock)))) ((eq type
'footnote-definition) (let nil (goto-char (org-element-post-affiliated
context)) (call-interactively 'org-footnote-action))) ((eq type
'footnote-reference) (let nil (call-interactively #'org-footnote-action)))
((memq type '(inlinetask headline)) (let nil (save-excursion (goto-char
(org-element-begin context)) (call-interactively #'org-set-tags-command))))
((eq type 'item) (let nil (if (or radio-list-p (and (boundp
org-list-checkbox-radio-mode) org-list-checkbox-radio-mode))
(org-toggle-radio-button arg) (let* ((box (org-element--property :checkbox
context nil nil)) (struct (let ... ...)) (struct (copy-tree struct))
(old-struct (copy-tree struct)) (parents (org-list-parents-alist struct))
(prevs (org-list-prevs-alist struct)) (orderedp (org-not-nil ...)))
(org-list-set-checkbox (org-element-begin context) struct (cond (... "[-]")
(... "[ ]") (... nil) (... "[ ]") (t "[X]"))) (org-list-struct-fix-ind struct
parents 2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul
struct prevs) (org-list-struct-fix-ind struct parents) (let ((block-item ...))
(if (and box ...) (if ... ... ...) (org-list-struct-apply-struct struct
old-struct) (org-update-checkbox-count-maybe)) (if block-item (progn ...)))))))
((eq type 'plain-list) (let nil (if (or radio-list-p (and (boundp
org-list-checkbox-radio-mode) org-list-checkbox-radio-mode))
(org-toggle-radio-button arg) (let* ((begin (org-element-contents-begin
context)) (struct (let ... ...)) (struct (copy-tree struct)) (old-struct
(copy-tree struct)) (first-box (save-excursion ... ... ...)) (new-box (cond ...
... ... ...))) (cond (arg (let ... ...)) ((and first-box ...)
(org-list-set-checkbox begin struct new-box))) (if (equal
(org-list-write-struct struct ... old-struct) old-struct) (progn (message
"Cannot update this checkbox"))) (org-update-checkbox-count-maybe))))) ((eq
type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t)
(org-startup-align-all-tables nil)) (if (boundp 'org-table-coordinate-overlays)
(progn (mapc #'delete-overlay org-table-coordinate-overlays) (setq
org-table-coordinate-overlays nil))) (let* ((--regions
(org-fold-core-get-regions :with-markers ...))) (unwind-protect (progn
(org-mode-restart)) (save-excursion (save-restriction ... ... ...))))) (message
"Local setup has been refreshed"))) ((memq type '(node-property
property-drawer)) (let nil (call-interactively #'org-property-action))) ((eq
type 'radio-target) (let nil (call-interactively
#'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (let nil
(call-interactively #'org-update-statistics-cookies))) ((memq type '(table-row
table-cell table)) (let nil (cond ((and (org-match-line "[ \11]*#\\+plot:") (<
(point) (org-element-post-affiliated context))) (org-plot/gnuplot)) ((eq
(org-element--property :type context nil nil) 'table.el) (message "%s"
(substitute-command-keys "\\<org-mode-map>Use `\\[org-edit-special]' to edit
table.el tables"))) ((or (eq type 'table) (and (eq type ...) (= ... ...)))
(save-excursion (if (org-at-TBLFM-p) (org-table-calc-current-TBLFM) (goto-char
...) (org-call-with-arg ... ...) (orgtbl-send-table ...)))) (t
(org-table-maybe-eval-formula) (cond (arg (call-interactively ...))
((org-table-maybe-recalculate-line)) (t (org-table-align))))))) ((eq type
'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond ((org-at-timestamp-p
'lax) (funcall pcase-1)) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((null type) (cond
((org-at-heading-p) (let nil (call-interactively #'org-set-tags-command)))
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t
(funcall pcase-0)))) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))
(let* ((pcase-1 #'(lambda nil (org-timestamp-change 0 'day))) (pcase-0
#'(lambda nil (user-error (substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can
do nothing useful here"))))) (cond ((memq type '(src-block inline-src-block))
(let nil (if org-babel-no-eval-on-ctrl-c-ctrl-c nil
(org-babel-eval-wipe-error-buffer) (org-babel-execute-src-block
current-prefix-arg (org-babel-get-src-block-info nil context)))))
((org-match-line "[ \11]*$") (let nil (or (run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) (user-error (substitute-command-keys
"`\\[org-ctrl-c-ctrl-c]' can do nothing useful here"))))) ((memq type
'(inline-babel-call babel-call)) (let nil (let ((info (org-babel-lob-get-info
context))) (if info (progn (org-babel-execute-src-block nil info nil type))))))
((eq type 'clock) (let nil (if (org-at-timestamp-p 'lax) (org-timestamp-change
0 'day) (org-clock-update-time-maybe)))) ((eq type 'dynamic-block) (let nil
(save-excursion (goto-char (org-element-post-affiliated context))
(org-update-dblock)))) ((eq type 'footnote-definition) (let nil (goto-char
(org-element-post-affiliated context)) (call-interactively
'org-footnote-action))) ((eq type 'footnote-reference) (let nil
(call-interactively #'org-footnote-action))) ((memq type '(inlinetask
headline)) (let nil (save-excursion (goto-char (org-element-begin context))
(call-interactively #'org-set-tags-command)))) ((eq type 'item) (let nil (if
(or radio-list-p (and (boundp org-list-checkbox-radio-mode)
org-list-checkbox-radio-mode)) (org-toggle-radio-button arg) (let* ((box ...)
(struct ...) (struct ...) (old-struct ...) (parents ...) (prevs ...) (orderedp
...)) (org-list-set-checkbox (org-element-begin context) struct (cond ... ...
... ... ...)) (org-list-struct-fix-ind struct parents 2)
(org-list-struct-fix-item-end struct) (org-list-struct-fix-bul struct prevs)
(org-list-struct-fix-ind struct parents) (let (...) (if ... ... ... ...) (if
block-item ...)))))) ((eq type 'plain-list) (let nil (if (or radio-list-p (and
(boundp org-list-checkbox-radio-mode) org-list-checkbox-radio-mode))
(org-toggle-radio-button arg) (let* ((begin ...) (struct ...) (struct ...)
(old-struct ...) (first-box ...) (new-box ...)) (cond (arg ...) (... ...)) (if
(equal ... old-struct) (progn ...)) (org-update-checkbox-count-maybe))))) ((eq
type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t)
(org-startup-align-all-tables nil)) (if (boundp 'org-table-coordinate-overlays)
(progn (mapc ... org-table-coordinate-overlays) (setq
org-table-coordinate-overlays nil))) (let* ((--regions ...)) (unwind-protect
(progn ...) (save-excursion ...)))) (message "Local setup has been
refreshed"))) ((memq type '(node-property property-drawer)) (let nil
(call-interactively #'org-property-action))) ((eq type 'radio-target) (let nil
(call-interactively #'org-update-radio-target-regexp))) ((eq type
'statistics-cookie) (let nil (call-interactively
#'org-update-statistics-cookies))) ((memq type '(table-row table-cell table))
(let nil (cond ((and (org-match-line "[ \11]*#\\+plot:") (< ... ...))
(org-plot/gnuplot)) ((eq (org-element--property :type context nil nil)
'table.el) (message "%s" (substitute-command-keys "\\<org-mode-map>Use
`\\[org-edit-special]' to edit table.el tables"))) ((or (eq type ...) (and ...
...)) (save-excursion (if ... ... ... ... ...))) (t
(org-table-maybe-eval-formula) (cond (arg ...) (...) (t ...)))))) ((eq type
'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond ((org-at-timestamp-p
'lax) (funcall pcase-1)) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((null type) (cond
((org-at-heading-p) (let nil (call-interactively #'org-set-tags-command)))
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t
(funcall pcase-0)))) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0))))
(let* ((context (org-element-lineage (org-element-context) '(babel-call clock
dynamic-block footnote-definition footnote-reference inline-babel-call
inline-src-block inlinetask item keyword node-property paragraph plain-list
planning property-drawer radio-target src-block statistics-cookie table
table-cell table-row timestamp) t)) (radio-list-p (org-at-radio-list-p)) (type
(org-element-type context))) (if (eq type 'paragraph) (progn (let ((parent
(org-element-parent context))) (if (and (eq (org-element-type parent t) 'item)
(= (line-beginning-position) (org-element-begin parent))) (progn (setq context
parent) (setq type 'item)))))) (let* ((pcase-1 #'(lambda nil
(org-timestamp-change 0 'day))) (pcase-0 #'(lambda nil (user-error
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful
here"))))) (cond ((memq type '(src-block inline-src-block)) (let nil (if
org-babel-no-eval-on-ctrl-c-ctrl-c nil (org-babel-eval-wipe-error-buffer)
(org-babel-execute-src-block current-prefix-arg (org-babel-get-src-block-info
nil context))))) ((org-match-line "[ \11]*$") (let nil (or
(run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) (user-error
(substitute-command-keys "`\\[org-ctrl-c-ctrl-c]' can do nothing useful
here"))))) ((memq type '(inline-babel-call babel-call)) (let nil (let ((info
...)) (if info (progn ...))))) ((eq type 'clock) (let nil (if
(org-at-timestamp-p 'lax) (org-timestamp-change 0 'day)
(org-clock-update-time-maybe)))) ((eq type 'dynamic-block) (let nil
(save-excursion (goto-char (org-element-post-affiliated context))
(org-update-dblock)))) ((eq type 'footnote-definition) (let nil (goto-char
(org-element-post-affiliated context)) (call-interactively
'org-footnote-action))) ((eq type 'footnote-reference) (let nil
(call-interactively #'org-footnote-action))) ((memq type '(inlinetask
headline)) (let nil (save-excursion (goto-char (org-element-begin context))
(call-interactively #'org-set-tags-command)))) ((eq type 'item) (let nil (if
(or radio-list-p (and ... org-list-checkbox-radio-mode))
(org-toggle-radio-button arg) (let* (... ... ... ... ... ... ...)
(org-list-set-checkbox ... struct ...) (org-list-struct-fix-ind struct parents
2) (org-list-struct-fix-item-end struct) (org-list-struct-fix-bul struct prevs)
(org-list-struct-fix-ind struct parents) (let ... ... ...))))) ((eq type
'plain-list) (let nil (if (or radio-list-p (and ...
org-list-checkbox-radio-mode)) (org-toggle-radio-button arg) (let* (... ... ...
... ... ...) (cond ... ...) (if ... ...) (org-update-checkbox-count-maybe)))))
((eq type 'keyword) (let nil (let ((org-inhibit-startup-visibility-stuff t)
(org-startup-align-all-tables nil)) (if (boundp ...) (progn ... ...)) (let*
(...) (unwind-protect ... ...))) (message "Local setup has been refreshed")))
((memq type '(node-property property-drawer)) (let nil (call-interactively
#'org-property-action))) ((eq type 'radio-target) (let nil (call-interactively
#'org-update-radio-target-regexp))) ((eq type 'statistics-cookie) (let nil
(call-interactively #'org-update-statistics-cookies))) ((memq type '(table-row
table-cell table)) (let nil (cond ((and ... ...) (org-plot/gnuplot)) ((eq ...
...) (message "%s" ...)) ((or ... ...) (save-excursion ...)) (t
(org-table-maybe-eval-formula) (cond ... ... ...))))) ((eq type 'timestamp)
(funcall pcase-1)) ((eq type 'planning) (cond ((org-at-timestamp-p 'lax)
(funcall pcase-1)) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))) ((null type) (cond
((org-at-heading-p) (let nil (call-interactively ...)))
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t
(funcall pcase-0)))) ((run-hook-with-args-until-success
'org-ctrl-c-ctrl-c-final-hook) 'nil) (t (funcall pcase-0)))))
(cond ((and (boundp 'org-columns-overlays) org-columns-overlays)
(org-columns-quit)) ((or (and (boundp 'org-clock-overlays) org-clock-overlays)
org-occur-highlights) (if (boundp 'org-clock-overlays) (progn
(org-clock-remove-overlays))) (org-remove-occur-highlights) (message "Temporary
highlights/overlays removed from current buffer")) ((and (local-variable-p
'org-finish-function) (fboundp org-finish-function)) (funcall
org-finish-function)) ((org-babel-hash-at-point))
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-hook)) (t (let* ((context
(org-element-lineage (org-element-context) '(babel-call clock dynamic-block
footnote-definition footnote-reference inline-babel-call inline-src-block
inlinetask item keyword node-property paragraph plain-list planning
property-drawer radio-target src-block statistics-cookie table table-cell
table-row timestamp) t)) (radio-list-p (org-at-radio-list-p)) (type
(org-element-type context))) (if (eq type 'paragraph) (progn (let ((parent
...)) (if (and ... ...) (progn ... ...))))) (let* ((pcase-1 #'(lambda nil ...))
(pcase-0 #'(lambda nil ...))) (cond ((memq type '...) (let nil (if
org-babel-no-eval-on-ctrl-c-ctrl-c nil ... ...))) ((org-match-line "[ \11]*$")
(let nil (or ... ...))) ((memq type '...) (let nil (let ... ...))) ((eq type
'clock) (let nil (if ... ... ...))) ((eq type 'dynamic-block) (let nil
(save-excursion ... ...))) ((eq type 'footnote-definition) (let nil (goto-char
...) (call-interactively ...))) ((eq type 'footnote-reference) (let nil
(call-interactively ...))) ((memq type '...) (let nil (save-excursion ...
...))) ((eq type 'item) (let nil (if ... ... ...))) ((eq type 'plain-list) (let
nil (if ... ... ...))) ((eq type 'keyword) (let nil (let ... ... ...) (message
"Local setup has been refreshed"))) ((memq type '...) (let nil
(call-interactively ...))) ((eq type 'radio-target) (let nil
(call-interactively ...))) ((eq type 'statistics-cookie) (let nil
(call-interactively ...))) ((memq type '...) (let nil (cond ... ... ... ...)))
((eq type 'timestamp) (funcall pcase-1)) ((eq type 'planning) (cond (... ...)
(... ...) (t ...))) ((null type) (cond (... ...) (... ...) (t ...)))
((run-hook-with-args-until-success 'org-ctrl-c-ctrl-c-final-hook) 'nil) (t
(funcall pcase-0)))))))
org-ctrl-c-ctrl-c(nil)
funcall-interactively(org-ctrl-c-ctrl-c nil)
call-interactively(org-ctrl-c-ctrl-c nil nil)
command-execute(org-ctrl-c-ctrl-c)
Best regards
Robert
Am Sat, 05 Sep 2026 14:48:34 +0000
schrieb Ihor Radchenko <[email protected]>:
> Robert Klein <[email protected]> writes:
>
> > when I use #+Call: on a table to run an emacs lisp file, I get a
> > very different results after upgrading to org version 9.8 or later.
> > ...
> > - Output (in *Messages* buffer) in version 9.8 and later
> >
> > #+begin_example
> > Executing Emacs-Lisp call at position 160...
> > head1
> > head2
> > head3
> > do-table: Wrong type argument: sequencep, hline
> > #+end_example
>
> I actually cannot reproduce.
> May you provide instructions starting from emcas -Q?
>
