recently org-attach change invoke method caused error

[stardiviner]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA256


Here is the error:

#+begin_example
Debugger entered--Lisp error: (error "Format specifier doesn’t match argument 
type")
  format-message("No such attachment command: %c" nil)
  apply(format-message ("No such attachment command: %c" nil))
  error("No such attachment command: %c" nil)
  (if (commandp command t) (call-interactively command) (error "No such 
attachment command: %c" c))
  (let ((command (cl-some #'(lambda (entry) (and (memq c ...) (nth 1 entry))) 
org-attach-commands))) (if (commandp command t) (call-interactively command) 
(error "No such attachment command: %c" c)))
  (save-restriction (widen) (goto-char (or --mpom (point))) 
(org-back-to-heading-or-point-min t) (save-excursion (let ((wconfig 
(current-window-configuration))) (unwind-protect (progn (if org-attach-expert 
nil (switch-to-buffer-other-window (get-buffer-create "*Org Attach*")) 
(erase-buffer) (setq cursor-type nil header-line-format "Use C-v, M-v, C-n or 
C-p to navigate.") (insert (concat "Attachment folder:\n" ... ... "\n\n" ...))) 
(org-fit-window-to-buffer (get-buffer-window "*Org Attach*")) (let ((msg ...) 
key) (message msg) (while (and ... ...) (org-scroll key t))) (and (get-buffer 
"*Org Attach*") (kill-buffer "*Org Attach*"))) (set-window-configuration 
wconfig)))) (let ((command (cl-some #'(lambda (entry) (and ... ...)) 
org-attach-commands))) (if (commandp command t) (call-interactively command) 
(error "No such attachment command: %c" c))))
  (save-excursion (save-restriction (widen) (goto-char (or --mpom (point))) 
(org-back-to-heading-or-point-min t) (save-excursion (let ((wconfig 
(current-window-configuration))) (unwind-protect (progn (if org-attach-expert 
nil (switch-to-buffer-other-window ...) (erase-buffer) (setq cursor-type nil 
header-line-format "Use C-v, M-v, C-n or C-p to navigate.") (insert ...)) 
(org-fit-window-to-buffer (get-buffer-window "*Org Attach*")) (let (... key) 
(message msg) (while ... ...)) (and (get-buffer "*Org Attach*") (kill-buffer 
"*Org Attach*"))) (set-window-configuration wconfig)))) (let ((command (cl-some 
#'(lambda ... ...) org-attach-commands))) (if (commandp command t) 
(call-interactively command) (error "No such attachment command: %c" c)))))
  (save-excursion (if (markerp --mpom) (progn (set-buffer (marker-buffer 
--mpom)))) (save-excursion (save-restriction (widen) (goto-char (or --mpom 
(point))) (org-back-to-heading-or-point-min t) (save-excursion (let ((wconfig 
(current-window-configuration))) (unwind-protect (progn (if org-attach-expert 
nil ... ... ... ...) (org-fit-window-to-buffer ...) (let ... ... ...) (and ... 
...)) (set-window-configuration wconfig)))) (let ((command (cl-some #'... 
org-attach-commands))) (if (commandp command t) (call-interactively command) 
(error "No such attachment command: %c" c))))))
  (let ((--mpom marker)) (save-excursion (if (markerp --mpom) (progn 
(set-buffer (marker-buffer --mpom)))) (save-excursion (save-restriction (widen) 
(goto-char (or --mpom (point))) (org-back-to-heading-or-point-min t) 
(save-excursion (let ((wconfig ...)) (unwind-protect (progn ... ... ... ...) 
(set-window-configuration wconfig)))) (let ((command (cl-some ... 
org-attach-commands))) (if (commandp command t) (call-interactively command) 
(error "No such attachment command: %c" c)))))))
  (let ((dir (org-attach-dir nil 'no-fs-check)) c marker) (if (eq major-mode 
'org-agenda-mode) (progn (setq marker (or (get-text-property (point) 
'org-hd-marker) (get-text-property (point) 'org-marker))) (if marker nil (error 
"No item in current line")))) (let ((--mpom marker)) (save-excursion (if 
(markerp --mpom) (progn (set-buffer (marker-buffer --mpom)))) (save-excursion 
(save-restriction (widen) (goto-char (or --mpom (point))) 
(org-back-to-heading-or-point-min t) (save-excursion (let (...) (unwind-protect 
... ...))) (let ((command ...)) (if (commandp command t) (call-interactively 
command) (error "No such attachment command: %c" c))))))))
  org-attach()
  funcall-interactively(org-attach)
  call-interactively(org-attach nil nil)
  command-execute(org-attach)
#+end_example

This might a bug in commit "933a9ee99 * | org-attach.el: Enhance dispatch buffer
navigation". I'm not very sure. I git bisect running on this commit.

- -- 
[ stardiviner ]
       I try to make every word tell the meaning what I want to express.

       Blog: https://stardiviner.github.io/
       IRC(freenode): stardiviner, Matrix: stardiviner
       GPG: F09F650D7D674819892591401B5DF1C95AE89AC3
      
-----BEGIN PGP SIGNATURE-----

iQFIBAEBCAAyFiEE8J9lDX1nSBmJJZFAG13xyVromsMFAl5DtMYUHG51bWJjaGls
ZEBnbWFpbC5jb20ACgkQG13xyVromsOw0AgAkU75aR/VEiVmdqYDAD3BWZiJ3B1w
L61z4iVAogLI5IuJoD/SsOSOKLRE/Ml9HnNMW13htBEXALOHHD2cJwcQuXONji7Y
W+pIiLoEViQAMqVmxEQu27twwOF7hOR6hWqFTidwS3XU0/ucrXEE146Xnbb5s9l5
590GMVBXVZWB3+iYP0Sb8+5OzZUU3rkUhMbY9fp0nI3SHalmiXJ3FB5CNCf+w3KY
ZT+G4Zs/hiLFI3vmPxgRnabHdeC02DYe6Dj/DwdZBBn56ETow2oHeTlNGLsGjc3E
JGngoQLrT3Nwnj1IiN23VIiUOlxauRLYHg9j/Fnu9f9Jb/jye2bRCBFk6Q==
=mCHq
-----END PGP SIGNATURE-----