Lines Matching defs:not
23 ;; along with GNU Emacs; see the file COPYING. If not, write to the
64 (if (eq var :test-not)
66 (if (eq var :if-not)
73 (and (not (eq other-keys t))
101 (list 'eq (list 'not (list 'funcall 'cl-test item x))
102 'cl-test-not))
104 (list 'eq (list 'not (list 'funcall 'cl-if x)) 'cl-if-not))
114 (list 'eq (list 'not (list 'funcall 'cl-test x y)) 'cl-test-not)
123 (defvar cl-test) (defvar cl-test-not)
124 (defvar cl-if) (defvar cl-if-not)
213 \nKeywords supported: :test :test-not :key :count :start :end :from-end
215 (cl-parsing-keywords (:test :test-not :key :if :if-not :count :from-end
241 (not (cl-check-test cl-item (car cl-p))))
262 (defun remove-if-not (cl-pred cl-list &rest cl-keys)
263 "Remove all items not satisfying PREDICATE in SEQ.
268 (apply 'remove* nil cl-list :if-not cl-pred cl-keys))
273 \nKeywords supported: :test :test-not :key :count :start :end :from-end
275 (cl-parsing-keywords (:test :test-not :key :if :if-not :count :from-end
320 (defun delete-if-not (cl-pred cl-list &rest cl-keys)
321 "Remove all items not satisfying PREDICATE in SEQ.
325 (apply 'delete* nil cl-list :if-not cl-pred cl-keys))
329 \nKeywords supported: :test :test-not :key :start :end :from-end
335 \nKeywords supported: :test :test-not :key :start :end :from-end
341 (cl-parsing-keywords (:test :test-not :key (:start 0) :end :from-end :if)
383 \nKeywords supported: :test :test-not :key :count :start :end :from-end
385 (cl-parsing-keywords (:test :test-not :key :if :if-not :count
391 (if (not cl-i)
408 (defun substitute-if-not (cl-new cl-pred cl-list &rest cl-keys)
409 "Substitute NEW for all items not satisfying PREDICATE in SEQ.
414 (apply 'substitute cl-new nil cl-list :if-not cl-pred cl-keys))
419 \nKeywords supported: :test :test-not :key :count :start :end :from-end
421 (cl-parsing-keywords (:test :test-not :key :if :if-not :count
424 (if (and (listp cl-seq) (or (not cl-from-end) (> cl-count 4000000)))
456 (defun nsubstitute-if-not (cl-new cl-pred cl-list &rest cl-keys)
457 "Substitute NEW for all items not satisfying PREDICATE in SEQ.
461 (apply 'nsubstitute cl-new nil cl-list :if-not cl-pred cl-keys))
465 Return the matching ITEM, or nil if not found.
466 \nKeywords supported: :test :test-not :key :start :end :from-end
473 Return the matching item, or nil if not found.
478 (defun find-if-not (cl-pred cl-list &rest cl-keys)
479 "Find the first item not satisfying PREDICATE in SEQ.
480 Return the matching item, or nil if not found.
483 (apply 'find nil cl-list :if-not cl-pred cl-keys))
487 Return the index of the matching item, or nil if not found.
488 \nKeywords supported: :test :test-not :key :start :end :from-end
490 (cl-parsing-keywords (:test :test-not :key :if :if-not
499 (while (and cl-p (< cl-start cl-end) (or (not cl-res) cl-from-end))
508 (not (cl-check-test cl-item (aref cl-seq cl-end)))))
511 (not (cl-check-test cl-item (aref cl-seq cl-start))))
517 Return the index of the matching item, or nil if not found.
522 (defun position-if-not (cl-pred cl-list &rest cl-keys)
523 "Find the first item not satisfying PREDICATE in SEQ.
524 Return the index of the matching item, or nil if not found.
527 (apply 'position nil cl-list :if-not cl-pred cl-keys))
531 \nKeywords supported: :test :test-not :key :start :end
533 (cl-parsing-keywords (:test :test-not :key :if :if-not (:start 0) :end) ()
549 (defun count-if-not (cl-pred cl-list &rest cl-keys)
550 "Count the number of items not satisfying PREDICATE in SEQ.
553 (apply 'count nil cl-list :if-not cl-pred cl-keys))
559 \nKeywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end
561 (cl-parsing-keywords (:test :test-not :key :from-end
589 \nKeywords supported: :test :test-not :key :start1 :end1 :start2 :end2 :from-end
591 (cl-parsing-keywords (:test :test-not :key :from-end
653 \nKeywords supported: :test :test-not :key
656 (cl-parsing-keywords (:test :test-not :key :if :if-not) ()
657 (while (and cl-list (not (cl-check-test cl-item (car cl-list))))
660 (if (and (numberp cl-item) (not (integerp cl-item)))
671 (defun member-if-not (cl-pred cl-list &rest cl-keys)
672 "Find the first item not satisfying PREDICATE in LIST.
676 (apply 'member* nil cl-list :if-not cl-pred cl-keys))
687 \nKeywords supported: :test :test-not :key
690 (cl-parsing-keywords (:test :test-not :key :if :if-not) ()
692 (or (not (consp (car cl-alist)))
693 (not (cl-check-test cl-item (car (car cl-alist))))))
696 (if (and (numberp cl-item) (not (integerp cl-item)))
706 (defun assoc-if-not (cl-pred cl-list &rest cl-keys)
707 "Find the first item whose car does not satisfy PREDICATE in LIST.
710 (apply 'assoc* nil cl-list :if-not cl-pred cl-keys))
714 \nKeywords supported: :test :test-not :key
717 (cl-parsing-keywords (:test :test-not :key :if :if-not) ()
719 (or (not (consp (car cl-alist)))
720 (not (cl-check-test cl-item (cdr (car cl-alist))))))
731 (defun rassoc-if-not (cl-pred cl-list &rest cl-keys)
732 "Find the first item whose cdr does not satisfy PREDICATE in LIST.
735 (apply 'rassoc* nil cl-list :if-not cl-pred cl-keys))
742 \nKeywords supported: :test :test-not :key
762 \nKeywords supported: :test :test-not :key
772 \nKeywords supported: :test :test-not :key
776 (cl-parsing-keywords (:key) (:test :test-not)
794 \nKeywords supported: :test :test-not :key
800 The result list contains all items that appear in LIST1 but not LIST2.
803 \nKeywords supported: :test :test-not :key
806 (cl-parsing-keywords (:key) (:test :test-not)
819 The result list contains all items that appear in LIST1 but not LIST2.
822 \nKeywords supported: :test :test-not :key
832 \nKeywords supported: :test :test-not :key
844 \nKeywords supported: :test :test-not :key
854 \nKeywords supported: :test :test-not :key
858 (t (cl-parsing-keywords (:key) (:test :test-not)
872 (defun subst-if-not (cl-new cl-pred cl-tree &rest cl-keys)
873 "Substitute NEW for elts not matching PREDICATE in TREE (non-destructively).
877 (apply 'sublis (list (cons nil cl-new)) cl-tree :if-not cl-pred cl-keys))
883 \nKeywords supported: :test :test-not :key
894 (defun nsubst-if-not (cl-new cl-pred cl-tree &rest cl-keys)
895 "Substitute NEW for elements not matching PREDICATE in TREE (destructively).
899 (apply 'nsublis (list (cons nil cl-new)) cl-tree :if-not cl-pred cl-keys))
904 \nKeywords supported: :test :test-not :key
906 (cl-parsing-keywords (:test :test-not :key :if :if-not) ()
912 (while (and cl-p (not (cl-check-test-nokey (car (car cl-p)) cl-temp)))
926 \nKeywords supported: :test :test-not :key
928 (cl-parsing-keywords (:test :test-not :key :if :if-not) ()
936 (while (and cl-p (not (cl-check-test-nokey (car (car cl-p)) cl-temp)))
941 (while (and cl-p (not (cl-check-test-nokey (car (car cl-p)) cl-temp)))
950 \nKeywords supported: :test :test-not :key
952 (cl-parsing-keywords (:test :test-not :key) ()
959 (and (not (consp cl-x)) (not (consp cl-y)) (cl-check-match cl-x cl-y)))