Mercurial > hg > xemacs-beta

comparison lisp/itimer.el @ 2297:13a418960a88

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-22 02:05:42 by stephent] various doc patches <87isa7awrh.fsf@tleepslib.sk.tsukuba.ac.jp>
author stephent
date Wed, 22 Sep 2004 02:06:52 +0000
parents 9eeed79aee25
children 0da64f4bd0bc
comparison
equal deleted inserted replaced
2296:a58ea4d0d0cd 2297:13a418960a88
128 (list 'if (list 'itimerp var) var 128 (list 'if (list 'itimerp var) var
129 (list 'signal ''wrong-type-argument 129 (list 'signal ''wrong-type-argument
130 (list 'list ''itimerp var))))) 130 (list 'list ''itimerp var)))))
131 131
132 (defmacro check-itimer-coerce-string (var) 132 (defmacro check-itimer-coerce-string (var)
133 "If VAR is not bound to a string, look up the itimer that it names and 133 "If VAR is bound to a string, look up the itimer that it names and
134 bind VAR to it. Otherwise, if VAR is not bound to an itimer, signal 134 bind VAR to it. Otherwise, if VAR is not bound to an itimer, signal
135 wrong-type-argument. This is a macro." 135 `wrong-type-argument'. This is a macro."
136 (list 'setq var 136 (list 'setq var
137 (list 'cond 137 (list 'cond
138 (list (list 'itimerp var) var) 138 (list (list 'itimerp var) var)
139 (list (list 'stringp var) (list 'get-itimer var)) 139 (list (list 'stringp var) (list 'get-itimer var))
140 (list t (list 'signal ''wrong-type-argument 140 (list t (list 'signal ''wrong-type-argument
141 (list 'list ''string-or-itimer-p var)))))) 141 (list 'list ''string-or-itimer-p var))))))
142 142
143 (defmacro check-nonnegative-number (var) 143 (defmacro check-nonnegative-number (var)
144 "If VAR is not bound to a number, signal `wrong-type-argument'. 144 "If VAR is not bound to a number, signal `wrong-type-argument'.
145 If VAR is not bound to a positive number, signal args-out-of-range. 145 If VAR is not bound to a positive number, signal `args-out-of-range'.
146 This is a macro." 146 This is a macro."
147 (list 'setq var 147 (list 'setq var
148 (list 'if (list 'not (list 'numberp var)) 148 (list 'if (list 'not (list 'numberp var))
149 (list 'signal ''wrong-type-argument 149 (list 'signal ''wrong-type-argument
150 (list 'list ''natnump var)) 150 (list 'list ''natnump var))