[Orgmode] Not enough arguments for format string

[Sébastien Vauban]

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("Æ @Ç=ƒ!