Re: Merging feature/android

[Robert Pluim]

>>>>> On Tue, 14 Mar 2023 18:39:22 +0800, Po Lu <luangruo@yahoo.com> said:

    >> most of which are variants of
    >> 
    >> Test simple-test-undo-extra-boundary-in-tex backtrace:
    >> signal(error ("Invalid argument macro in `get-device-terminal'"))
    >> apply(signal (error ("Invalid argument macro in `get-device-terminal

    Po Lu> If you could get a backtrace for this, it would be great.  What is
    Po Lu> calling frames-on-display-list?

    Po Lu> Thanks.

Debugger entered--Lisp error: (error "Invalid argument macro in 
‘get-device-terminal’")
  signal(error ("Invalid argument macro in ‘get-device-terminal’"))
  error("Invalid argument %s in `get-device-terminal'" macro)
  get-device-terminal(macro)
  frames-on-display-list(macro)
  framep-on-display(macro)
  device-class(macro nil)
  minibuffer-setup-on-screen-keyboard()
  read-from-minibuffer("LaTeX block name [enumerate]: " nil (keymap (menu-bar 
keymap (minibuf "Minibuf" keymap (tab menu-item "Complete" minibuffer-complete 
:help "Complete as far as possible") (space menu-item "Complete Word" 
minibuffer-complete-word :help "Complete at most one word") (63 menu-item "List 
Completions" minibuffer-completion-help :help "Display all possible 
completions") "Minibuf")) (M-down . minibuffer-next-completion) (M-up . 
minibuffer-previous-completion) (27 keymap (13 . minibuffer-choose-completion) 
(103 keymap (27 keymap (99 . switch-to-completions))) (118 . 
switch-to-completions)) (prior . switch-to-completions) (63 . 
minibuffer-completion-help) (32 . minibuffer-complete-word) (backtab . 
minibuffer-complete) (9 . minibuffer-complete) keymap (menu-bar keymap (minibuf 
"Minibuf" keymap (previous menu-item "Previous History Item" 
previous-history-element :help "Put previous minibuffer history element in the 
min...") (next menu-item "Next History Item" next-history-element :help "Put 
next minibuffer history element in the minibuf...") (isearch-backward menu-item 
"Isearch History Backward" isearch-backward :help "Incrementally search 
minibuffer history backward") (isearch-forward menu-item "Isearch History 
Forward" isearch-forward :help "Incrementally search minibuffer history 
forward") (return menu-item "Enter" exit-minibuffer :key-sequence "\15" :help 
"Terminate input and exit minibuffer") (quit menu-item "Quit" 
abort-recursive-edit :help "Abort input and exit minibuffer") "Minibuf")) (24 
keymap (down . minibuffer-complete-defaults) (up . 
minibuffer-complete-history)) (13 . exit-minibuffer) (10 . exit-minibuffer) (7 
. abort-minibuffers) (C-tab . file-cache-minibuffer-complete) (9 . 
self-insert-command) (XF86Back . previous-history-element) (up . 
previous-line-or-history-element) (prior . previous-history-element) 
(XF86Forward . next-history-element) (down . next-line-or-history-element) 
(next . next-history-element) (27 keymap (60 . minibuffer-beginning-of-buffer) 
(114 . previous-matching-history-element) (115 . next-matching-history-element) 
(112 . previous-history-element) (110 . next-history-element))) nil nil 
"enumerate" nil)
  completing-read-default("LaTeX block name [enumerate]: " #f(compiled-function 
(string pred action) #<bytecode -0x40de75530394a3a>) nil nil nil nil 
"enumerate" nil)
  completing-read("LaTeX block name [enumerate]: " #f(compiled-function (string 
pred action) #<bytecode -0x40de75530394a3a>) nil nil nil nil "enumerate")
  (let ((choice (completing-read (format "LaTeX block name [%s]: " 
latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice)
  eval((let ((choice (completing-read (format "LaTeX block name [%s]: " 
latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice))
  skeleton-read((let ((choice (completing-read (format "LaTeX block name [%s]: 
" latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice) nil nil)
  (setq str (skeleton-read '(let ((choice (completing-read (format "LaTeX block 
name [%s]: " latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice) nil nil))
  eval((setq str (skeleton-read '(let ((choice (completing-read ... ... nil nil 
nil nil latex-block-default))) (setq latex-block-default choice) (unless (or 
(member choice latex-standard-block-names) (member choice latex-block-names)) 
(push choice latex-block-names)) choice) nil nil)))
  skeleton-internal-1((setq str (skeleton-read '(let ((choice (completing-read 
... ... nil nil nil nil latex-block-default))) (setq latex-block-default 
choice) (unless (or (member choice latex-standard-block-names) (member choice 
latex-block-names)) (push choice latex-block-names)) choice) nil nil)) t nil)
  skeleton-internal-1(str nil nil)
  skeleton-internal-list(((let ((choice (completing-read (format "LaTeX block 
name [%s]: " latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice) n "\\begin{" str "}" (cdr (assoc str 
latex-block-args-alist)) > n (or (cdr (assoc str latex-block-body-alist)) '(nil 
> _)) (unless (bolp) 'n) "\\end{" str "}" > n) nil)
  #f(compiled-function () #<bytecode 0x1a7e183eddc6ce30>)()
  funcall(#f(compiled-function () #<bytecode 0x1a7e183eddc6ce30>))
  (let nil (funcall '#f(compiled-function () #<bytecode 0x1a7e183eddc6ce30>)))
  eval((let nil (funcall '#f(compiled-function () #<bytecode 
0x1a7e183eddc6ce30>))))
  skeleton-insert(((let ((choice (completing-read (format "LaTeX block name 
[%s]: " latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice) n "\\begin{" str "}" (cdr (assoc str 
latex-block-args-alist)) > n (or (cdr (assoc str latex-block-body-alist)) '(nil 
> _)) (unless (bolp) 'n) "\\end{" str "}" > n) nil nil)
  skeleton-proxy-new(((let ((choice (completing-read (format "LaTeX block name 
[%s]: " latex-block-default) (latex-complete-envnames) nil nil nil nil 
latex-block-default))) (setq latex-block-default choice) (unless (or (member 
choice latex-standard-block-names) (member choice latex-block-names)) (push 
choice latex-block-names)) choice) n "\\begin{" str "}" (cdr (assoc str 
latex-block-args-alist)) > n (or (cdr (assoc str latex-block-body-alist)) '(nil 
> _)) (unless (bolp) 'n) "\\end{" str "}" > n) nil nil)
  latex-insert-block(nil nil)
  funcall-interactively(latex-insert-block nil nil)
  call-interactively(latex-insert-block nil nil)
  command-execute(latex-insert-block)
  execute-kbd-macro([3 15 13 67108911])
  (progn (switch-to-buffer "temp.tex") (latex-mode) (execute-kbd-macro 
(read-kbd-macro "\nC-c C-o\11\11\11;; latex-insert-block\nRET\11\11\11;; 
newline\n...")) (buffer-substring-no-properties (point-min) (point-max)))
  (unwind-protect (progn (switch-to-buffer "temp.tex") (latex-mode) 
(execute-kbd-macro (read-kbd-macro "\nC-c C-o\11\11\11;; 
latex-insert-block\nRET\11\11\11;; newline\n...")) 
(buffer-substring-no-properties (point-min) (point-max))) (switch-to-buffer 
before-buffer))
  (let ((before-buffer (current-buffer))) (unwind-protect (progn 
(switch-to-buffer "temp.tex") (latex-mode) (execute-kbd-macro (read-kbd-macro 
"\nC-c C-o\11\11\11;; latex-insert-block\nRET\11\11\11;; newline\n...")) 
(buffer-substring-no-properties (point-min) (point-max))) (switch-to-buffer 
before-buffer)))
  (progn (let ((before-buffer (current-buffer))) (unwind-protect (progn 
(switch-to-buffer "temp.tex") (latex-mode) (execute-kbd-macro (read-kbd-macro 
"\nC-c C-o\11\11\11;; latex-insert-block\nRET\11\11\11;; newline\n...")) 
(buffer-substring-no-properties (point-min) (point-max))) (switch-to-buffer 
before-buffer))))
  eval((progn (let ((before-buffer (current-buffer))) (unwind-protect (progn 
(switch-to-buffer "temp.tex") (latex-mode) (execute-kbd-macro (read-kbd-macro 
"\nC-c C-o\11\11\11;; latex-insert-block\nRET\11\11\11;; newline\n...")) 
(buffer-substring-no-properties (point-min) (point-max))) (switch-to-buffer 
before-buffer)))) t)
  elisp--eval-last-sexp(nil)
  eval-last-sexp(nil)
  funcall-interactively(eval-last-sexp nil)
  call-interactively(eval-last-sexp nil nil)
  command-execute(eval-last-sexp)

Robert
--