From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 1 Feb 2013 15:56:22 +0000 (-0500)
Subject: * lisp/help-fns.el (help-split-fundoc): Don't insert byte-compiled body.
X-Git-Tag: emacs-24.3.90~173^2~7^2~170
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=686d9fb678108be1a599e800c7070008b3ce9169;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index b6f1fb74b99..1b4e35ef76e 100644
--- 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 04bcc9c0763..178096d1024 100644
--- 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))))))