Lines Matching +refs:point +refs:max
41 Various Emacs features that update auxiliary information when point moves
312 "Visit the source code corresponding to the `next-error' message at point."
341 "Move point to the next error in the `next-error' buffer and highlight match.
352 "Move point to the previous error in the `next-error' buffer and highlight match.
381 (setq compilation-current-error (point))
421 (not (buffer-has-markers-at (1- (point))))
422 (not (buffer-has-markers-at (point)))
425 (not (get-char-property (1- (point)) 'modification-hooks))
426 (not (get-char-property (1- (point)) 'insert-behind-hooks))
428 (not (get-char-property (point) 'insert-in-front-hooks)))
429 ;; Make sure the newline before point isn't intangible.
430 (not (get-char-property (1- (point)) 'intangible))
431 ;; Make sure the newline before point isn't read-only.
432 (not (get-char-property (1- (point)) 'read-only))
433 ;; Make sure the newline before point isn't invisible.
434 (not (get-char-property (1- (point)) 'invisible))
435 ;; Make sure the newline before point has the same
437 (< (or (previous-property-change (point)) -2)
438 (- (point) 2))))
441 (beforepos (point)))
452 ;; If we get an error in self-insert-command, put point at right place.
461 (- (point) (if arg (prefix-numeric-value arg) 1)) (point)))
470 (delete-region (point) (progn (end-of-line) (point))))))
483 (put-text-property from (point) 'rear-nonsticky
487 "Insert a newline and leave point before it.
494 (loc (point))
495 ;; Don't expand an abbrev before point.
509 "Split current line, moving portion beyond point vertically down.
517 (pos (point))
541 (delete-region (point) (1- (point)))
545 (<= (+ (point) (length fill-prefix)) (point-max))
547 (buffer-substring (point)
548 (+ (point) (length fill-prefix)))))
549 (delete-region (point) (+ (point) (length fill-prefix))))
575 (delete-region (point)
577 (progn (forward-line 1) (point))
578 (point-min)))))
585 (delete-region (point)
587 (progn (beginning-of-line) (point))
588 (point-max)))))
589 ;; Handle the special case where point is followed by newline and eob.
590 ;; Delete the line, leaving point at eob.
592 (delete-region (point) (point-max)))))
602 (goto-char (point-min))
604 (skip-syntax-backward "-" (save-excursion (forward-line 0) (point)))
609 (delete-region (point) (match-end 0))))))
630 (let ((pos (point)))
692 "Move point to the first non-whitespace character on this line."
700 "Fixup white space between objects around point.
712 "Delete all spaces and tabs around point.
713 If BACKWARD-ONLY is non-nil, only delete them before point."
715 (let ((orig-pos (point)))
727 "Delete all spaces and tabs around point, leaving one space (or N spaces)."
729 (let ((orig-pos (point)))
737 (point)
744 "Move point to the beginning of the buffer; leave mark at previous position.
746 With numeric arg N, put point N/10 of the way from the beginning.
752 \(goto-char (point-min)) is faster and avoids clobbering the mark."
757 (let ((size (- (point-max) (point-min))))
759 (+ (point-min)
765 (point-min))))
769 "Move point to the end of the buffer; leave mark at previous position.
771 With numeric arg N, put point N/10 of the way from the end.
777 \(goto-char (point-max)) is faster and avoids clobbering the mark."
782 (let ((size (- (point-max) (point-min))))
784 (- (point-max)
790 (point-max))))
794 ((> (point) (window-end nil t))
797 (overlay-recenter (point))
801 "Put point at beginning and mark at end of buffer.
806 (push-mark (point))
807 (push-mark (point-max) nil t)
808 (goto-char (point-min)))
816 Normally, move point in the current buffer.
817 With just \\[universal-argument] as argument, move point in the most recently
821 If there's a number in the buffer at point, it is the default for ARG."
825 ;; Look for a default, a number in the buffer at point.
831 (point)
833 (point))))))
871 "Print the current buffer line number and narrowed line number of point."
873 (let ((start (point-min))
891 (goto-char (point-min))
899 (goto-char (point-max))
909 Counting starts at (point-min), so the value refers
911 (let ((opoint (or pos (point))) start)
913 (goto-char (point-min))
914 (setq start (point))
917 (1+ (count-lines start (point))))))
921 Also describe the character after point, and give its character code
934 (beg (point-min))
935 (end (point-max))
936 (pos (point))
940 (/ (+ (/ total 200) (1- pos)) (max (/ total 100) 1))
941 (/ (+ (/ total 2) (* 100 (1- pos))) (max total 1))))
948 (message "point=%d of %d (%d%%) <%d-%d> column=%d%s"
950 (message "point=%d of %d (EOB) column=%d%s"
966 (point-max))))
991 (describe-char (point)))
993 (message "Char: %s %s point=%d of %d (%d%%) <%d-%d> column=%d%s"
996 (buffer-substring-no-properties (point) (1+ (point))))
998 (message "Char: %s %s point=%d of %d (%d%%) column=%d%s"
1002 (buffer-substring-no-properties (point) (1+ (point))))
1186 "A point-motion hook for the minibuffer, that moves point out of the prompt."
1187 (constrain-to-field nil (point-max)))
1242 (setq pos (min (max 1 (+ pos (if (< n 0) -1 1))) (length history)))
1261 (goto-char (point-max))
1318 (cond ((<= (point) prompt-end) prompt-end)
1320 (t (point))))))
1321 (goto-char (point-max))
1338 (goto-char (or minibuffer-temporary-goal-position (point-max))))))
1347 "Get next history element which completes the minibuffer before the point.
1348 The contents of the minibuffer after the point are deleted, and replaced
1351 (let ((point-at-start (point)))
1354 "^" (regexp-quote (buffer-substring (minibuffer-prompt-end) (point))))
1356 ;; next-matching-history-element always puts us at (point-min).
1358 ;; This is still sensical, because the text before point has not changed.
1359 (goto-char point-at-start)))
1363 Get previous history element which completes the minibuffer before the point.
1364 The contents of the minibuffer after the point are deleted, and replaced
1446 ;; The equiv entry might point to another redo record if we have done
1464 ;; Instead, undoing this should move point to where the change is.
1542 (undo-make-selective-list (min beg end) (max beg end))
1600 (point-at-end (< (cdr undo-elt) 0 )))
1602 (setcdr undo-elt (* (if point-at-end -1 1)
1771 With prefix argument, insert the COMMAND's output at point.
1780 `resize-mini-windows' and `max-mini-window-height'), it is shown
1796 In either case, the output is inserted after point (leaving mark after it).
1802 \(determined by the variable `max-mini-window-height' if
1854 (let ((pos-from-end (- (point-max) (point))))
1861 ;; Put point after the inserted errors.
1862 (goto-char (- (point-max) pos-from-end)))
1865 ;; This is like exchange-point-and-mark, but doesn't
1870 (set-marker (mark-marker) (point)
1900 (shell-command-on-region (point) (point) command
1909 the maximum height of the echo area, as defined by `max-mini-window-height'
1949 (cond ((floatp max-mini-window-height)
1951 max-mini-window-height))
1952 ((integerp max-mini-window-height)
1953 max-mini-window-height)
1961 (goto-char (point-max))
1964 (message "%s" (buffer-substring (point-min) (point))))
1967 (goto-char (point-min))
2003 \(determined by the variable `max-mini-window-height' if
2019 In either case, the output is inserted after point (leaving mark after it).
2022 the output in place of text from START to END, putting point and mark
2064 (and replace (push-mark (point) 'nomsg))
2076 (and replace swap (exchange-point-and-mark)))
2087 (delete-region (max start end) (point-max))
2088 (delete-region (point-min) (min start end))
2090 (call-process-region (point-min) (point-max)
2121 (if (with-current-buffer buffer (> (point-max) (point-min)))
2148 (let ((pos-from-end (- (point-max) (point))))
2155 ;; Put point after the inserted errors.
2156 (goto-char (- (point-max) pos-from-end)))
2444 (defcustom kill-ring-max 60
2454 Set `kill-ring-yank-pointer' to point to it.
2480 (if (> (length kill-ring) kill-ring-max)
2481 (setcdr (nthcdr (1- kill-ring-max) kill-ring) nil)))
2503 "Rotate the yanking point by N places, and then return that kill.
2508 yanking point; just return the Nth kill forward."
2543 "Kill (\"cut\") text between point and mark.
2566 ;; Pass point first, then mark, because the order matters
2568 (interactive (list (point) (mark)))
2630 (let ((other-end (if (= (point) beg) end beg))
2631 (opoint (point))
2638 ;; Swap point and mark.
2639 (set-marker (mark-marker) (point) (current-buffer))
2651 (if (= (point) beg)
2687 the value of the mark and point; it is guaranteed that START <= END.
2713 (before (< (point) (mark t))))
2715 (funcall (or yank-undo-function 'delete-region) (point) (mark t))
2716 (funcall (or yank-undo-function 'delete-region) (mark t) (point)))
2718 (set-marker (mark-marker) (point) (current-buffer))
2724 ;; This is like exchange-point-and-mark, but doesn't activate the mark.
2728 (set-marker (mark-marker) (point) (current-buffer))))))
2734 killed OR yanked. Put point at end, and set mark at beginning.
2735 With just \\[universal-argument] as argument, same but put point at beginning (and mark at end).
2749 (push-mark (point))
2755 ;; This is like exchange-point-and-mark, but doesn't activate the mark.
2759 (set-marker (mark-marker) (point) (current-buffer)))))
2766 "Rotate the yanking point in the kill ring.
2778 (kill-region (point) (forward-point arg)))
2784 (kill-region (point) (forward-point (- arg))))
2820 (let ((wh (- (point) (save-excursion (skip-chars-backward skip)
2821 (point)))))
2833 (kill-region (point) (progn
2835 ; (goto-char (if (> arg 0) (1- (point)) (1+ (point))))
2836 (point))))
2847 With prefix argument, kill that many lines from point.
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 \
2871 (kill-region (point)
2872 ;; It is better to move point to the other end of the kill
2873 ;; before killing. That way, in a read-only buffer, point
2876 ;; the value of point from before the command was run.
2884 (end-of-visible-line) (point))))
2890 (= (point) end))
2894 (point))))
2913 ;; before point needs to be prepended to the current kill
2914 ;; ring entry and the text after point appended. Also, we
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))))
2923 (kill-region (point)
2926 (point))))
2929 (kill-region (point) (progn (forward-visible-line 0) (point))))
2930 (kill-region (point)
2931 (progn (forward-visible-line arg) (point))))))
2946 (get-char-property (1- (point)) 'invisible)))
2955 (let ((opoint (point)))
2958 (get-char-property (point) 'invisible)))
2964 (if (get-text-property (point) 'invisible)
2965 (or (next-single-property-change (point) 'invisible)
2966 (point-max))
2967 (next-overlay-change (point)))))
2980 (get-char-property (1- (point)) 'invisible)))
2989 (let ((opoint (point)))
2992 (get-char-property (1- (point)) 'invisible)))
2998 (if (get-text-property (1- (point)) 'invisible)
2999 (or (previous-single-property-change (point) 'invisible)
3000 (point-min))
3001 (previous-overlay-change (point)))))
3017 (get-char-property (point) 'invisible)))
3023 (if (get-text-property (point) 'invisible)
3024 (goto-char (next-single-property-change (point) 'invisible))
3025 (goto-char (next-overlay-change (point))))
3030 "Insert after point the contents of BUFFER.
3048 (point)))
3053 It is inserted into that buffer before its point.
3065 point)
3067 (setq point (point))
3071 (when (= (window-point window) point)
3072 (set-window-point window (point))))))))
3076 It is inserted into that buffer after its point.
3158 (let ((beg (point))) (forward-line 1) (delete-region beg (point)))."
3177 (defcustom mark-ring-max 16
3185 (defcustom global-mark-ring-max 16
3197 (if (= (point) (mark t))
3203 "Set mark at where point is.
3208 (if (or arg (null mark) (/= mark (point)))
3228 "Set the mark where point is, or jump to the mark.
3230 between point and mark; this is the closest equivalent in
3233 With no prefix argument, set the mark at point, and push the
3250 argument, unconditionally set mark where point is, even if
3285 "Set mark at LOCATION (point, by default) and push old mark on mark ring.
3296 (when (> (length mark-ring) mark-ring-max)
3297 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)
3298 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil)))
3299 (set-marker (mark-marker) (or location (point)) (current-buffer))
3307 (when (> (length global-mark-ring) global-mark-ring-max)
3308 (move-marker (car (nthcdr global-mark-ring-max global-mark-ring)) nil)
3309 (setcdr (nthcdr (1- global-mark-ring-max) global-mark-ring) nil)))
3318 Does not set point. Does nothing if mark ring is empty."
3327 (defalias 'exchange-dot-and-mark 'exchange-point-and-mark)
3328 (defun exchange-point-and-mark (&optional arg)
3329 "Put the mark where point is now, and point where the mark is now.
3343 (set-mark (point))
3392 (or (and (>= position (point-min))
3393 (<= position (point-max)))
3486 It is the column where point was
3535 (let ((ppos (posn-at-point)))
3583 ;; Don't run any point-motion hooks, and disregard intangibility,
3585 (let ((inhibit-point-motion-hooks t)
3586 (opoint (point))
3624 (while (and (not (eobp)) (line-move-invisible-p (point)))
3625 (goto-char (next-char-property-change (point))))
3628 ;; from field boundaries ocurring exactly at point.
3632 (point) t t
3642 (not (line-move-invisible-p (point))))
3658 ;; However, if point is inside a field and on a
3661 ;; to the same column in line-move-finish, and point
3671 (not (line-move-invisible-p (1- (point)))))
3683 (not (bobp)) (line-move-invisible-p (1- (point))))
3684 (goto-char (previous-char-property-change (point))))))))
3707 (old (point))
3708 (line-beg (save-excursion (beginning-of-line) (point)))
3715 (while (and (not (eobp)) (line-move-invisible-p (point)))
3716 (goto-char (next-char-property-change (point)))
3718 (point))))
3725 ;; line-move-finish, point is at the start of a new *screen*
3727 ;; move us backwards. Test using C-n with point on the "x" in
3730 (< (point) old)
3733 (setq new (point))
3736 ;; With inhibit-point-motion-hooks bound to nil, a call to
3737 ;; goto-char moves point past intangible text.
3739 ;; However, inhibit-point-motion-hooks controls both the
3740 ;; intangibility and the point-entered/point-left hooks. The
3741 ;; following hack avoids calling the point-* hooks
3745 (let ((inhibit-point-motion-hooks nil))
3750 (if (<= (point) line-end)
3751 (setq new (point))
3759 (< line-beg (point))
3762 (<= (point) line-end))
3763 (setq new (point))
3770 (let ((inhibit-point-motion-hooks nil))
3784 (when (or (< (point) line-beg) (> (point) line-end))
3798 (not (bolp)) (line-move-invisible-p (1- (point))))
3799 (let ((normal-location (point))
3804 (line-move-invisible-p (point)))
3805 (goto-char (next-char-property-change (point))))
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))))))))
3821 "Move point to end of current line as displayed.
3826 If point reaches the beginning or end of buffer, it stops there.
3827 To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
3838 (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
3839 (goto-char (previous-char-property-change (point))))
3841 (point)))))
3843 (if (and (> (point) newpos)
3846 (if (and (> (point) newpos) (not (eobp))
3855 "Move point to beginning of current line as displayed.
3860 If point reaches the beginning or end of buffer, it stops there.
3861 To ignore intangibility, bind `inhibit-point-motion-hooks' to t."
3865 (let ((orig (point))
3874 (while (and (not (bobp)) (line-move-invisible-p (1- (point))))
3875 (goto-char (previous-char-property-change (point)))
3877 (setq start (point))
3880 (while (and (not (eobp)) (line-move-invisible-p (point)))
3881 (goto-char (next-char-property-change (point))))
3882 (setq first-vis (point))
3893 (constrain-to-field (point) orig
3942 "Move point to the beginning of the buffer in the other window.
3944 With arg N, put point N/10 of the way from the true beginning."
3953 ;; Set point and mark in that window's buffer.
3956 ;; Set point accordingly.
3961 "Move point to the end of the buffer in the other window.
3963 With arg N, put point N/10 of the way from the true end."
3978 "Interchange characters around point, moving forward one character.
3979 With prefix arg ARG, effect is to take character before point
3987 "Interchange words around point, leaving point at end of them.
3988 With prefix arg ARG, effect is to take word before or around point
3990 If ARG is zero, the words around or after point and around or after mark
3998 Does not work on a sexp that point is in the middle of
4004 ;; (cons (progn (forward-sexp x) (point))
4005 ;; (progn (forward-sexp (- x)) (point)))
4017 (cons (save-excursion (forward-sexp arg) (point)) (point)))
4022 (cons (save-excursion (forward-sexp arg) (point))
4028 (point)))))
4032 "Exchange current line and previous line, leaving point after both.
4034 With argument 0, interchanges line point is in with line mark is in."
4053 (cons (progn (funcall mover x) (point))
4054 (progn (funcall mover (- x)) (point))))))
4063 (exchange-point-and-mark))
4085 ;; used to point to after the text end up pointing to before it :-(
4100 "Set mark ARG words away from point.
4111 (if (< (mark) (point)) -1 1)))
4116 (point))))
4121 (point))
4128 (kill-region (point) (progn (forward-word arg) (point))))
4137 "Return the symbol or word that point is on (or a nearby one) as a string.
4139 If optional arg STRICT is non-nil, return nil unless point is within
4145 (let* ((oldpoint (point)) (start (point)) (end (point))
4148 (skip-syntax-backward syntaxes) (setq start (point))
4150 (skip-syntax-forward syntaxes) (setq end (point))
4157 (point)))
4164 (point)))
4165 (setq start (point))
4167 (setq end (point)))
4168 (setq end (point))
4170 (setq start (point))))
4221 (save-excursion (backward-paragraph 1) (point))
4222 (save-excursion (forward-paragraph 1) (point)))))
4232 (fill-point
4235 (setq after-prefix (point))
4240 (fill-move-to-break-point after-prefix)
4241 (point))))
4245 (goto-char fill-point)
4251 (and after-prefix (<= (point) after-prefix))
4255 (let ((limit (point)))
4259 (eq (point) limit))))))
4264 ;; If point is at the fill-point, do not `save-excursion'.
4266 ;; point will end up before it rather than after it.
4269 (= (point) fill-point))
4272 (goto-char fill-point)
4351 (narrow-to-region (point-min) (point))
4488 it skips the contents of comments that end before point."
4493 "Move cursor momentarily to the beginning of the sexp before point."
4495 (when (and (> (point) (point-min))
4498 (= 1 (logand 1 (- (point)
4502 (point))))))
4503 (let* ((oldpos (point))
4505 message-log-max ; Don't log messages about paren matching.
4511 (narrow-to-region (max (minibuffer-prompt-end)
4512 (- (point) blink-matching-paren-distance))
4574 (point)))
4700 (goto-char (point-min))
4803 (let* ((default-var (variable-at-point))
4914 (let ((beg (point-min)) (end (point-max)))
4917 (when (get-text-property (point) 'mouse-face)
4918 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4920 (unless (get-text-property (point) 'mouse-face)
4921 (goto-char (next-single-property-change (point) 'mouse-face nil end)))
4924 (let ((prop (get-text-property (1- (point)) 'mouse-face)))
4926 (when (and prop (eq prop (get-text-property (point) 'mouse-face)))
4928 (point) 'mouse-face nil beg)))
4930 (unless (or (bobp) (get-text-property (1- (point)) 'mouse-face))
4932 (point) 'mouse-face nil beg)))
4935 (point) 'mouse-face nil beg))
4939 "Choose the completion that point is in or next to."
4943 (if (and (not (eobp)) (get-text-property (point) 'mouse-face))
4944 (setq end (point) beg (1+ (point))))
4945 (if (and (not (bobp)) (get-text-property (1- (point)) 'mouse-face))
4946 (setq end (1- (point)) beg (point)))
4950 (setq end (or (next-single-property-change end 'mouse-face) (point-max)))
4964 (defun choose-completion-delete-max-match (string)
4965 (let ((opoint (point))
4968 (goto-char (max (- (point) (length string))
4972 (setq len (- opoint (point)))
4976 (let ((tail (buffer-substring (point) opoint)))
5003 to keep. If it is nil, we call `choose-completion-delete-max-match'
5028 (point-min)))
5029 (point))
5030 (choose-completion-delete-max-match choice))
5032 (remove-text-properties (- (point) (length choice)) (point)
5034 ;; Update point in the window that BUFFER is showing in.
5036 (set-window-point window (point)))
5044 (file-directory-p (field-string (point-max))))
5054 to select the completion near point.
5117 of the minibuffer before point is always the common substring.)")
5146 ;; the start of the file name component at point.
5150 (- (point) (minibuffer-prompt-end)))))
5162 (let ((element-start (point-min))
5163 (maxp (point-max))
5181 (goto-char (point-min))
5187 select the completion near point.\n\n"))))))
5203 (goto-char (point-min))
5381 (ptmin (point-min))
5382 (ptmax (point-max))
5383 (pt (point))