mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-31 11:13:59 +00:00
Code

Fix bug when forcing an ID onto an item.

Browse Source 
The bug happened when calling org-id-get from another buffer.
It is then important to switch to that buffer when the new ID is
created.
This commit is contained in:
Carsten Dominik 2009-09-15 19:10:53 +01:00
parent 0157dddece
commit 0ea7f02336
2 changed files with 15 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -13,6 +13,10 @@
* org.el: Add an entry for org-crypt.
2009-09-15 Carsten Dominik <carsten.dominik@gmail.com>
* org-id.el (org-id-get): Fix bug with forcing ID on an item.
2009-09-15 Carsten Dominik <carsten.dominik@gmail.com>
* org-table.el (orgtbl-line-start-regexp): Match also TBLNAME

21
lisp/org-id.el
View File

@ -212,16 +212,17 @@ If the entry does not have an ID, the function returns nil.
However, when CREATE is non nil, create an ID if none is present already.
PREFIX will be passed through to `org-id-new'.
In any case, the ID of the entry is returned."
(let ((id (org-entry-get pom "ID")))
(cond
((and id (stringp id) (string-match "\\S-" id))
id)
(create
(setq id (org-id-new prefix))
(org-entry-put pom "ID" id)
(org-id-add-location id (buffer-file-name (buffer-base-buffer)))
id)
(t nil))))
(org-with-point-at pom
(let ((id (org-entry-get nil "ID")))
(cond
((and id (stringp id) (string-match "\\S-" id))
id)
(create
(setq id (org-id-new prefix))
(org-entry-put pom "ID" id)
(org-id-add-location id (buffer-file-name (buffer-base-buffer)))
id)
(t nil)))))
;;;###autoload
(defun org-id-get-with-outline-path-completion (&optional targets)