[Emacs-diffs] /srv/bzr/emacs/trunk r111653: * lisp/help-fns.el (help-split-fundoc): Don't insert byte-compiled body.

[Stefan Monnier]

------------------------------------------------------------
revno: 111653
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2013-02-01 10:56:22 -0500
message:
  * lisp/help-fns.el (help-split-fundoc): Don't insert byte-compiled body.
modified:
  lisp/ChangeLog
  lisp/help-fns.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-02-01 08:44:10 +0000
+++ b/lisp/ChangeLog    2013-02-01 15:56:22 +0000
@@ -1,3 +1,7 @@
+2013-02-01  Stefan Monnier  <address@hidden>
+
+       * help-fns.el (help-split-fundoc): Don't insert byte-compiled body.
+
 2013-02-01  Glenn Morris  <address@hidden>
 
        * vc/vc-hooks.el (vc-menu-map): Disable vc-rollback menu item
@@ -9,8 +13,8 @@
 2013-02-01  Alex Harsanyi  <address@hidden>
 
        * 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  <address@hidden>
 
@@ -69,8 +73,7 @@
 
 2013-01-30  Leo Liu  <address@hidden>
 
-       * 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  <address@hidden>
 
@@ -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  <address@hidden>
 

=== modified file 'lisp/help-fns.el'
--- a/lisp/help-fns.el  2013-01-02 16:13:04 +0000
+++ b/lisp/help-fns.el  2013-02-01 15:56:22 +0000
@@ -76,7 +76,7 @@
   (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))))))