diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-07-14 08:15:59 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-07-14 08:15:59 +0000 |
| commit | 83750bb1cdaadeaea1ac99a3afb17d614eb84ad3 (patch) | |
| tree | f45003786ac3aba913e947525d386b367fa0e0fd /lisp/add-log.el | |
| parent | 2f73901fa171a9c584731f7bebf8c7bdc7378e9b (diff) | |
| download | emacs-83750bb1cdaadeaea1ac99a3afb17d614eb84ad3.tar.gz | |
(change-log-goto-source): Avoid wrong-type-argument
error when change-log-search-file-name returns nil.
Diffstat (limited to 'lisp/add-log.el')
| -rw-r--r-- | lisp/add-log.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/add-log.el b/lisp/add-log.el index 19a537fc0da..85293b2ec68 100644 --- a/lisp/add-log.el +++ b/lisp/add-log.el @@ -500,7 +500,7 @@ comma-separated list." (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) "\\_>") |