diff options
| author | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-03-07 13:53:50 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <n.goaziou@gmail.com> | 2013-03-07 13:54:33 +0100 |
| commit | 3b0e662181c8494180c1cdaa9c2a1397562f7067 (patch) | |
| tree | 2250255762506acac5c5d6e6b775f0c54e272b6e | |
| parent | 855ee9a0f3c2da573ee2c5d650a4794daf3cdb04 (diff) | |
| download | org-mode-3b0e662181c8494180c1cdaa9c2a1397562f7067.tar.gz | |
ox-icalendar: Fix error when `org-icalendar-store-UID' is non-nil
* lisp/ox-icalendar.el (org-icalendar-create-uid): Fix error when
`org-icalendar-store-UID' is non-nil.
| -rw-r--r-- | lisp/ox-icalendar.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/ox-icalendar.el b/lisp/ox-icalendar.el index 6f6d396..0f0e7b9 100644 --- a/lisp/ox-icalendar.el +++ b/lisp/ox-icalendar.el @@ -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) |