(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 e7c29b98e7ff4126ea855f34232ccd4743cb968e..76626351a64859b03665c411385242ef19af598a 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 19a537fc0dac2109f3e58b8efaa01da2a8163b51..85293b2ec687c04b0db5cc319a433b4459b1440f 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) "\\_>")