[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Orgmode] Not enough arguments for format string
From: |
Sébastien Vauban |
Subject: |
[Orgmode] Not enough arguments for format string |
Date: |
Tue, 31 Aug 2010 22:50:51 +0200 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.1 (gnu/linux) |
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:address@hidden:]+:\\)\\)?[ ]*$" "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("Æ @Ç=!
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Orgmode] Not enough arguments for format string,
Sébastien Vauban <=