Mercurial > emacs
changeset 96659:d46f81f219f8
(change-log-goto-source): Avoid wrong-type-argument
error when change-log-search-file-name returns nil.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Mon, 14 Jul 2008 08:15:30 +0000 |
| parents | 339fc2e9557b |
| children | 82cfedc0f9f2 |
| files | lisp/add-log.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/add-log.el Mon Jul 14 07:48:03 2008 +0000 +++ b/lisp/add-log.el Mon Jul 14 08:15:30 2008 +0000 @@ -500,7 +500,7 @@ (tag (car tag-at)) (file (when tag-at (change-log-search-file-name (cdr tag-at))))) - (if (not tag) + (if (or (not tag) (not file)) (error "No suitable tag near `point'") (setq change-log-find-head (list tag (concat "\\_<" (regexp-quote tag) "\\_>")