From c4c0c2dff6a733c411119418de41e2fb3a72b262 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sun, 30 Sep 2012 16:24:56 +0800 Subject: [PATCH] * help-fns.el (help-fns--obsolete): Fix last change. --- lisp/ChangeLog | 4 ++++ lisp/help-fns.el | 3 +-- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7e41ddc2ad1..4b1ba1e6606 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2012-09-30 Chong Yidong + + * help-fns.el (help-fns--obsolete): Fix last change. + 2012-09-30 Stefan Monnier * winner.el (winner-mode-map): Obey winner-dont-bind-my-keys here. diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 7dc7eebb061..ef482f8f0e9 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -494,8 +494,7 @@ suitable file is found, return nil." (use (car obsolete))) (when obsolete (insert "\nThis " - (if (eq (car-safe (symbol-function 'with-current-buffer)) - 'macro) + (if (eq (car-safe (symbol-function function)) 'macro) "macro" "function") " is obsolete") -- 2.39.2