Mercurial > hg > xemacs-beta
changeset 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 | d30cd499e445 |
| children | 3fa430e1aa35 |
| files | lisp/ChangeLog lisp/simple.el |
| diffstat | 2 files changed, 11 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Sun Nov 13 10:48:04 2005 +0000 +++ b/lisp/ChangeLog Sun Nov 13 10:51:18 2005 +0000 @@ -1,3 +1,11 @@ +2005-11-13 Ben Wing <ben@xemacs.org> + + * simple.el (log-warning-minimum-level): + * simple.el (display-warning-minimum-level): + `foo.' -> `foo'. + * simple.el (debug-print-1): + princ() a formatted debug string, not prin1(), or it just looks stupid. + 2005-11-13 Ben Wing <ben@xemacs.org> * derived.el:
--- 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))