mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-26 07:33:39 +00:00
Code

Fix bug when creating a link from the agenda

Browse Source
This commit is contained in:
Carsten Dominik 2009-09-18 16:05:20 +01:00
parent 922c697870
commit a70cf873c3
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/ChangeLog
View File

@ -2,6 +2,8 @@
* org.el (org-on-heading-p, org-at-heading-p): Make sure these are * org.el (org-on-heading-p, org-at-heading-p): Make sure these are
always with `invisible-ok'. always with `invisible-ok'.
(org-store-link): No error when there is nothing to link to in the
agenda.
* org-list.el (org-update-checkbox-count): Insert changed cookie * org-list.el (org-update-checkbox-count): Insert changed cookie
before the old, to avoid problems with invisibility at the end of before the old, to avoid problems with invisibility at the end of

6
lisp/org.el
View File

@ -7205,9 +7205,9 @@ For file links, arg negates `org-context-in-file-links'."
;; We are in the agenda, link to referenced location ;; We are in the agenda, link to referenced location
(let ((m (or (get-text-property (point) 'org-hd-marker) (let ((m (or (get-text-property (point) 'org-hd-marker)
(get-text-property (point) 'org-marker)))) (get-text-property (point) 'org-marker))))
(unless m (error "Don't know what location to link to")) (when m
(org-with-point-at m (org-with-point-at m
(call-interactively 'org-store-link)))) (call-interactively 'org-store-link)))))
((eq major-mode 'calendar-mode) ((eq major-mode 'calendar-mode)
(let ((cd (calendar-cursor-to-date))) (let ((cd (calendar-cursor-to-date)))