diff options
| author | Eric Abrahamsen <eric@ericabrahamsen.net> | 2020-02-19 13:23:40 -0800 |
|---|---|---|
| committer | Bastien <bzg@gnu.org> | 2020-02-19 22:37:25 +0100 |
| commit | 6de5bcee87a397b6001a5702872bbfd44e6b26c9 (patch) | |
| tree | a584a95929edc87dbba56d172212763a1e2b2ec5 | |
| parent | 86cbaff2b88855c95ae03f0ade6a651308daeaf5 (diff) | |
| download | org-mode-6de5bcee87a397b6001a5702872bbfd44e6b26c9.tar.gz | |
Skip entries with no ID when updating ID locations
* lisp/org-id.el (org-id-update-id-locations): Saves a little chatter
about duplicate "nil" IDs.
| -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 9114291..369b494 100644 --- a/lisp/org-id.el +++ b/lisp/org-id.el @@ -503,10 +503,11 @@ When FILES is given, scan also these files." i nfiles file)) (when (file-exists-p file) (insert-file-contents file nil nil nil 'replace) - (setq ids (org-map-entries - (lambda () - (org-entry-get (point) "ID")) - "ID<>\"\"")) + (setq ids (delq nil + (org-map-entries + (lambda () + (org-entry-get (point) "ID")) + "ID<>\"\""))) (dolist (id ids) (if (member id seen-ids) (progn |