[Emacs-diffs] /srv/bzr/emacs/trunk r110273: * help-fns.el (help-fns--obsolete): Fix last change.

[Chong Yidong]

------------------------------------------------------------
revno: 110273
committer: Chong Yidong <address@hidden>
branch nick: trunk
timestamp: Sun 2012-09-30 16:24:56 +0800
message:
  * help-fns.el (help-fns--obsolete): Fix last change.
modified:
  lisp/ChangeLog
  lisp/help-fns.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-09-30 04:00:46 +0000
+++ b/lisp/ChangeLog    2012-09-30 08:24:56 +0000
@@ -1,3 +1,7 @@
+2012-09-30  Chong Yidong  <address@hidden>
+
+       * help-fns.el (help-fns--obsolete): Fix last change.
+
 2012-09-30  Stefan Monnier  <address@hidden>
 
        * winner.el (winner-mode-map): Obey winner-dont-bind-my-keys here.

=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el  2012-09-25 05:33:43 +0000
+++ b/lisp/help-fns.el  2012-09-30 08:24:56 +0000
@@ -494,8 +494,7 @@
          (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")