# HG changeset patch
# User Martin Rudalics <rudalics@gmx.at>
# Date 1216023330 0
# Node ID d46f81f219f80e83e1a7c2340ef7a8685109d283
# Parent  339fc2e9557b1778bed4d8b15450ee66dd3eea9b
(change-log-goto-source): Avoid wrong-type-argument
error when change-log-search-file-name returns nil.

diff -r 339fc2e9557b -r d46f81f219f8 lisp/add-log.el
--- 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) "\\_>")