Mercurial > hg > xemacs-beta

diff lisp/help.el @ 1779:fb556d2c7344

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-11-06 05:11:15 by stephent] little fixes <87k76eks07.fsf@tleepslib.sk.tsukuba.ac.jp> <87fzh2kros.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Thu, 06 Nov 2003 05:11:15 +0000
parents 37bdd24225ef
children 488b2f76d852
line wrap: on
line diff
--- a/lisp/help.el	Wed Nov 05 22:50:47 2003 +0000
+++ b/lisp/help.el	Thu Nov 06 05:11:15 2003 +0000
@@ -1236,7 +1236,7 @@
 	   (princ object)
 	   (put-nonduplicable-text-property
 	    pos (marker-position standard-output) 'face face buf)))
-	(t princ object)))
+	(t (princ object))))
 
 ;; replacement for `prin1' that puts the text in the specified face,
 ;; if possible
@@ -1252,7 +1252,7 @@
 	   (prin1 object)
 	   (put-nonduplicable-text-property
 	    pos (marker-position standard-output) 'face face buf)))
-	(t prin1 object)))
+	(t (prin1 object))))
 
 (defvar help-symbol-regexp
   (let ((sym-char "[+a-zA-Z0-9_:*]")