projects
/
chise
/
xemacs-chise.git.1
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
XEmacs 21.4.15
[chise/xemacs-chise.git.1]
/
lisp
/
help.el
diff --git
a/lisp/help.el
b/lisp/help.el
index
1835b7d
..
3bde4cd
100644
(file)
--- 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)))
(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
;; 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)))
(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_:*]")
(defvar help-symbol-regexp
(let ((sym-char "[+a-zA-Z0-9_:*]")