Mercurial > hg > xemacs-beta
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");