(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 27c5330d07bf1dcbe466397b8abb9a9b1e64f76e..a173b9aa26eff45bf772b26412be3ef0e5ffb4f2 100644 (file)
--- 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 80f9c1f9603386d44d9106874eaaea9f6ccbd5e8..8c323b94ee33ca7be61e7c00d66e767143cb110b 100644 (file)
--- 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