X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=lisp%2Fhelp.el;h=3bde4cd77034e9a5582314be86b832bcdf437ae0;hb=97b01a74244a99d8b9a3b24fcdce68a83ae8da09;hp=1835b7d2345aa50ed5c62ca9b6bc48e1256796df;hpb=d8654f7c5ad0c04060008c6fbbd90add1f4537e3;p=chise%2Fxemacs-chise.git-

diff --git a/lisp/help.el b/lisp/help.el
index 1835b7d..3bde4cd 100644
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -1095,7 +1095,7 @@ part of the documentation of internal subroutines."
 	   (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
@@ -1111,7 +1111,7 @@ part of the documentation of internal subroutines."
 	   (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_:*]")