From: stardiviner <numbchild@gmail.com>
To: Org Mode <emacs-orgmode@gnu.org>
Subject: recently org-attach change invoke method caused error
Date: Wed, 12 Feb 2020 16:18:14 +0800 [thread overview]
Message-ID: <8736bgdxrt.fsf@gmail.com> (raw)
-----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-----
next reply other threads:[~2020-02-12 8:18 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2020-02-12 8:18 stardiviner [this message]
2020-02-12 8:25 ` recently org-attach change invoke method caused error Bastien
2020-02-12 8:39 ` stardiviner
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8736bgdxrt.fsf@gmail.com \
--to=numbchild@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).