# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1083419573 0
# Node ID 8037f19698987428a9772380eb3d1e898616c2a4
# Parent  15053a4ed04530a3e5d53a218899fcc2020d09db
(help-add-fundoc-usage): Use %S instead of %s to format arglist so default
values in CL-style argument lists are correctly shown.

diff -r 15053a4ed045 -r 8037f1969898 lisp/help-fns.el
--- a/lisp/help-fns.el	Sat May 01 13:31:29 2004 +0000
+++ b/lisp/help-fns.el	Sat May 01 13:52:53 2004 +0000
@@ -181,7 +181,7 @@
   (unless (stringp doc) (setq doc "Not documented"))
   (if (or (string-match "\n\n(fn\\(\\( .*\\)?)\\)\\'" doc) (eq arglist t))
       doc
-    (format "%s%s%s" doc
+    (format "%s%s%S" doc
 	    (if (string-match "\n?\n\\'" doc)
 		(if (< (- (match-end 0) (match-beginning 0)) 2) "\n" "")
 	      "\n\n")
@@ -339,7 +339,7 @@
 	  ;; FIXME: This list can be very long (f.ex. for self-insert-command).
 	  ;; If there are many, remove them from KEYS.
 	  (if (< (length non-modified-keys) 10)
-	      (princ (mapconcat 'key-description keys ", "))	      
+	      (princ (mapconcat 'key-description keys ", "))
 	    (dolist (key non-modified-keys)
 	      (setq keys (delq key keys)))
 	    (if keys