Lines Matching +defs:not +defs:save
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
78 (and (not (consp x)) (equalp x y)))
138 (while (not (memq nil cl-args))
150 "Like `mapcar', but does not accumulate values returned by the function.
158 "Like `maplist', but does not accumulate values returned by the function.
188 (while (and cl-seq (not (setq cl-x (funcall cl-pred (pop cl-seq))))))
207 (not (apply 'some cl-pred cl-seq cl-rest)))
212 (not (apply 'every cl-pred cl-seq cl-rest)))
238 (while (and cl-next (or (not cl-mark2) (< cl-mark cl-mark2)))
270 (or (not (overlay-start (car cl-ovl)))
273 (not (funcall cl-func (car cl-ovl) cl-arg))))
284 (while (save-excursion
293 (not (and (funcall cl-func (car cl-ovl) cl-arg)
306 (defvar cl-progv-save)
311 (car syms)) cl-progv-save)
317 (while cl-progv-save
318 (if (consp (car cl-progv-save))
319 (set (car (car cl-progv-save)) (cdr (car cl-progv-save)))
320 (makunbound (car cl-progv-save)))
321 (pop cl-progv-save)))
464 (or most-positive-float (not (numberp '2e1))
547 (while (and (cdr fast) (not (and (eq fast slow) (> n 0))))
553 (while (and (consp list) (not (eq sublist list)))
568 (while (and plist (not (eq (car plist) tag)))
582 (while (and plist (not (eq (car plist) tag)))
588 (while (and p (not (eq (car p) tag))) (setq p (cdr (cdr p))))
593 (while (and (cdr p) (not (eq (car (cdr p)) tag))) (setq p (cdr (cdr p))))
611 (defun cl-not-hash-table (x &optional y &rest z)
663 (or (not two) (looking-at ")") (cl-do-prettyprint))
664 (while (not (looking-at ")"))
665 (if set (setq nl (not nl)))
678 (while (or (not (eq form (setq form (macroexpand form env))))
680 (not (eq form (setq form (compiler-macroexpand form)))))))
681 (cond ((not (consp form)) form)
740 ((and (eq (car form) 'progn) (not (cddr form)))
761 (and (not full) '((block) (eval-when)))))