mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-12-26 10:49:38 +00:00
Code

ox-icalendar: Fix error when `org-icalendar-store-UID' is non-nil

Browse Source 
* lisp/ox-icalendar.el (org-icalendar-create-uid): Fix error when
  `org-icalendar-store-UID' is non-nil.
This commit is contained in:
Nicolas Goaziou 2013-03-07 13:53:50 +01:00
parent 855ee9a0f3
commit 3b0e662181
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/ox-icalendar.el
View File

@ -291,8 +291,8 @@ When optional argument BELL is non-nil, inform the user with
a message if the file was modified. With optional argument
H-MARKERS non-nil, it is a list of markers for the headlines
which will be updated."
(let (modified-flag pt)
(when h-markers (setq pt (goto-char (car h-markers))))
(let ((pt (if h-markers (goto-char (car h-markers)) (point-min)))
modified-flag)
(org-map-entries
(lambda ()
(let ((entry (org-element-at-point)))
@ -300,8 +300,7 @@ which will be updated."
(org-id-get-create)
(setq modified-flag t)
(forward-line))
(setq org-map-continue-from
(if h-markers (pop h-markers) (point-max)))))
(when h-markers (setq org-map-continue-from (pop h-markers)))))
nil nil 'comment)
(when (and bell modified-flag)
(message "ID properties created in file \"%s\"" file)