all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
* recently org-attach change invoke method caused error
@ 2020-02-12  8:18 stardiviner
  2020-02-12  8:25 ` Bastien
  0 siblings, 1 reply; 3+ messages in thread
From: stardiviner @ 2020-02-12  8:18 UTC (permalink / raw)
  To: Org Mode

-----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-----

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2020-02-12  8:40 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-02-12  8:18 recently org-attach change invoke method caused error stardiviner
2020-02-12  8:25 ` Bastien
2020-02-12  8:39   ` stardiviner

Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.