summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBastien Guerry <bzg@altern.org>2012-04-21 15:46:02 +0200
committerBastien Guerry <bzg@altern.org>2012-04-21 15:46:02 +0200
commit58bef074a7937888a39594a5299575e15684cd16 (patch)
treeeadebd713d2253a9341d6c3f5db114fbf8f57cd5
parent7094dddca4adf14a4d75ea8dfaa1b658cea44cb8 (diff)
downloadorg-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.el9
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)