Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
1778:6d925631ccc7 1779:fb556d2c7344
1234 (let ((buf (marker-buffer standard-output)) 1234 (let ((buf (marker-buffer standard-output))
1235 (pos (marker-position standard-output))) 1235 (pos (marker-position standard-output)))
1236 (princ object) 1236 (princ object)
1237 (put-nonduplicable-text-property 1237 (put-nonduplicable-text-property
1238 pos (marker-position standard-output) 'face face buf))) 1238 pos (marker-position standard-output) 'face face buf)))
1239 (t princ object))) 1239 (t (princ object))))
1240 1240
1241 ;; replacement for `prin1' that puts the text in the specified face, 1241 ;; replacement for `prin1' that puts the text in the specified face,
1242 ;; if possible 1242 ;; if possible
1243 (defun Help-prin1-face (object face) 1243 (defun Help-prin1-face (object face)
1244 (cond ((bufferp standard-output) 1244 (cond ((bufferp standard-output)
1250 (let ((buf (marker-buffer standard-output)) 1250 (let ((buf (marker-buffer standard-output))
1251 (pos (marker-position standard-output))) 1251 (pos (marker-position standard-output)))
1252 (prin1 object) 1252 (prin1 object)
1253 (put-nonduplicable-text-property 1253 (put-nonduplicable-text-property
1254 pos (marker-position standard-output) 'face face buf))) 1254 pos (marker-position standard-output) 'face face buf)))
1255 (t prin1 object))) 1255 (t (prin1 object))))
1256 1256
1257 (defvar help-symbol-regexp 1257 (defvar help-symbol-regexp
1258 (let ((sym-char "[+a-zA-Z0-9_:*]") 1258 (let ((sym-char "[+a-zA-Z0-9_:*]")
1259 (sym-char-no-dash "[-+a-zA-Z0-9_:*]")) 1259 (sym-char-no-dash "[-+a-zA-Z0-9_:*]"))
1260 (concat "\\(" 1260 (concat "\\("