# HG changeset patch
# User ben
# Date 1131879078 0
# Node ID b350e85a2a5e25fb626931df394e9b703e27cc0b
# Parent  d30cd499e44515c11c1e2d8fd8427615367af3b4
[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.

diff -r d30cd499e445 -r b350e85a2a5e lisp/ChangeLog
--- 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:
diff -r d30cd499e445 -r b350e85a2a5e lisp/simple.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))