Mercurial > emacs

changeset 55290:8037f1969898

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(help-add-fundoc-usage): Use %S instead of %s to format arglist so default values in CL-style argument lists are correctly shown.
author Juanma Barranquero <lekktu@gmail.com>
date Sat, 01 May 2004 13:52:53 +0000
parents 15053a4ed045
children 0da869ea68e0
files lisp/help-fns.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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