* lisp/help-fns.el (help-split-fundoc): Don't insert byte-compiled body.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6f1fb74b99477d1d2d6fee8f04dd871c03be1b2..1b4e35ef76e9cfec4a4a1e3bc517387617be1539 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2013-02-01  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * help-fns.el (help-split-fundoc): Don't insert byte-compiled body.
+
 2013-02-01  Glenn Morris  <rgm@gnu.org>
 
        * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item
@@ -9,8 +13,8 @@
 2013-02-01  Alex Harsanyi  <AlexHarsanyi@gmail.com>
 
        * net/soap-client.el (soap-invoke): Encode the string for
-       `url-request-data' as UTF-8.  Fixes
-       <http://code.google.com/p/emacs-soap-client/issues/detail?id=16>.
+       `url-request-data' as UTF-8.
+       Fixes <http://code.google.com/p/emacs-soap-client/issues/detail?id=16>.
 
 2013-02-01  Glenn Morris  <rgm@gnu.org>
 
@@ -69,8 +73,7 @@
 
 2013-01-30  Leo Liu  <sdl.web@gmail.com>
 
-       * imenu.el (imenu--truncate-items): Fix subalist checking.
-       (Bug#13576)
+       * imenu.el (imenu--truncate-items): Fix subalist checking (bug#13576).
 
 2013-01-30  Glenn Morris  <rgm@gnu.org>
 
@@ -127,16 +130,14 @@
        are no longer included.
        (c-awk-harmless-line-char-re, c-awk-harmless-line-string*-re):
        What used to be these variables without "-line" in the name.
-       (c-awk-neutral-re): { is no longer neutral.  Escaped newlines now
-       are.
+       (c-awk-neutral-re): { is no longer neutral.  Escaped newlines now are.
        (c-awk-non-arith-op-bra-re): Now also matches {.
        (c-awk-pre-exp-alphanum-kwd-re): New regexp to match "print",
        "return", and "case".
        (c-awk-kwd-regexp-sign-re): New, to match "print", etc., followed
        by /.
        (c-awk-syntax-tablify-/): Check special cases "print /re/", etc.
-       (c-awk-set-syntax-table-properties): Extend FSM to handle
-       {,},(,),;.
+       (c-awk-set-syntax-table-properties): Extend FSM to handle {,},(,),;.
 
 2013-01-29  Michael Albinus  <michael.albinus@gmx.de>
 

diff --git a/lisp/help-fns.el b/lisp/help-fns.el
index 04bcc9c07633e37e6fc4b4d9c7ad2f200dacd77c..178096d1024a6a0b13ec31cb00a39802f763e00a 100644 (file)
--- a/lisp/help-fns.el
+++ b/lisp/help-fns.el
@@ -76,7 +76,7 @@ DEF is the function whose usage we're looking for in DOCSTRING."
   (when (and docstring (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" docstring))
     (cons (format "(%s%s"
                  ;; Replace `fn' with the actual function name.
-                 (if (consp def) "anonymous" def)
+                 (if (symbolp def) def "anonymous")
                  (match-string 1 docstring))
          (unless (zerop (match-beginning 0))
             (substring docstring 0 (match-beginning 0))))))