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

org-agenda.el (org-agenda-open-link): Fix bug when no link is matched

Browse Source 
* org-agenda.el (org-agenda-open-link): Fix bug when no link
is matched.  Return a message instead of an error.
This commit is contained in:
Bastien Guerry 2012-12-31 09:11:55 +01:00
parent e8aaca4de6
commit 8897a53ff4
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org-agenda.el
View File

@ -7906,7 +7906,7 @@ It also looks at the text of the entry itself."
(lkend (cdr lkall))
trg)
(cond
(buffer
((and buffer (stringp lk))
(with-current-buffer buffer
(setq trg (and (string-match org-bracket-link-regexp lk)
(match-string 1 lk)))
@ -7930,7 +7930,7 @@ It also looks at the text of the entry itself."
(beginning-of-line 1)
(looking-at (concat ".*?\\(" org-bracket-link-regexp "\\)"))))
(org-open-link-from-string (match-string 1)))
(t (error "No link to open here")))))
(t (message "No link to open here")))))
(defun org-agenda-copy-local-variable (var)
"Get a variable from a referenced buffer and install it here."