From: Glenn Morris <rgm@gnu.org>
Date: Fri, 27 Feb 2009 04:01:22 +0000 (+0000)
Subject: (find-lisp-object-file-name): Need a buffer position, not just a
X-Git-Tag: emacs-pretest-23.0.92~423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=6565b5ab2039c56332d95c736bf4883905520645;p=emacs.git

(find-lisp-object-file-name): Need a buffer position, not just a
buffer, to find a definition.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 27c5330d07b..a173b9aa26e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
+2009-02-27  Glenn Morris  <rgm@gnu.org>
+
+	* help-fns.el (find-lisp-object-file-name): Need a buffer position, not
+	just a buffer, to find a definition.
+
+	* mail/rmail.el (rmail-speedbar-move-message): Preserve the directory
+	part against rmail-output's oddness.
+
 2009-02-27  Chong Yidong  <cyd@stupidchicken.com>
 
 	* menu-bar.el (menu-set-font): Assign the same font object to all
diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 80f9c1f9603..8c323b94ee3 100644
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -263,7 +263,7 @@ suitable file is found, return nil."
 	     (condition-case nil
 		 (find-function-search-for-symbol object nil file-name)
 	       (error nil))))
-	(when location
+	(when (cdr location)
 	  (with-current-buffer (car location)
 	    (goto-char (cdr location))
 	    (when (re-search-backward