Mercurial > hg > xemacs-beta

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b34
author cvs
date Mon, 13 Aug 2007 10:28:48 +0200
parents 405dd6d1825b
children c42ec1d1cded
comparison
equal deleted inserted replaced
271:c7b7086b0a39 272:c5d627a313b1
147 147
148 /* Originally, this was just a function -- but `custom' used a 148 /* Originally, this was just a function -- but `custom' used a
149 garden-variety version, so why not make it a subr? */ 149 garden-variety version, so why not make it a subr? */
150 /* #### Move it to another file! */ 150 /* #### Move it to another file! */
151 DEFUN ("quote-maybe", Fquote_maybe, 1, 1, 0, /* 151 DEFUN ("quote-maybe", Fquote_maybe, 1, 1, 0, /*
152 Quote EXPR iff it is not self quoting. 152 Quote EXPR if it is not self quoting.
153 */ 153 */
154 (expr)) 154 (expr))
155 { 155 {
156 return ((NILP (expr) 156 return ((NILP (expr)
157 || EQ (expr, Qt) 157 || EQ (expr, Qt)
160 || CHARP (expr) 160 || CHARP (expr)
161 || STRINGP (expr) 161 || STRINGP (expr)
162 || VECTORP (expr) 162 || VECTORP (expr)
163 || KEYWORDP (expr) 163 || KEYWORDP (expr)
164 || BIT_VECTORP (expr) 164 || BIT_VECTORP (expr)
165 || (CONSP (expr) && EQ(XCAR (expr), Qlambda))) 165 || (CONSP (expr) && EQ (XCAR (expr), Qlambda)))
166 ? expr : list2 (Qquote, expr)); 166 ? expr : list2 (Qquote, expr));
167 } 167 }
168 168
169 /* Modify EXPR by quotifying each element (except the first). */ 169 /* Modify EXPR by quotifying each element (except the first). */
170 static Lisp_Object 170 static Lisp_Object
979 defsymbol (&Qread_non_nil_coding_system, "read-non-nil-coding-system"); 979 defsymbol (&Qread_non_nil_coding_system, "read-non-nil-coding-system");
980 #endif 980 #endif
981 defsymbol (&Qevents_to_keys, "events-to-keys"); 981 defsymbol (&Qevents_to_keys, "events-to-keys");
982 defsymbol (&Qcommand_debug_status, "command-debug-status"); 982 defsymbol (&Qcommand_debug_status, "command-debug-status");
983 defsymbol (&Qenable_recursive_minibuffers, "enable-recursive-minibuffers"); 983 defsymbol (&Qenable_recursive_minibuffers, "enable-recursive-minibuffers");
984 defsymbol (&Qcommand_debug_status, "command-debug-status");
985 defsymbol (&Quser_variable_p, "user-variable-p"); 984 defsymbol (&Quser_variable_p, "user-variable-p");
986 defsymbol (&Qcurrent_prefix_arg, "current-prefix-arg"); 985 defsymbol (&Qcurrent_prefix_arg, "current-prefix-arg");
987 986
988 defsymbol (&Qlet, "let"); 987 defsymbol (&Qlet, "let");
989 defsymbol (&QletX, "let*"); 988 defsymbol (&QletX, "let*");