From: Chong Yidong <cyd@gnu.org>
Date: Sun, 30 Sep 2012 08:24:56 +0000 (+0800)
Subject: * help-fns.el (help-fns--obsolete): Fix last change.
X-Git-Tag: emacs-24.2.90~244^2~10
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c4c0c2dff6a733c411119418de41e2fb3a72b262;p=emacs.git

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

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")