Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 3064:b350e85a2a5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2005-11-13 10:51:17 by ben] use `princ' not `prin1' for formatted debug msgs simple.el: `foo.' -> `foo'. simple.el: princ() a formatted debug string, not prin1(), or it just looks stupid.
author ben
date Sun, 13 Nov 2005 10:51:18 +0000
parents 5df5ea55d3fc
children 9fddb79e8a88
comparison
equal deleted inserted replaced
3063:d30cd499e445 3064:b350e85a2a5e
4385 4385
4386 You can also control which warnings are displayed on a class-by-class 4386 You can also control which warnings are displayed on a class-by-class
4387 basis. See `display-warning-suppressed-classes' and 4387 basis. See `display-warning-suppressed-classes' and
4388 `log-warning-suppressed-classes'. 4388 `log-warning-suppressed-classes'.
4389 4389
4390 For a description of the meaning of the levels, see `display-warning.'" 4390 For a description of the meaning of the levels, see `display-warning'."
4391 :type '(choice (const emergency) (const critical) 4391 :type '(choice (const emergency) (const critical)
4392 (const error) (const warning) (const alert) (const notice) 4392 (const error) (const warning) (const alert) (const notice)
4393 (const info) (const debug)) 4393 (const info) (const debug))
4394 :group 'warnings) 4394 :group 'warnings)
4395 4395
4408 4408
4409 You can also control which warnings are displayed on a class-by-class 4409 You can also control which warnings are displayed on a class-by-class
4410 basis. See `display-warning-suppressed-classes' and 4410 basis. See `display-warning-suppressed-classes' and
4411 `log-warning-suppressed-classes'. 4411 `log-warning-suppressed-classes'.
4412 4412
4413 For a description of the meaning of the levels, see `display-warning.'" 4413 For a description of the meaning of the levels, see `display-warning'."
4414 :type '(choice (const emergency) (const critical) 4414 :type '(choice (const emergency) (const critical)
4415 (const error) (const warning) (const alert) (const notice) 4415 (const error) (const warning) (const alert) (const notice)
4416 (const info) (const debug)) 4416 (const info) (const debug))
4417 :group 'warnings) 4417 :group 'warnings)
4418 4418
4674 (and (stringp (first args)) 4674 (and (stringp (first args))
4675 (apply #'format args)) 4675 (apply #'format args))
4676 (error nil)))) 4676 (error nil))))
4677 (if fmt 4677 (if fmt
4678 (progn 4678 (progn
4679 (prin1 (apply #'format args)) 4679 (princ (apply #'format args))
4680 (terpri)) 4680 (terpri))
4681 (princ "--> ") 4681 (princ "--> ")
4682 (let ((i 1)) 4682 (let ((i 1))
4683 (dolist (sgra args) 4683 (dolist (sgra args)
4684 (if (> i 1) (princ " ")) 4684 (if (> i 1) (princ " "))