Mercurial > hg > xemacs-beta
diff lisp/simple.el @ 3064:b350e85a2a5e
[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 |
line wrap: on
line diff
--- a/lisp/simple.el Sun Nov 13 10:48:04 2005 +0000 +++ b/lisp/simple.el Sun Nov 13 10:51:18 2005 +0000 @@ -4387,7 +4387,7 @@ basis. See `display-warning-suppressed-classes' and `log-warning-suppressed-classes'. -For a description of the meaning of the levels, see `display-warning.'" +For a description of the meaning of the levels, see `display-warning'." :type '(choice (const emergency) (const critical) (const error) (const warning) (const alert) (const notice) (const info) (const debug)) @@ -4410,7 +4410,7 @@ basis. See `display-warning-suppressed-classes' and `log-warning-suppressed-classes'. -For a description of the meaning of the levels, see `display-warning.'" +For a description of the meaning of the levels, see `display-warning'." :type '(choice (const emergency) (const critical) (const error) (const warning) (const alert) (const notice) (const info) (const debug)) @@ -4676,7 +4676,7 @@ (error nil)))) (if fmt (progn - (prin1 (apply #'format args)) + (princ (apply #'format args)) (terpri)) (princ "--> ") (let ((i 1))