From: "Sébastien Vauban" <wxhgmqzgwmuf-geNee64TY+gS+FvcfC7Uqw@public.gmane.org>
To: emacs-orgmode-mXXj517/zsQ@public.gmane.org
Subject: Not enough arguments for format string
Date: Tue, 31 Aug 2010 22:50:51 +0200 [thread overview]
Message-ID: <87wrr6zetw.fsf@mundaneum.com> (raw)
[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #1: Type: text/plain; charset=us-ascii, Size: 6307 bytes --]
Hello,
Just came back of holidays, did not have time yet for reading the posts on the
ML, but git pull'ed the master branch.
When refiling, I now have this error coming up:
--8<---------------cut here---------------start------------->8---
Debugger entered--Lisp error: (error "Not enough arguments for format string")
format("^\\(\\*+\\)[ ]+\\(?:\\(TODO\\|STARTED\\|WAIT\\|DLGT\\|DFRD\\|DONE\\|CANX\\|QTE\\|QTD\\|APP\\|EXP\\|REJ\\|OPENPO\\|CLSDPO\\)\\>\\)?\\(?:[ ]*\\(\\[#.\\]\\)\\)?\\(?:[ ]*\\(?:\\[[0-9%%/]+\\]\\)\\)?[ ]*\\(%s\\)\\(?:[ ]*\\(?:\\[[0-9%%/]+\\]\\)\\)?\\(?:[ ]+\\(:[[:alnum:]_@#%:]+:\\)\\)?[ ]*$" "Appointments")
(setq level (org-reduced-level (- ... ...)) txt (org-link-display-format (match-string 4)) re (format org-complex-heading-regexp-format (regexp-quote ...)))
(progn (setq level (org-reduced-level ...) txt (org-link-display-format ...) re (format org-complex-heading-regexp-format ...)) (when org-refile-use-outline-path (setq txt ...)) (push (list txt f re ...) tgs))
(if (looking-at org-complex-heading-regexp) (progn (setq level ... txt ... re ...) (when org-refile-use-outline-path ...) (push ... tgs)))
(when (looking-at org-complex-heading-regexp) (setq level (org-reduced-level ...) txt (org-link-display-format ...) re (format org-complex-heading-regexp-format ...)) (when org-refile-use-outline-path (setq txt ...)) (push (list txt f re ...) tgs))
(catch (quote next) (when org-refile-target-verify-function (save-match-data ...)) (when (looking-at org-complex-heading-regexp) (setq level ... txt ... re ...) (when org-refile-use-outline-path ...) (push ... tgs)))
(while (re-search-forward descre nil t) (goto-char (setq pos0 ...)) (catch (quote next) (when org-refile-target-verify-function ...) (when ... ... ... ...)) (when (= ... pos0) (goto-char ...)))
(save-restriction (widen) (goto-char (point-min)) (while (re-search-forward descre nil t) (goto-char ...) (catch ... ... ...) (when ... ...)))
(save-excursion (save-restriction (widen) (goto-char ...) (while ... ... ... ...)))
(progn (if (bufferp f) (setq f ...)) (setq f (and f ...)) (if (eq org-refile-use-outline-path ...) (push ... tgs)) (save-excursion (save-restriction ... ... ...)))
(or (setq tgs (org-refile-cache-get ... descre)) (progn (if ... ...) (setq f ...) (if ... ...) (save-excursion ...)))
(save-current-buffer (set-buffer (if ... f ...)) (or (setq tgs ...) (progn ... ... ... ...)) (when org-refile-use-cache (org-refile-cache-put tgs ... descre)) (setq targets (append tgs targets)))
(with-current-buffer (if (bufferp f) f (org-get-agenda-file-buffer f)) (or (setq tgs ...) (progn ... ... ... ...)) (when org-refile-use-cache (org-refile-cache-put tgs ... descre)) (setq targets (append tgs targets)))
(while (setq f (pop files)) (with-current-buffer (if ... f ...) (or ... ...) (when org-refile-use-cache ...) (setq targets ...)))
(while (setq entry (pop entries)) (setq files (car entry) desc (cdr entry)) (setq fast-path-p nil) (cond (... ...) (... ...) (... ...) (... ...)) (if (stringp files) (setq files ...)) (cond (... ...) (... ...) (... ...) (... ...) (... ... ...) (t ...)) (while (setq f ...) (with-current-buffer ... ... ... ...)))
(save-current-buffer (set-buffer (or default-buffer ...)) (while (setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... ... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
(with-current-buffer (or default-buffer (current-buffer)) (while (setq entry ...) (setq files ... desc ...) (setq fast-path-p nil) (cond ... ... ... ...) (if ... ...) (cond ... ... ... ... ... ...) (while ... ...)))
(let ((case-fold-search nil) (entries ...) targets tgs txt re files f desc descre fast-path-p level pos0) (message "Getting targets...") (with-current-buffer (or default-buffer ...) (while ... ... ... ... ... ... ...)) (message "Getting targets...done") (nreverse targets))
org-get-refile-targets(nil)
(setq org-refile-target-table (org-get-refile-targets default-buffer))
(let ((org-refile-targets org-refile-targets) (org-refile-use-outline-path org-refile-use-outline-path)) (setq org-refile-target-table (org-get-refile-targets default-buffer)))
org-refile-get-location("Refile to: " nil confirm)
(save-excursion (org-refile-get-location (if goto "Goto: " "Refile to: ") default-buffer org-refile-allow-creating-parent-nodes))
(or rfloc (save-excursion (org-refile-get-location ... default-buffer org-refile-allow-creating-parent-nodes)))
(setq it (or rfloc (save-excursion ...)))
(or (and (equal goto 2) org-clock-hd-marker (marker-buffer org-clock-hd-marker) (prog1 ... ...)) (setq it (or rfloc ...)))
(if (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (progn (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ... ... ... ... ...)))
(when (or (and ... org-clock-hd-marker ... ...) (setq it ...)) (setq file (nth 1 it) re (nth 2 it) pos (nth 3 it)) (if (and ... pos ... ...) (error "Cannot refile to position inside the tree or region")) (setq nbuf (or ... ...)) (if goto (progn ... ... ...) (if regionp ... ...) (with-current-buffer ... ... ...) (if regionp ... ...) (when ... ...) (setq org-markers-to-move nil) (message "Refiled to \"%s\" in file %s" ... file)))
(if (equal goto (quote ...)) (org-refile-goto-last-stored) (when (or ... ...) (setq file ... re ... pos ...) (if ... ...) (setq nbuf ...) (if goto ... ... ... ... ... ... ...)))
(let* ((cbuf ...) (regionp ...) (region-start ...) (region-end ...) (region-length ...) (filename ...) pos it nbuf file re level reversed) (setq last-command nil) (when regionp (goto-char region-start) (or ... ...) (setq region-start ...) (unless ... ...)) (if (equal goto ...) (org-refile-goto-last-stored) (when ... ... ... ... ...)))
(if (member goto (quote ...)) (org-refile-cache-clear) (let* (... ... ... ... ... ... pos it nbuf file re level reversed) (setq last-command nil) (when regionp ... ... ... ...) (if ... ... ...)))
org-refile(nil)
call-interactively(org-refile nil nil)
recursive-edit()
byte-code("Æ\x10 @Ç=ƒ!
_______________________________________________
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode-mXXj517/zsQ@public.gmane.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
next reply other threads:[~2010-08-31 20:50 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-08-31 20:50 Sébastien Vauban [this message]
2010-09-01 5:33 ` Not enough arguments for format string David Maus
2010-09-01 6:50 ` Sébastien Vauban
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=87wrr6zetw.fsf@mundaneum.com \
--to=wxhgmqzgwmuf-genee64ty+gs+fvcfc7uqw@public.gmane.org \
--cc=emacs-orgmode-mXXj517/zsQ@public.gmane.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).