diff lisp/help-fns.el @ 55290:8037f1969898

(help-add-fundoc-usage): Use %S instead of %s to format arglist so default values in CL-style argument lists are correctly shown.

--- 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