CVS update by ben xemacs/lisp ...
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>
+ * 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>
+
* 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))