diff options
author | Bastien Guerry <bzg@altern.org> | 2012-04-21 15:46:02 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-04-21 15:46:02 +0200 |
commit | 58bef074a7937888a39594a5299575e15684cd16 (patch) | |
tree | eadebd713d2253a9341d6c3f5db114fbf8f57cd5 | |
parent | 7094dddca4adf14a4d75ea8dfaa1b658cea44cb8 (diff) | |
download | org-mode-58bef074a7937888a39594a5299575e15684cd16.tar.gz |
org-id.el (org-id-update-id-locations): New parameter to silent `org-id-find'.
* org-id.el (org-id-update-id-locations): New parameter to
silent `org-id-find'.
(org-id-find): Use the new parameter.
Thanks to Sébastien Vauban for raising a related issue.
-rw-r--r-- | lisp/org-id.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/org-id.el b/lisp/org-id.el index 95c8baf..4b49aa5 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -273,7 +273,7 @@ With optional argument MARKERP, return the position as a new marker." (when file (setq where (org-id-find-id-in-file id file markerp))) (unless where - (org-id-update-id-locations) + (org-id-update-id-locations nil t) (setq file (org-id-find-id-file id)) (when file (setq where (org-id-find-id-in-file id file markerp)))) @@ -403,7 +403,7 @@ and time is the usual three-integer representation of time." ;; Storing ID locations (files) -(defun org-id-update-id-locations (&optional files) +(defun org-id-update-id-locations (&optional files silent) "Scan relevant files for IDs. Store the relation between files and corresponding IDs. This will scan all agenda files, all associated archives, and all @@ -441,8 +441,9 @@ When CHECK is given, prepare detailed information about duplicate IDs." (setq files (delq 'agenda-archives (copy-sequence files)))) (setq nfiles (length files)) (while (setq file (pop files)) - (message "Finding ID locations (%d/%d files): %s" - (- nfiles (length files)) nfiles file) + (unless silent + (message "Finding ID locations (%d/%d files): %s" + (- nfiles (length files)) nfiles file)) (setq tfile (file-truename file)) (when (and (file-exists-p file) (not (member tfile seen))) (push tfile seen) |