From 8897a53ff414a85eadc9d7e94ea1f248278b47e6 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Mon, 31 Dec 2012 09:11:55 +0100 Subject: [PATCH] org-agenda.el (org-agenda-open-link): Fix bug when no link is matched * org-agenda.el (org-agenda-open-link): Fix bug when no link is matched. Return a message instead of an error. --- lisp/org-agenda.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index b076dbdbd..8d567320c 100644 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -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."