Lines Matching +defs:no +defs:auto +defs:save
86 If no other buffer exists, the buffer `*scratch*' is returned."
147 (defcustom next-error-highlight-no-select 0.5
148 "*Highlighting of locations in `next-error-no-select'.
340 (defun next-error-no-select (&optional n)
347 (let ((next-error-highlight next-error-highlight-no-select))
351 (defun previous-error-no-select (&optional n)
358 (next-error-no-select (- (or n 1))))
382 (next-error-no-select 0))
406 Call `auto-fill-function' if the current column number is greater
416 ;; Make sure no functions want to be told about
420 ;; Make sure there are no markers here.
423 ;; Make sure no text properties want to know
443 ;; Call self-insert so that auto-fill, abbrev expansion etc. happens.
446 ;; Don't auto-fill if we have a numeric argument.
448 ;; there is no need to since we're at BOL.
449 (auto-fill-function (if (or arg flag) nil auto-fill-function)))
465 (save-excursion
524 (save-excursion
560 (save-excursion
580 ;; and there are no following blank lines.
582 (save-excursion
600 (save-match-data
601 (save-excursion
604 (skip-syntax-backward "-" (save-excursion (forward-line 0) (point)))
606 (save-match-data
634 (save-excursion
703 (save-excursion
706 (save-excursion (forward-char -1)
827 (save-excursion
830 (buffer-substring-no-properties
857 (save-restriction
877 (save-excursion
878 (save-restriction
888 (save-excursion
889 (save-restriction
893 (save-match-data
912 (save-excursion
972 (concat (buffer-substring-no-properties pos to)
996 (buffer-substring-no-properties (point) (1+ (point))))
1002 (buffer-substring-no-properties (point) (1+ (point))))
1020 A value of nil means no limit."
1027 A value of nil means no limit."
1091 (with-no-warnings
1158 (error "There are no previous complex commands to repeat")))))
1225 (minibuffer-contents-no-properties)))
1228 (if (isearch-no-upper-case-p regexp t) ; assume isearch.el is dumped
1307 (minibuffer-contents-no-properties)))
1310 (error "End of history; no next item")
1311 (error "End of history; no default available")))
1313 (error "Beginning of history; no preceding item"))
1389 (defvar undo-no-redo nil
1412 (recent-save (recent-auto-save-p))
1445 (when (and (consp equiv) undo-no-redo)
1486 (delete-auto-save-file-if-necessary recent-save))
1504 (let ((undo-no-redo t)) (undo arg)))
1690 If you answer no, there is a slight risk that Emacs might crash, so
1727 (yes-or-no-p (format "Buffer `%s' undo info is %d bytes long; discard it? "
1810 If there is no output, or if output is inserted in the current buffer,
1857 ;; Do no formatting while reading error file,
1874 (save-match-data
1886 (if (yes-or-no-p "A command is running. Kill it? ")
1991 is encoded in the same coding system that will be used to save the file,
2011 If there is no output, or if output is inserted in the current buffer,
2034 (error "The mark is not set now, so there is no region"))
2100 (save-excursion
2129 "no output")))
2151 ;; Do no formatting while reading error file,
2318 ;; For backward compatibility, minus with no modifiers is an ordinary
2348 If this variable is nil, no filtering is performed.")
2369 `buffer-substring-no-properties', or `delete-and-extract-region'
2376 (save-excursion
2386 (buffer-substring-no-properties beg end))
2416 The function should be called with no arguments. If the function
2417 returns nil, then no other program has provided such text, and the top
2546 \(If you want to kill and then yank immediately, use \\[kill-ring-save].)
2570 (error "The mark is not set now, so there is no region"))
2585 ;; However, there's no harm in putting
2598 ;; copy-region-as-kill no longer sets this-command, because it's confusing
2604 If `interprogram-cut-function' is non-nil, also save the text for a window
2614 (defun kill-ring-save (beg end)
2617 If `interprogram-cut-function' is non-nil, also save the text for a window
2621 use \\[append-next-kill] before \\[kill-ring-save].
2697 With no argument, the previous kill is inserted.
2799 Delete ARG chars, and kill (save in kill ring) if KILLP is non-nil.
2805 (save-excursion
2820 (let ((wh (- (point) (save-excursion (skip-chars-backward skip)
2841 "*If non-nil, `kill-line' with no arg at beg of line kills the whole line."
2846 "Kill the rest of the current line; if no nonblanks there, kill thru newline.
2851 When calling from a program, nil means \"no arg\",
2859 with no argument. As a consequence, you can always kill a whole line
2875 ;; The choice has no effect on undo now that undo records
2883 (save-excursion
2885 (if (or (save-excursion
2903 (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
2905 (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))
2915 ;; need to use save-excursion to avoid copying the same text
2917 (save-excursion
2921 (save-excursion
2928 (save-excursion
3014 (save-excursion
3046 (save-excursion
3062 (save-excursion
3083 (save-excursion
3086 (save-excursion
3101 (save-excursion
3204 If no prefix arg and mark is already set there, just activate it.
3233 With no prefix argument, set the mark at point, and push the
3246 the \\[set-mark-command] command with no prefix argument pops the next position
3409 Interactively, vscroll tall lines if `auto-window-vscroll' is enabled.
3410 If there is no character in the target line exactly under the current column,
3413 If there is no line in the buffer after this one, behavior depends on the
3423 when there is no goal column.
3427 and more reliable (no dependence on goal column, etc.)."
3431 (if (save-excursion (end-of-line) (eobp))
3446 Interactively, vscroll tall lines if `auto-window-vscroll' is enabled.
3447 If there is no character in the target line exactly over the current column,
3456 when there is no goal column.
3460 to use and more reliable (no dependence on goal column, etc.)."
3569 (unless (and auto-window-vscroll try-vscroll
3634 ;; If there's no invisibility here, move over the newline.
3708 (line-beg (save-excursion (beginning-of-line) (point)))
3712 (save-excursion
3816 (let ((line-beg (save-excursion (beginning-of-line) (point))))
3833 (save-excursion
3948 ;; We use unwind-protect rather than save-window-excursion
3954 (with-no-warnings
3971 (with-no-warnings
3981 If no argument and at end of line, the previous two chars are exchanged."
4012 (save-excursion (forward-char -1) (looking-at "\\sw\\|\\s_"))))
4017 (cons (save-excursion (forward-sexp arg) (point)) (point)))
4019 ;; to make sure we'll obey the same precedence no matter which direction
4022 (cons (save-excursion (forward-sexp arg) (point))
4058 (save-excursion
4113 (save-excursion
4119 (save-excursion
4138 The return value includes no text properties.
4141 if there is no word nearby.
4144 (save-excursion
4156 (save-excursion (beginning-of-line)
4163 (save-excursion (end-of-line)
4173 (buffer-substring-no-properties start end)))))
4184 (defcustom auto-fill-inhibit-regexp nil
4185 "*Regexp to match lines which should not be auto-filled."
4193 This function is only called during auto-filling of a comment section.
4197 ;; This function is used as the auto-fill-function of a buffer
4200 ;; (Actually some major modes use a different auto-fill function,
4202 (defun do-auto-fill ()
4209 (and auto-fill-inhibit-regexp
4210 (save-excursion (beginning-of-line)
4211 (looking-at auto-fill-inhibit-regexp))))
4214 (save-excursion (unjustify-current-line)))
4221 (save-excursion (backward-paragraph 1) (point))
4222 (save-excursion (forward-paragraph 1) (point)))))
4224 ;; Use auto-indentation rather than a guessed empty prefix.
4233 (save-excursion
4244 (if (save-excursion
4247 ;; There is no use breaking at end of line.
4248 (save-excursion (skip-chars-forward " ") (eolp))
4264 ;; If point is at the fill-point, do not `save-excursion'.
4267 (if (save-excursion
4271 (save-excursion
4276 (save-excursion
4288 (defvar normal-auto-fill-function 'do-auto-fill
4289 "The function to use for `auto-fill-function' if Auto Fill mode is turned on.
4292 (put 'auto-fill-function :minor-mode-function 'auto-fill-mode)
4295 (defun auto-fill-mode (&optional arg)
4301 The value of `normal-auto-fill-function' specifies the function to use
4302 for `auto-fill-function' when turning Auto Fill mode on."
4304 (prog1 (setq auto-fill-function
4306 (not auto-fill-function)
4308 normal-auto-fill-function
4312 ;; This holds a document string used to document auto-fill-mode.
4313 (defun auto-fill-function ()
4317 (defun turn-on-auto-fill ()
4319 (auto-fill-mode 1))
4321 (defun turn-off-auto-fill ()
4323 (auto-fill-mode -1))
4325 (custom-add-option 'text-mode-hook 'turn-on-auto-fill)
4342 "Set `selective-display' to ARG; clear it if no arg.
4350 (save-restriction
4468 This variable has no effect if `blink-matching-paren' is nil.
4499 (save-excursion
4508 (save-excursion
4509 (save-restriction
4543 (save-excursion
4547 (save-excursion
4551 (if (save-excursion
4557 (if (save-excursion
4565 (if (save-excursion
4581 (substring-no-properties open-paren-line-string))))))))
4720 (save-excursion
4881 (defvar completion-no-auto-exit nil
4951 (setq completion (buffer-substring-no-properties beg end))
4995 the minibuffer; no further functions will be called.
5008 ;; or completion-no-auto-exit is non-nil.
5038 (and (not completion-no-auto-exit)
5047 (when minibuffer-auto-raise
5148 (save-excursion
5355 has a non-nil `no-clone' property, results in an error.
5368 (if (get major-mode 'no-clone)
5375 (if (get major-mode 'no-clone)
5390 (save-restriction
5443 (if (get major-mode 'no-clone-indirect)
5448 (if (get major-mode 'no-clone-indirect)
5464 (if (get major-mode 'no-clone-indirect)