diff src/callint.c @ 272:c5d627a313b1 r21-0b34

Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 405dd6d1825b
children c42ec1d1cded
line wrap: on
line diff
--- a/src/callint.c	Mon Aug 13 10:27:41 2007 +0200
+++ b/src/callint.c	Mon Aug 13 10:28:48 2007 +0200
@@ -149,7 +149,7 @@
    garden-variety version, so why not make it a subr?  */
 /* #### Move it to another file! */
 DEFUN ("quote-maybe", Fquote_maybe, 1, 1, 0, /*
-Quote EXPR iff it is not self quoting.
+Quote EXPR if it is not self quoting.
 */
        (expr))
 {
@@ -162,7 +162,7 @@
 	   || VECTORP (expr)
 	   || KEYWORDP (expr)
 	   || BIT_VECTORP (expr)
-	   || (CONSP (expr) && EQ(XCAR (expr), Qlambda)))
+	   || (CONSP (expr) && EQ (XCAR (expr), Qlambda)))
 	  ? expr : list2 (Qquote, expr));
 }
 
@@ -981,7 +981,6 @@
   defsymbol (&Qevents_to_keys, "events-to-keys");
   defsymbol (&Qcommand_debug_status, "command-debug-status");
   defsymbol (&Qenable_recursive_minibuffers, "enable-recursive-minibuffers");
-  defsymbol (&Qcommand_debug_status, "command-debug-status");
   defsymbol (&Quser_variable_p, "user-variable-p");
   defsymbol (&Qcurrent_prefix_arg, "current-prefix-arg");