Lines Matching +defs:not +defs:save
22 ;; along with GNU Emacs; see the file COPYING. If not, write to the
43 (defalias 'not 'null)
46 "Evaluate FORM, expecting it not to return.
74 But documentation strings are usually not useful in nameless functions.
80 ;; Note that this definition should not use backquotes; subr.el should not
95 If the value is nil, `pop' returns nil but does not actually
168 "Do not evaluate any arguments and return nil.
185 letter but *do not* end with a period. Please follow this convention
202 \(recursively) a function or special form. This does not include
209 (not (car-safe (cdr-safe (cdr-safe (cdr-safe (cdr-safe object)))))))
295 (if (or (not to) (= from to))
298 (when (zerop inc) (error "The increment can not be zero"))
341 or DEFAULT if the element is not a cons.
346 (while (and tail (not found))
373 (not (and (stringp (car list))
381 Elements of ALIST that are not conses are ignored."
396 Elements of ALIST that are not conses are ignored."
419 The comparison is done with `eq'. Contrary to `delq', this does not use
420 side-effects, and the argument LIST is not modified."
464 AFTER should be a single event type--a symbol or a character, not a sequence.
479 (while (and (not done) tail)
489 (not (eq after t)))
651 ;; where KEYMAP does not have a submap.
655 (not (memq inner-def key-substitution-in-progress)))
668 The value is a keymap which is usually (but not necessarily) Emacs's
694 ;; and not compiled into the .elc file. The value is negative on most
695 ;; machines, but not on all!
738 (if (not (zerop (logand type ?\M-\^@)))
740 (if (or (not (zerop (logand type ?\C-\^@)))
743 (if (or (not (zerop (logand type ?\S-\^@)))
756 The value is a printing character (not upper case) or a symbol.
834 (if (not (windowp (posn-window position)))
835 (error "Position not in text area of window"))
877 Return nil if POSITION does not contain the actual position; in that case
891 Value is a cons (STRING . STRING-POS), or nil if not a string.
898 Value is a list (image ...), or nil if not an image.
963 (make-obsolete-variable 'directory-sep-char "do not use it." "21.1")
988 ;;;; Alternate names for functions - these are not being phased out.
1029 well. This works for all normal hooks, but does not work for most
1037 Do not use `make-local-variable' to make a hook variable buffer-local."
1044 (make-obsolete 'make-local-hook "not necessary any more." "21.1")
1048 FUNCTION is not added if already present.
1072 (when (or (not (listp hook-value)) (eq (car hook-value) 'lambda))
1094 (unless (and local (not (local-variable-p hook)))
1098 (not (and (consp (symbol-value hook))
1103 (if (or (not (listp hook-value)) (eq (car hook-value) 'lambda))
1108 ;; (not (member (cons 'not function) hook-value)))
1109 ;; (push (cons 'not function) hook-value))
1111 (if (not local)
1127 If you want to use `add-to-list' on a variable that is not defined
1142 (not (funcall compare-fn element (car lst))))
1162 ORDER is nil or omitted, do not change the numeric order of
1203 (not (stringp newelt))
1206 (not (equal (car history) newelt))))
1265 (while (and (not (memq parent modes))
1272 ;; If a minor mode is not defined with define-minor-mode,
1275 ;; not call it yourself.
1276 (defvar minor-mode-list '(auto-save-mode auto-fill-mode abbrev-mode
1287 is toggled on or off to say whether the minor mode is active or not.
1317 (while (and tail (not found))
1347 (while (and tail (not found))
1367 ;; "Load the file `fns-VERSION.el' in `exec-directory' if not already done.
1372 ;; ;; fns-XX.YY.ZZ.el does not work on DOS filesystem.
1384 It can also be nil, if the definition is not associated with any file.
1480 (save-match-data
1483 (not (string-match file-regexp (car load-elt)))))
1496 additionally may or may not have an extension denoting a compressed
1506 extension for a compressed format \(e.g. \".gz\") on FILE will not affect
1571 BUFFER may be also nil, meaning that this process is not associated
1622 "Like `read-char', but do not allow quitting.
1633 (while (not done)
1647 ;; or C-q C-x might not return immediately since ESC or C-x might be
1654 ((not (integerp translated))
1669 ((and (not first) (eq translated ?\C-m))
1671 ((not first)
1694 (while (not success)
1703 (message "Password not repeated accurately; please start over")
1772 \(On operating systems that do not support waiting for fractions of a
1776 Redisplay does not happen if input is available before it starts.
1904 (when (and (consp elt) (not (eq elt (last pending-undo-list))))
1926 (if all (save-excursion (set-buffer (other-buffer))))
1948 (save-excursion
1986 (save-excursion
2016 (save-excursion
2075 (save-excursion
2079 (save-excursion (beginning-of-line) (point))
2082 (save-excursion (end-of-line) (point))
2108 range 0..100 or a float in the range 0..1.0. If not specified,
2111 :device DEVICE - play sound on DEVICE. If not specified,
2174 (save-excursion
2224 yank-excluded-properties is not performed; instead FUNCTION is
2253 (save-excursion
2273 (if (eq yank-undo-function t) ;; not set by FUNCTION
2295 ;; Since the buffer text should not normally have yank-handler properties,
2311 BUFFER may be also nil, meaning that this process is not associated
2370 `(save-current-buffer
2380 buffer current. It does not alter the buffer list ordering.
2390 ;; Most of this code is a copy of save-selected-window.
2391 `(let ((save-selected-window-window (selected-window))
2392 ;; It is necessary to save all of these, because calling
2395 (save-selected-window-alist
2398 (save-current-buffer
2402 (dolist (elt save-selected-window-alist)
2406 (if (window-live-p save-selected-window-window)
2407 (select-window save-selected-window-window 'norecord))))))
2477 "Execute BODY, allowing quits to terminate BODY but not escape further.
2488 ;; Without this, it will not be handled until the next function
2516 Do not alter `after-change-functions' or `before-change-functions'
2564 ((not ,mode) (try-completion ,string (,fun ,string) ,predicate))
2571 ;; not available in subr.el) or use `(lambda (,str) ...) which prevents the use
2600 A and B should not be costly (or side-effecting) expressions."
2617 (defvar save-match-data-internal)
2619 ;; We use save-match-data-internal as the local variable because
2620 ;; that works ok in practice (people should not use that variable elsewhere).
2623 (defmacro save-match-data (&rest body)
2626 ;; It is better not to use backquote here,
2631 '((save-match-data-internal (match-data)))
2635 ;; as Lisp programs should not copy from save-match-data-internal.
2636 '(set-match-data save-match-data-internal 'evaporate))))
2674 (save-excursion
2678 (save-restriction
2681 (save-excursion
2686 (save-excursion
2689 (not (null pos))))
2707 (not (member (cadr err) '("Unmatched [ or [^"
2738 \(as yet unimplemented). Should not match non-breaking spaces.
2756 which separates, but is not part of, the substrings. If nil it defaults to
2770 Modifies the match data; use `save-match-data' if necessary."
2771 (let ((keep-nulls (not (if separators omit-nulls t)))
2842 (save-match-data
2901 (save-current-buffer
2933 (when (and after (not undo-in-progress) (overlay-start ol1))
2938 (save-excursion
2944 (save-match-data
2945 (if (not (re-search-forward
2973 (save-excursion (insert str))
3000 (start-margin (if (or (not spreadp) (bobp) (<= start (point-min)))
3002 (end-margin (if (or (not spreadp)
3034 value as a variable do not matter for this usage; we use only certain
3087 or not enough time has passed, then do nothing (see
3095 This function is very inexpensive, you may not bother how often
3113 larger; if this is not the case, then simply negate all values.
3121 `float-time' function is not present, then time is not tracked
3122 at all. If OS is not capable of measuring fractions of seconds,
3165 (or (not update-time)
3170 ;; Calculate NEXT-UPDATE-VALUE. If we are not going to print
3171 ;; message this time because not enough time has passed, then use
3309 (save-match-data
3327 (while (and al (not (string-match (caar al) s)))
3347 ;; l1 not null and l2 not null
3351 ;; l1 not null and l2 null ==> l1 length > l2 length
3352 (l1 (< (version-list-not-zero l1) 0))
3353 ;; l1 null and l2 not null ==> l2 length > l1 length
3354 (t (< 0 (version-list-not-zero l2)))))
3368 ;; l1 not null and l2 not null
3372 ;; l1 not null and l2 null ==> l1 length > l2 length
3373 (l1 (zerop (version-list-not-zero l1)))
3374 ;; l1 null and l2 not null ==> l2 length > l1 length
3375 (t (zerop (version-list-not-zero l2)))))
3389 ;; l1 not null and l2 not null
3393 ;; l1 not null and l2 null ==> l1 length > l2 length
3394 (l1 (<= (version-list-not-zero l1) 0))
3395 ;; l1 null and l2 not null ==> l2 length > l1 length
3396 (t (<= 0 (version-list-not-zero l2)))))
3398 (defun version-list-not-zero (lst)