NOTE: This patch has been committed. lisp/ChangeLog addition: 2005-11-13 Ben Wing <ben(a)xemacs.org&gt; * 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))