User: ben Date: 05/11/13 11:51:19 Modified: xemacs/lisp ChangeLog simple.el Log: 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. Revision Changes Path 1.693 +8 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.692 retrieving revision 1.693 diff -u -p -r1.692 -r1.693 --- ChangeLog 2005/11/13 07:39:26 1.692 +++ ChangeLog 2005/11/13 10:51:17 1.693 ＠＠ -1,5 +1,13 ＠＠ 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. + +2005-11-13 Ben Wing <ben(a)xemacs.org&gt; + * derived.el: * frame.el (get-frame-for-buffer): * toolbar.el (press-toolbar-button): 1.54 +3 -3 XEmacs/xemacs/lisp/simple.el Index: simple.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/simple.el,v retrieving revision 1.53 retrieving revision 1.54 diff -u -p -r1.53 -r1.54 --- simple.el 2005/10/18 20:49:43 1.53 +++ simple.el 2005/11/13 10:51:18 1.54 ＠＠ -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))