(change-log-goto-source): Avoid wrong-type-argument

error when change-log-search-file-name returns nil.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index e7c29b9..7662635 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-14  Martin Rudalics  <rudalics@gmx.at>
+
+       * add-log.el (change-log-goto-source): Avoid wrong-type-argument
+       error when change-log-search-file-name returns nil.
+
 2008-07-13  Martin Rudalics  <rudalics@gmx.at>
 
        * add-log.el (change-log-search-file-name): Use match-string-no-properties.

diff --git a/lisp/add-log.el b/lisp/add-log.el
index 19a537f..85293b2 100644 (file)
--- 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) "\\_>")