Lines Matching +defs:next +defs:indent
55 (defun get-next-valid-buffer (list &optional buffer visible-ok frame)
88 (or (get-next-valid-buffer (frame-parameter frame 'buried-buffer-list)
90 (get-next-valid-buffer (nreverse (buffer-list frame))
96 (defun next-buffer ()
97 "Switch to the next buffer in cyclic order."
119 ;;; next-error support framework
121 (defgroup next-error nil
122 "`next-error' support framework."
126 (defface next-error
128 "Face used to highlight next error locus."
129 :group 'next-error
132 (defcustom next-error-highlight 0.5
134 If a number, highlight the locus in `next-error' face for the given time
135 in seconds, or until the next command is executed.
136 If t, highlight the locus until the next command is executed, or until
144 :group 'next-error
147 (defcustom next-error-highlight-no-select 0.5
148 "*Highlighting of locations in `next-error-no-select'.
149 If number, highlight the locus in `next-error' face for given time in seconds.
157 :group 'next-error
160 (defcustom next-error-hook nil
161 "*List of hook functions run by `next-error' after visiting source file."
163 :group 'next-error)
165 (defvar next-error-highlight-timer nil)
167 (defvar next-error-overlay-arrow-position nil)
168 (put 'next-error-overlay-arrow-position 'overlay-arrow-string "=>")
169 (add-to-list 'overlay-arrow-variable-list 'next-error-overlay-arrow-position)
171 (defvar next-error-last-buffer nil
172 "The most recent `next-error' buffer.
174 similar mode is started, or when it is used with \\[next-error]
177 (defvar next-error-function nil
178 "Function to use to find the next error in the current buffer.
184 to indicate to `next-error' that this is a candidate buffer and how
187 (make-variable-buffer-local 'next-error-function)
189 (defsubst next-error-buffer-p (buffer
193 "Test if BUFFER is a `next-error' capable buffer.
208 (if next-error-function ; This is the normal test.
217 (defun next-error-find-buffer (&optional avoid-current
220 "Return a `next-error' capable buffer.
237 (if (next-error-buffer-p
245 ;; 2. If next-error-last-buffer is an acceptable buffer, use that.
246 (if (and next-error-last-buffer
247 (next-error-buffer-p next-error-last-buffer avoid-current
249 next-error-last-buffer)
251 (if (next-error-buffer-p (current-buffer) avoid-current
257 (not (next-error-buffer-p
265 (next-error-buffer-p (current-buffer) nil
273 (defun next-error (&optional arg reset)
274 "Visit next `next-error' message and corresponding source code.
286 \\[next-error] normally uses the most recently started
291 `next-error-function' is bound to an appropriate function.
293 \\[next-error] in that buffer when it is the only one displayed
296 Once \\[next-error] has chosen the buffer for error messages, it
297 runs `next-error-hook' with `run-hooks', and stays with that buffer
305 (when (setq next-error-last-buffer (next-error-find-buffer))
306 ;; we know here that next-error-function is a valid symbol we can funcall
307 (with-current-buffer next-error-last-buffer
308 (funcall next-error-function (prefix-numeric-value arg) reset)
309 (run-hooks 'next-error-hook))))
311 (defun next-error-internal ()
312 "Visit the source code corresponding to the `next-error' message at point."
313 (setq next-error-last-buffer (current-buffer))
314 ;; we know here that next-error-function is a valid symbol we can funcall
315 (with-current-buffer next-error-last-buffer
316 (funcall next-error-function 0 nil)
317 (run-hooks 'next-error-hook)))
319 (defalias 'goto-next-locus 'next-error)
320 (defalias 'next-match 'next-error)
323 "Visit previous `next-error' message and corresponding source code.
330 (next-error (- (or n 1))))
338 (next-error n t))
340 (defun next-error-no-select (&optional n)
341 "Move point to the next error in the `next-error' buffer and highlight match.
344 Finds and highlights the source line like \\[next-error], but does not
347 (let ((next-error-highlight next-error-highlight-no-select))
348 (next-error n))
349 (pop-to-buffer next-error-last-buffer))
352 "Move point to the previous error in the `next-error' buffer and highlight match.
358 (next-error-no-select (- (or n 1))))
360 ;;; Internal variable for `next-error-follow-mode-post-command-hook'.
361 (defvar next-error-follow-last-line nil)
363 (define-minor-mode next-error-follow-minor-mode
368 :group 'next-error :init-value nil :lighter " Fol"
369 (if (not next-error-follow-minor-mode)
370 (remove-hook 'post-command-hook 'next-error-follow-mode-post-command-hook t)
371 (add-hook 'post-command-hook 'next-error-follow-mode-post-command-hook nil t)
372 (make-local-variable 'next-error-follow-last-line)))
374 ;;; Used as a `post-command-hook' by `next-error-follow-mode'
376 (defun next-error-follow-mode-post-command-hook ()
377 (unless (equal next-error-follow-last-line (line-number-at-pos))
378 (setq next-error-follow-last-line (line-number-at-pos))
382 (next-error-no-select 0))
501 (if do-left-margin (indent-to (current-left-margin)))
529 (indent-to col 0)
611 (defun newline-and-indent ()
612 "Insert a newline, then indent according to major mode.
613 Indentation is done using the value of `indent-line-function'.
620 (indent-according-to-mode))
622 (defun reindent-then-newline-and-indent ()
623 "Reindent current line, insert newline, then indent the new line.
625 which means calling the current value of `indent-line-function'.
636 (indent-according-to-mode)
638 (indent-according-to-mode)))
641 "Read next input character and insert it.
965 (let ((to (or (next-single-property-change pos 'display)
1129 You can use the minibuffer history commands \\<minibuffer-local-map>\\[next-history-element] and \\[previous-history-element]
1192 \\[previous-matching-history-element] and \\[next-matching-history-element]\
1201 If N is negative, find the next or Nth next match.
1266 next-matching-history-element))
1269 (defun next-matching-history-element (regexp n)
1270 "Find the next history element that matches REGEXP.
1271 \(The next history element refers to a more recent action.)
1272 With prefix argument N, search for Nth next match.
1296 (defun next-history-element (n)
1297 "Puts next element of the minibuffer history in the minibuffer.
1310 (error "End of history; no next item")
1314 (unless (memq last-command '(next-history-element
1344 (next-history-element (- n)))
1346 (defun next-complete-history-element (n)
1347 "Get next history element which completes the minibuffer before the point.
1352 (next-matching-history-element
1356 ;; next-matching-history-element always puts us at (point-min).
1367 (next-complete-history-element (- n)))
1405 ;; Make last-command indicate for the next command that this was an undo.
1415 ;; the next command should not be a "consecutive undo".
1436 ;; If we got this far, the next command should be a consecutive undo.
1448 (while (let ((next (gethash equiv undo-equiv-table)))
1449 (if next (setq equiv next))))
1484 ;; so the next command can tell if the buffer was modified in between.
1534 The next call to `undo-more' will undo the most recently made change.
2287 "Begin a negative numeric argument for the next command.
2300 "Part of the numeric argument for the next command.
2345 the next. The return value of the last function is used as the
2549 use \\[append-next-kill] before \\[kill-region].
2621 use \\[append-next-kill] before \\[kill-ring-save].
2658 (defun append-next-kill (&optional interactive)
2666 (message "If the next command is a kill, it will append"))
2863 use \\[append-next-kill] before \\[kill-line].
2965 (or (next-single-property-change (point) 'invisible)
2967 (next-overlay-change (point)))))
3012 ;; then find the next newline.
3024 (goto-char (next-single-property-change (point) 'invisible))
3025 (goto-char (next-overlay-change (point))))
3041 (if (eq (selected-window) (next-window (selected-window)))
3043 (window-buffer (next-window (selected-window))))
3246 the \\[set-mark-command] command with no prefix argument pops the next position
3401 (defcustom next-line-add-newlines nil
3402 "*If non-nil, `next-line' inserts newline to avoid `end of buffer' error."
3407 (defun next-line (&optional arg try-vscroll)
3414 value of `next-line-add-newlines'. If non-nil, it inserts a newline character
3430 (if (and next-line-add-newlines (= arg 1))
3491 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines.
3579 ;; This is the guts of next-line and previous-line.
3590 (if (not (memq last-command '(next-line previous-line)))
3625 (goto-char (next-char-property-change (point))))
3716 (goto-char (next-char-property-change (point)))
3805 (goto-char (next-char-property-change (point))))
3881 (goto-char (next-char-property-change (point))))
3902 "Set the current horizontal position as a goal for \\[next-line] and \\[previous-line].
3906 so that \\[next-line] and \\[previous-line] resume vertical motion.
4105 it marks the next ARG words after the ones already marked."
4190 (defvar comment-line-break-function 'comment-indent-new-line
4225 (not (and fill-indent-according-to-mode
4410 end of a line joins the line to the next, with the typed character
4870 (define-key map [right] 'next-completion)
4908 (next-completion (- n)))
4910 (defun next-completion (n)
4911 "Move to the next item in the completion list.
4918 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4919 ;; Move to start of next one.
4921 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4939 "Choose the completion that point is in or next to."
4950 (setq end (or (next-single-property-change end 'mouse-face) (point-max)))
5166 (next-single-property-change