Not enough arguments for format string

* Not enough arguments for format string
@ 2010-08-31 20:50 Sébastien Vauban
  2010-09-01  5:33 ` David Maus
  0 siblings, 1 reply; 3+ messages in thread
From: Sébastien Vauban @ 2010-08-31 20:50 UTC (permalink / raw)
  To: emacs-orgmode-mXXj517/zsQ

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

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