From 6565b5ab2039c56332d95c736bf4883905520645 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Fri, 27 Feb 2009 04:01:22 +0000 Subject: [PATCH] (find-lisp-object-file-name): Need a buffer position, not just a buffer, to find a definition. --- lisp/ChangeLog | 8 ++++++++ lisp/help-fns.el | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) 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 + + * 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 * 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 -- 2.39.2