Mercurial > hg > xemacs-beta

comparison src/specifier.c @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents cca96a509cfe
children 15872534500d
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
2871 if (!EQ (instantiator, Qt) && !EQ (instantiator, Qnil)) 2871 if (!EQ (instantiator, Qt) && !EQ (instantiator, Qnil))
2872 signal_simple_error ("Must be t or nil", instantiator); 2872 signal_simple_error ("Must be t or nil", instantiator);
2873 } 2873 }
2874 2874
2875 DEFUN ("boolean-specifier-p", Fboolean_specifier_p, 1, 1, 0, /* 2875 DEFUN ("boolean-specifier-p", Fboolean_specifier_p, 1, 1, 0, /*
2876 Return non-nil if OBJECT is an boolean specifier. 2876 Return non-nil if OBJECT is a boolean specifier.
2877 */ 2877 */
2878 (object)) 2878 (object))
2879 { 2879 {
2880 return (BOOLEAN_SPECIFIERP (object) ? Qt : Qnil); 2880 return (BOOLEAN_SPECIFIERP (object) ? Qt : Qnil);
2881 } 2881 }