Lines Matching +defs:end +defs:point
148 "*If non-nil, scroll buffer to keep the point at the bottom of the window."
284 (defvar rcirc-prompt-end-marker nil)
468 (goto-char (point-max))
494 rcirc-prompt-end-marker))))
641 (when (<= rcirc-prompt-end-marker (point))
642 (delete-region rcirc-prompt-end-marker (point-max))
648 (when (<= rcirc-prompt-end-marker (point))
649 (delete-region rcirc-prompt-end-marker (point-max))
665 (if (re-search-backward " " rcirc-prompt-end-marker t)
666 (1+ (point))
667 rcirc-prompt-end-marker))
668 rcirc-prompt-end-marker))
673 (+ rcirc-prompt-end-marker
675 (point))
682 (delete-region (+ rcirc-prompt-end-marker
684 (point))
686 (if (= (+ rcirc-prompt-end-marker
688 rcirc-prompt-end-marker)
731 (define-key rcirc-browse-url-map (kbd "RET") 'rcirc-browse-url-at-point)
780 (set-marker rcirc-prompt-start-marker (point-max))
781 (make-local-variable 'rcirc-prompt-end-marker)
782 (setq rcirc-prompt-end-marker (make-marker))
783 (set-marker rcirc-prompt-end-marker (point-max))
785 (goto-char rcirc-prompt-end-marker)
826 (delete-region rcirc-prompt-start-marker rcirc-prompt-end-marker)
828 (let ((start (point)))
831 (when (not (zerop (- rcirc-prompt-end-marker
834 rcirc-prompt-end-marker
919 (if (< (point) rcirc-prompt-end-marker)
923 (let ((start (if (eq (point) (point-min))
924 (point)
925 (if (get-text-property (1- (point)) 'hard)
926 (point)
927 (previous-single-property-change (point) 'hard))))
928 (end (next-single-property-change (1+ (point)) 'hard)))
929 (goto-char (point-max))
932 (buffer-substring-no-properties start end)))))
934 (goto-char (point-max))
935 (when (not (equal 0 (- (point) rcirc-prompt-end-marker)))
937 (when (eq (point) (point-at-bol))
940 rcirc-prompt-end-marker (point))))
958 (delete-region rcirc-prompt-end-marker (point))
970 (delete-region rcirc-prompt-end-marker (point))
976 (set-marker rcirc-prompt-end-marker (point))
987 (let ((pos (1+ (- (point) rcirc-prompt-end-marker))))
988 (goto-char (point-max))
989 (let ((text (buffer-substring rcirc-prompt-end-marker (point)))
991 (delete-region rcirc-prompt-end-marker (point))
1027 (untabify (point-min) (point-max))
1028 (let ((text (buffer-substring (point-min) (point-max)))
1030 (pos (point)))
1032 (goto-char (point-max))
1036 (goto-char (+ rcirc-prompt-end-marker (1- pos)))))
1169 (setq chunk (substring chunk (match-end 0)))))
1208 (let ((moving (= (point) rcirc-prompt-end-marker))
1209 (old-point (point-marker))
1225 (set-marker-insertion-type rcirc-prompt-end-marker t)
1233 (set-marker-insertion-type rcirc-prompt-end-marker nil)
1239 rcirc-prompt-end-marker))
1264 (put-text-property (1- (point)) (point) 'rear-nonsticky t)))
1271 (delete-region (point-min) (point))))
1273 ;; set the window point for buffers show in windows
1278 (>= (window-point w)
1279 rcirc-prompt-end-marker))
1280 (set-window-point w (point-max))))
1283 ;; restore the point
1284 (goto-char (if moving rcirc-prompt-end-marker old-point))
1295 (window-point)
1476 "Move the point to the first unread line in this buffer."
1878 (defun rcirc-add-face (start end name &optional object)
1883 (while (< pos end)
1885 next (next-single-property-change pos 'face object end))
1926 (defun rcirc-browse-url-at-point (point)
1927 "Send URL at point to `browse-url'."
1929 (let ((beg (previous-single-property-change (1+ point) 'mouse-face))
1930 (end (next-single-property-change point 'mouse-face)))
1931 (browse-url (buffer-substring-no-properties beg end))))
1936 (let ((position (event-end event)))
1938 (rcirc-browse-url-at-point (posn-point position)))))
1961 (goto-char (point-min))
1965 (buffer-substring (point-min) (point-max)))))
1970 (add-text-properties (point-min) (point-max)
1972 (point-min) (point-max)))))
1976 (rcirc-add-face (match-beginning 0) (match-end 0)
1982 (when (not (eq ?\C-o (char-before (match-end 2))))
1983 (delete-region (match-beginning 2) (match-end 2)))
1984 (delete-region (match-beginning 1) (match-end 1))
1988 (delete-region (match-beginning 0) (match-end 0))))
1996 (rcirc-add-face (match-beginning 0) (match-end 0)
1999 (rcirc-add-face (point-min) (point-max) 'rcirc-nick-in-message-full-line)
2005 (end (match-end 0)))
2006 (rcirc-add-face start end 'rcirc-url)
2007 (add-text-properties start end (list 'mouse-face 'highlight
2010 (let ((url (buffer-substring-no-properties start end)))
2022 (rcirc-add-face (match-beginning 0) (match-end 0) 'rcirc-keyword)
2032 (rcirc-add-face (match-beginning 0) (match-end 0)
2258 (goto-char (point-max))
2267 (buffer-substring (point-min) (point-max))))
2483 "Returns true if point is past the input marker."
2484 (>= (point) rcirc-prompt-end-marker))