From mboxrd@z Thu Jan 1 00:00:00 1970 From: =?utf-8?Q?S=C3=A9bastien_Vauban?= Subject: Not enough arguments for format string Date: Tue, 31 Aug 2010 22:50:51 +0200 Message-ID: <87wrr6zetw.fsf@mundaneum.com> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 8bit Return-path: List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org-mXXj517/zsQ@public.gmane.org To: emacs-orgmode-mXXj517/zsQ@public.gmane.org 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("Æ @Ç=ƒ! _______________________________________________ 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