* help-fns.el (help-fns--obsolete): Fix last change.

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  <cyd@gnu.org>
+
+        * help-fns.el (help-fns--obsolete): Fix last change.
+
 2012-09-30  Stefan Monnier  <monnier@iro.umontreal.ca>
 
         * 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")