[PATCH] use `princ' not `prin1' for formatted debug msgs
lisp/ChangeLog addition:
2005-11-13 Ben Wing <ben(a)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.
build source patch:
Diff command: bash -ci "cvs-diff --show-c-function -no-changelog "
Files affected: lisp/simple.el
Index: lisp/simple.el
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v
retrieving revision 1.53
diff -u -p -r1.53 simple.el
--- lisp/simple.el 2005/10/18 20:49:43 1.53
+++ lisp/simple.el 2005/11/13 10:50:15
＠＠ -4387,7 +4387,7 ＠＠ You can also control which warnings are
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 ＠＠ You can also control which warnings are
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 ＠＠ individually in a numbered list."
(error nil))))
(if fmt
(progn
- (prin1 (apply #'format args))
+ (princ (apply #'format args))
(terpri))
(princ "--> ")
(let ((i 1))