Lines Matching +defs:set +defs:line
93 (set-buffer-major-mode (get-buffer-create "*scratch*"))
103 (set-frame-parameter nil 'buried-buffer-list
115 (set-frame-parameter nil 'buried-buffer-list bbl)))
183 Major modes providing compile-like functionality should set this variable
344 Finds and highlights the source line like \\[next-error], but does not
355 Finds and highlights the source line like \\[previous-error], but does not
361 (defvar next-error-follow-last-line nil)
372 (make-local-variable 'next-error-follow-last-line)))
377 (unless (equal next-error-follow-last-line (line-number-at-pos))
378 (setq next-error-follow-last-line (line-number-at-pos))
402 "Insert a newline, and move to left margin of the new line if it's blank.
410 ;; Inserting a newline at the end of a line produces better redisplay in
411 ;; try_window_id than inserting at the beginning of a line, and the textual
412 ;; result is the same. So, if we're at beginning of line, pretend to be at
413 ;; the end of the previous line.
447 ;; Also not if flag is true (it would fill wrong line);
460 (set-hard-newline-properties
462 ;; If the newline leaves the previous line blank,
463 ;; and we have a left margin, delete that from the blank line.
467 (beginning-of-line)
470 (delete-region (point) (progn (end-of-line) (point))))))
471 ;; Indent the line after the newline, except in one case:
472 ;; when we added the newline at the beginning of a line
478 (defun set-hard-newline-properties (from to)
486 (defun open-line (n)
489 on the new line if the line would have been blank.
503 (forward-line 1)
506 (end-of-line)))
508 (defun split-line (&optional arg)
509 "Split current line, moving portion beyond point vertically down.
510 If the current line starts with `fill-prefix', insert it on the new
511 line as well. With prefix ARG, don't insert `fill-prefix' on new line.
522 ;; Does this line start with it?
525 (beginning-of-line)
533 "Join this line to previous and fix up whitespace at join.
534 If there is a fill prefix, delete it from the beginning of this line.
535 With argument, join this line to following line."
537 (beginning-of-line)
538 (if arg (forward-line 1))
542 ;; If the second line started with the fill prefix,
552 (defalias 'join-line #'delete-indentation) ; easier to find
555 "On blank line, delete all surrounding blank lines, leaving just one.
556 On isolated blank line, delete that one.
557 On nonblank line, delete any immediately following blank lines."
561 (beginning-of-line)
563 ;; Set singleblank if there is just one blank line here.
568 (progn (forward-line -1)
573 (beginning-of-line)
574 (if singleblank (forward-line 1))
577 (progn (forward-line 1) (point))
579 ;; Delete following blank lines, unless the current line is blank
583 (end-of-line)
584 (forward-line 1)
587 (progn (beginning-of-line) (point))
590 ;; Delete the line, leaving point at eob.
596 All whitespace after the last non-whitespace character in a line is deleted.
604 (skip-syntax-backward "-" (save-excursion (forward-line 0) (point)))
613 Indentation is done using the value of `indent-line-function'.
623 "Reindent current line, insert newline, then indent the new line.
625 which means calling the current value of `indent-line-function'.
631 ;; Be careful to insert the newline before indenting the line.
649 set it to 10 or 16 to use decimal or hex instead of octal.
666 ;; single-byte character set, and convert them to Emacs
682 (forward-line (or arg 1))
688 (forward-line (- (or arg 1)))
692 "Move point to the first non-whitespace character on this line."
694 (beginning-of-line 1)
695 (skip-syntax-forward " " (line-end-position))
745 With \\[universal-argument] prefix, do not set mark at previous position.
766 (if (and arg (not (consp arg))) (forward-line 1)))
770 With \\[universal-argument] prefix, do not set mark at previous position.
792 ;; adjust it to the beginning of a line.
793 (cond ((and arg (not (consp arg))) (forward-line 1))
814 (defun goto-line (arg &optional buffer)
815 "Goto line ARG, counting from line 1 at beginning of buffer.
843 (list (read-from-minibuffer (format (if default "Goto line%s (%s): "
844 "Goto line%s: ")
856 ;; Move to the specified line number in that buffer.
862 (forward-line (1- arg)))))
870 (defun what-line ()
871 "Print the current buffer line number and narrowed line number of point."
874 (n (line-number-at-pos)))
880 (message "line %d (narrowed line %d)"
881 (+ n (line-number-at-pos start) -1) n))))))
887 and the greater of them is not at the start of a line."
904 (- (buffer-size) (forward-line (buffer-size)))))))
906 (defun line-number-at-pos (&optional pos)
907 "Return (narrowed) buffer line number at position POS.
916 (forward-line 0)
961 ;; text property. In that case, set under-display to the
1010 (set-keymap-parent m minibuffer-local-map)
1033 "If non-nil set `debug-on-error' to t in `eval-expression'.
1317 (set (make-local-variable 'minibuffer-temporary-goal-position)
1416 ;; So set `this-command' to something other than `undo'.
1688 it exceeds `undo-outer-limit'. But if you set this option
1742 future, set `undo-outer-limit' to a value that is large enough to
1761 "Switch used to have the shell execute its command line argument.")
1870 (set-marker (mark-marker) (point)
1896 (setq mode-line-process '(":%s"))
1898 (set-process-sentinel proc 'shell-command-sentinel)
2034 (error "The mark is not set now, so there is no region"))
2101 (set-buffer buffer)
2114 (setq mode-line-process
2268 These commands include \\[set-mark-command] and \\[start-kbd-macro]."
2364 Point is temporarily set to BEG before calling
2383 (set-text-properties 0 (length string) nil string))
2406 similar argument to `x-set-cut-buffer', which see.")
2490 yank-handler text property to be set on the combined kill ring
2495 If `interprogram-cut-function' is set, pass the resulting kill to it."
2504 If N is zero, `interprogram-paste-function' is set, and calling it
2564 specifies the yank-handler text property to be set on the killed
2570 (error "The mark is not set now, so there is no region"))
2588 ;; Set this-command now, so it will be set even if we get an error.
2620 If you want to append the killed line to the last killed text,
2639 (set-marker (mark-marker) (point) (current-buffer))
2643 (set-marker (mark-marker) other-end (current-buffer))
2688 Normally set from the UNDO element of a yank-handler; see `insert-for-yank'.")
2718 (set-marker (mark-marker) (point) (current-buffer))
2722 (set-window-start (selected-window) yank-window-start t)
2728 (set-marker (mark-marker) (point) (current-buffer))))))
2734 killed OR yanked. Put point at end, and set mark at beginning.
2759 (set-marker (mark-marker) (point) (current-buffer)))))
2838 ;; kill-line and its subroutines.
2840 (defcustom kill-whole-line nil
2841 "*If non-nil, `kill-line' with no arg at beg of line kills the whole line."
2845 (defun kill-line (&optional arg)
2846 "Kill the rest of the current line; if no nonblanks there, kill thru newline.
2849 With zero argument, kills the text before point on the current line.
2854 To kill a whole line, when point is not at the beginning, type \
2855 \\[move-beginning-of-line] \\[kill-line] \\[kill-line].
2857 If `kill-whole-line' is non-nil, then this command kills the whole line
2858 including its terminating newline, when used at the beginning of a line
2859 with no argument. As a consequence, you can always kill a whole line
2860 by typing \\[move-beginning-of-line] \\[kill-line].
2862 If you want to append the killed line to the last killed text,
2863 use \\[append-next-kill] before \\[kill-line].
2866 the line, but put the line in the kill ring anyway. This means that
2879 (forward-visible-line (prefix-numeric-value arg))
2884 (end-of-visible-line) (point))))
2891 (and kill-whole-line (bolp)))
2892 (forward-visible-line 1)
2896 (defun kill-whole-line (&optional arg)
2897 "Kill current line.
2898 With prefix arg, kill that many lines starting from the current line.
2901 If arg is zero, kill current line but exclude the trailing newline."
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)))
2918 (kill-region (point) (progn (forward-visible-line 0) (point))))
2919 (kill-region (point) (progn (end-of-visible-line) (point))))
2922 (kill-region (point) (progn (end-of-visible-line) (point))))
2924 (progn (forward-visible-line (1+ arg))
2929 (kill-region (point) (progn (forward-visible-line 0) (point))))
2931 (progn (forward-visible-line arg) (point))))))
2933 (defun forward-visible-line (arg)
2936 If ARG is zero, move to the beginning of the current line."
2941 (or (zerop (forward-line 1))
2973 (beginning-of-line)
2974 (or (zerop (forward-line -1))
3007 (defun end-of-visible-line ()
3008 "Move to end of current visible line."
3009 (end-of-line)
3026 (end-of-line)))
3066 (set-buffer append-to)
3072 (set-window-point window (point))))))))
3084 (set-buffer (get-buffer-create buffer))
3117 "Return this buffer's mark value as integer, or nil if never set.
3125 a mistake; see the documentation of `set-mark'."
3130 ;; Many places set mark-active directly, and several of them failed to also
3143 (defun set-mark (pos)
3149 Normally, when a new mark is set, the old one should go on the stack.
3150 This is why most applications should use `push-mark', not `set-mark'.
3158 (let ((beg (point))) (forward-line 1) (delete-region beg (point)))."
3164 (set-marker (mark-marker) pos (current-buffer)))
3170 (set-marker (mark-marker) nil)))
3196 (error "No mark set in this buffer")
3204 If no prefix arg and mark is already set there, just activate it.
3205 Display `Mark set' unless the optional second arg NOMSG is non-nil."
3215 (defcustom set-mark-command-repeat-pop nil
3216 "*Non-nil means repeating \\[set-mark-command] after popping mark pops it again.
3217 That means that C-u \\[set-mark-command] \\[set-mark-command]
3219 C-u \\[set-mark-command] \\[set-mark-command] \\[set-mark-command]
3222 A value of nil means \\[set-mark-command]'s behavior does not change
3223 after C-u \\[set-mark-command]."
3227 (defun set-mark-command (arg)
3233 With no prefix argument, set the mark at point, and push the
3235 global mark ring, if the previous mark was set in another buffer.
3239 With prefix argument \(e.g., \\[universal-argument] \\[set-mark-command]\), \
3240 jump to the mark, and set the mark from
3245 If `set-mark-command-repeat-pop' is non-nil, repeating
3246 the \\[set-mark-command] command with no prefix argument pops the next position
3250 argument, unconditionally set mark where point is, even if
3251 `set-mark-command-repeat-pop' is non-nil.
3254 purposes. See the documentation of `set-mark' for more information."
3261 ((not (eq this-command 'set-mark-command))
3265 ((and set-mark-command-repeat-pop
3269 ((and set-mark-command-repeat-pop
3277 ((and (eq last-command 'set-mark-command)
3288 Display `Mark set' unless the optional second arg NOMSG is non-nil.
3291 purposes. See the documentation of `set-mark' for more information.
3299 (set-marker (mark-marker) (or location (point)) (current-buffer))
3311 (message "Mark set"))
3313 (set-mark (mark t)))
3318 Does not set point. Does nothing if mark ring is empty."
3321 (set-marker (mark-marker) (+ 0 (car mark-ring)) (current-buffer))
3342 (error "No mark set in this buffer"))
3343 (set-mark (point))
3353 So do certain other operations that set the mark
3385 (error "No global mark set"))
3391 (set-buffer buffer)
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)
3410 If there is no character in the target line exactly under the current column,
3411 the cursor is positioned after the character in that line which spans this
3412 column, or at the end of the line if it is not long enough.
3413 If there is no line in the buffer after this one, behavior depends on the
3414 value of `next-line-add-newlines'. If non-nil, it inserts a newline character
3415 to create a line, and moves the cursor to that line. Otherwise it moves the
3418 The command \\[set-goal-column] can be used to create
3426 using `forward-line' instead. It is usually easier to use
3430 (if (and next-line-add-newlines (= arg 1))
3431 (if (save-excursion (end-of-line) (eobp))
3434 (end-of-line)
3436 (line-move arg nil nil try-vscroll))
3439 (line-move arg nil nil try-vscroll)
3441 (line-move arg nil nil try-vscroll)))
3444 (defun previous-line (&optional arg try-vscroll)
3447 If there is no character in the target line exactly over the current column,
3448 the cursor is positioned after the character in that line which spans this
3449 column, or at the end of the line if it is not long enough.
3451 The command \\[set-goal-column] can be used to create
3459 `forward-line' with a negative argument instead. It is usually easier
3465 (line-move (- arg) nil nil try-vscroll)
3467 (line-move (- arg) nil nil try-vscroll))
3471 "*Non-nil means vertical motion starting at end of line keeps to ends of lines.
3472 This means moving to the end of each line moved onto.
3473 The beginning of a blank line does not count as the end of a line."
3478 "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil."
3490 (defcustom line-move-ignore-invisible t
3491 "*Non-nil means \\[next-line] and \\[previous-line] ignore invisible lines.
3496 (defun line-move-invisible-p (pos)
3506 (defun line-move-partial (arg noerror to-end)
3512 (set-window-vscroll nil (- vs (frame-char-height)) t)))
3515 (let* ((lh (window-line-height -1))
3528 ;; If last line of window is fully visible, move forward.
3534 (or (nth 1 (window-line-height))
3544 (set-window-vscroll nil (+ vs (min rbot (frame-char-height))) t)))
3546 ;; but also vscroll one line so redisplay wont recenter.
3550 (set-window-vscroll nil (frame-char-height) t)
3551 (line-move-1 arg noerror to-end)
3553 ;; If there are lines above the last line, scroll-up one line.
3559 (set-window-vscroll nil (frame-char-height) t)))))))
3562 ;; This is like line-move-1 except that it also performs
3568 (defun line-move (arg &optional noerror to-end try-vscroll)
3570 ;; Only vscroll for single line moves
3575 (line-move-partial arg noerror to-end))
3576 (set-window-vscroll nil 0 t)
3577 (line-move-1 arg noerror to-end)))
3579 ;; This is the guts of next-line and previous-line.
3582 (defun line-move-1 (arg &optional noerror to-end)
3590 (if (not (memq last-command '(next-line previous-line)))
3593 ;; Don't count beg of empty line as end of line
3594 ;; unless we just did explicit end-of-line.
3595 (or (not (bolp)) (eq last-command 'move-end-of-line)))
3600 (not line-move-ignore-invisible))
3604 (progn (if (> arg 1) (forward-line (1- arg)))
3608 (end-of-line)
3609 (if (zerop (forward-line 1))
3611 (and (zerop (forward-line arg))
3624 (while (and (not (eobp)) (line-move-invisible-p (point)))
3626 ;; Move a line.
3627 ;; We don't use `end-of-line', since we want to escape
3631 (line-end-position))
3633 'inhibit-line-move-field-capture))
3642 (not (line-move-invisible-p (point))))
3645 (forward-line 1))
3657 ;; case, we should call beginning-of-line here.
3659 ;; continued line, the call to (vertical-motion -1)
3661 ;; to the same column in line-move-finish, and point
3663 (forward-line 0)
3671 (not (line-move-invisible-p (1- (point)))))
3672 (forward-line -1))
3680 ;; if our target is the middle of this line.
3683 (not (bobp)) (line-move-invisible-p (1- (point))))
3690 ;; at least go to end of line.
3691 (end-of-line))
3694 ;; at least go to beginning of line.
3695 (beginning-of-line))
3697 (line-move-finish (or goal-column temporary-goal-column)
3700 (defun line-move-finish (column opoint forward)
3708 (line-beg (save-excursion (beginning-of-line) (point)))
3709 (line-end
3710 ;; Compute the end of the line
3713 ;; Like end-of-line but ignores fields.
3715 (while (and (not (eobp)) (line-move-invisible-p (point)))
3721 (line-move-to-column column)
3724 ;; the middle of a continued line. When we get to
3725 ;; line-move-finish, point is at the start of a new *screen*
3726 ;; line but the same text line; then line-move-to-column would
3735 ;; Process intangibility within a line.
3749 ;; in the same line, use that as the destination.
3750 (if (<= (point) line-end)
3758 ;; allowable position if it is before the target line.
3759 (< line-beg (point))
3761 ;; allowable position if it is still after the target line.
3762 (<= (point) line-end))
3764 ;; As a last resort, use the end of the line.
3765 (setq new line-end))))
3780 'inhibit-line-move-field-capture))))
3782 ;; If all this moved us to a different line,
3783 ;; retry everything within that new line.
3784 (when (or (< (point) line-beg) (> (point) line-end))
3788 (defun line-move-to-column (col)
3794 (beginning-of-line)
3797 (when (and line-move-ignore-invisible
3798 (not (bolp)) (line-move-invisible-p (1- (point))))
3804 (line-move-invisible-p (point)))
3810 (line-move-to-column (+ (current-column) (- col normal-column)))
3816 (let ((line-beg (save-excursion (beginning-of-line) (point))))
3817 (while (and (not (bolp)) (line-move-invisible-p (1- (point))))
3818 (goto-char (previous-char-property-change (point) line-beg))))))))
3820 (defun move-end-of-line (arg)
3821 "Move point to end of current line as displayed.
3822 \(If there's an image in the line, this disregards newlines
3835 (and (line-move arg t)
3838 (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
3854 (defun move-beginning-of-line (arg)
3855 "Move point to beginning of current line as displayed.
3856 \(If there's an image in the line, this disregards newlines
3870 (line-move (1- arg) t))
3872 ;; Move to beginning-of-line, ignoring fields and invisibles.
3874 (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
3879 ;; Now find first visible char in the line
3880 (while (and (not (eobp)) (line-move-invisible-p (point)))
3899 (put 'set-goal-column 'disabled t)
3901 (defun set-goal-column (arg)
3902 "Set the current horizontal position as a goal for \\[next-line] and \\[previous-line].
3903 Those commands will move to this position in the line moved to
3906 so that \\[next-line] and \\[previous-line] resume vertical motion.
3914 ;; The older method below can be erroneous if `set-goal-column' is bound
3917 ;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)")
3923 "(use \\[set-goal-column] with an arg to unset it)")))
3981 If no argument and at end of line, the previous two chars are exchanged."
4032 "Exchange current line and previous line, leaving point after both.
4033 With argument ARG, takes previous line and moves it past ARG lines.
4034 With argument 0, interchanges line point is in with line mark is in."
4042 (setq arg (forward-line arg))
4047 (forward-line arg))))
4112 (set-mark
4154 ;; Look for preceding word in same line.
4156 (save-excursion (beginning-of-line)
4159 ;; No preceding word in same line.
4160 ;; Look for following word in same line.
4163 (save-excursion (end-of-line)
4177 "*String for filling to insert at front of new line, or nil for none."
4190 (defvar comment-line-break-function 'comment-indent-new-line
4191 "*Mode-specific function which line breaks and continues a comment.
4210 (save-excursion (beginning-of-line)
4214 (save-excursion (unjustify-current-line)))
4230 ;; Determine where to split the line.
4234 (beginning-of-line)
4247 ;; There is no use breaking at end of line.
4256 (beginning-of-line)
4262 ;; Ok, we have a useful place to break the line. Do it.
4270 (funcall comment-line-break-function t)
4273 (funcall comment-line-break-function t)))
4277 (end-of-line 0)
4278 (justify-current-line justify nil t)))
4279 ;; If making the new line didn't reduce the hpos of
4280 ;; the end of the line, then give up now;
4284 ;; Justify last line.
4285 (justify-current-line justify t t)
4290 Some major modes set this.")
4299 automatically breaks the line at a previous space.
4310 (force-mode-line-update)))
4314 "Automatically break line at a previous space, in insertion of text."
4327 (defun set-fill-column (arg)
4336 (error "set-fill-column requires an explicit argument")
4337 (message "Fill column set to %d (was %d)" arg fill-column)
4341 (defun set-selective-display (arg)
4357 (set-window-start (selected-window) (window-start (selected-window)))
4358 (princ "selective-display set to " t)
4374 (force-mode-line-update)
4379 (set-window-hscroll window 0)))
4385 "The string displayed in the mode line when in overwrite mode.")
4387 "The string displayed in the mode line when in binary overwrite mode.")
4394 end of a line, such characters extend the line. Before a tab,
4403 (force-mode-line-update))
4410 end of a line joins the line to the next, with the typed character
4425 (force-mode-line-update))
4427 (define-minor-mode line-number-mode
4430 When Line Number mode is enabled, the line number appears
4431 in the mode line.
4434 with very long lines; see variables `line-number-display-limit'
4435 and `line-number-display-limit-width'."
4436 :init-value t :global t :group 'mode-line)
4442 in the mode line."
4443 :global t :group 'mode-line)
4449 of the buffer appears in the mode line."
4450 :global t :group 'mode-line)
4507 open-paren-line-string)
4549 (setq open-paren-line-string
4550 ;; Show what precedes the open in its line, if anything.
4554 (buffer-substring (line-beginning-position)
4556 ;; Show what follows the open in its line, if anything.
4562 (line-end-position))
4563 ;; Otherwise show the previous nonblank line,
4571 (line-beginning-position))
4572 (progn (end-of-line)
4581 (substring-no-properties open-paren-line-string))))))))
4699 ;; Go to header delimiter line in a mail message, following RFC822 rules
4730 (forward-line 1)
4785 (defvar set-variable-value-history nil
4786 "History of values entered with `set-variable'.")
4788 (defun set-variable (variable value &optional make-local)
4801 With a prefix argument, set VARIABLE to VALUE buffer-locally."
4815 (local-variable-if-set-p var))
4832 'set-variable-value-history
4851 (set variable value)
4855 (force-mode-line-update))
5020 (set-buffer buffer)
5036 (set-window-point window (point)))
5112 The value is set by `display-completion-list' during running `completion-setup-hook'.
5126 ;; set default-directory in the minibuffer
5134 (set (make-local-variable 'completion-reference-buffer) mainbuf)
5205 (forward-line 1))))
5333 (set-process-query-on-exit-flag
5335 (set-process-inherit-coding-system-flag
5337 (set-process-filter new-process (process-filter process))
5338 (set-process-sentinel new-process (process-sentinel process))
5339 (set-process-plist new-process (copy-sequence (process-plist process)))
5363 after it has been set up properly in other respects."
5397 (if mk (set-mark mk))
5398 (set-buffer-modified-p modified)
5403 ;; Now set up the major mode.
5411 (set (make-local-variable (car v)) (cdr v)))
5415 ;; Run any hooks (typically set up by the major mode
5484 ;; set to ^H, use the Backspace key for deleting
5493 option's default value is set to t, so that Backspace can be used to
5508 :set (lambda (symbol value)
5509 ;; The fboundp is because of a problem with :set when
5513 (set-default symbol value))))
5613 (set (make-local-variable 'vis-mode-saved-buffer-invisibility-spec)