Lines Matching +defs:save +defs:point
285 floating point arithmetic is inexact. For instance, depending on
786 (list (selected-window) (point) '(0 . 0) 0)))
797 (list (selected-window) (point) '(0 . 0) 0)))
822 (defsubst posn-point (position)
831 (defun posn-set-point (position)
832 "Move point to POSITION.
837 (if (numberp (posn-point position))
838 (goto-char (posn-point position))))
927 (define-obsolete-function-alias 'window-dot 'window-point "22.1")
928 (define-obsolete-function-alias 'set-window-dot 'set-window-point "22.1")
1006 (defalias 'point-at-eol 'line-end-position)
1007 (defalias 'point-at-bol 'line-beginning-position)
1276 (defvar minor-mode-list '(auto-save-mode auto-fill-mode abbrev-mode
1480 (save-match-data
1771 SECONDS may be a floating-point value.
1773 second, floating-point values are rounded down to the nearest integer.)
1784 floating point support.
1926 (if all (save-excursion (set-buffer (other-buffer))))
1948 (save-excursion
1951 (setq pos (point))
1955 (setq insert-end (point))
1962 (if (> (point) pos)
1986 (save-excursion
2011 (unless beg (setq beg (point-min)))
2012 (unless end (setq end (point-max)))
2016 (save-excursion
2073 "Determine default tag to search for, based on text at point.
2075 (save-excursion
2079 (save-excursion (beginning-of-line) (point))
2082 (save-excursion (end-of-line) (point))
2088 (point)
2092 (point)))
2174 (save-excursion
2176 (while (< (point) end)
2177 (let ((cat (get-text-property (point) 'category))
2180 (next-single-property-change (point) 'category nil end))
2183 (remove-list-of-text-properties (point) run-end '(category))
2184 (while (< (point) run-end)
2185 (setq run-end2 (next-property-change (point) nil run-end))
2186 (setq original (text-properties-at (point)))
2187 (set-text-properties (point) run-end2 (symbol-plist cat))
2188 (add-text-properties (point) run-end2 original)
2208 "Insert STRING at point, stripping some text properties.
2226 if FUNCTION adjusts point before or after inserting the object.
2234 (opoint (point))
2242 (setq end (point))
2253 (save-excursion
2255 (while (< (point) end)
2256 (let ((face (get-text-property (point) 'font-lock-face))
2259 (next-single-property-change (point) 'font-lock-face nil end))
2261 (remove-text-properties (point) run-end '(font-lock-face nil))
2262 (put-text-property (point) run-end 'face face))
2266 (remove-yank-excluded-properties opoint (point)))
2279 "Insert before point a substring of BUFFER, without text properties.
2282 They default to the values of (point-min) and (point-max) in BUFFER."
2283 (let ((opoint (point)))
2286 (set-text-properties opoint (point) nil))))
2289 "Insert before point a part of BUFFER, stripping some text properties.
2292 They default to the values of (point-min) and (point-max) in BUFFER.
2297 (let ((opoint (point)))
2299 (remove-yank-excluded-properties opoint (point))))
2334 Insert output in BUFFER before point; t means current buffer;
2370 `(save-current-buffer
2390 ;; Most of this code is a copy of save-selected-window.
2391 `(let ((save-selected-window-window (selected-window))
2392 ;; It is necessary to save all of these, because calling
2395 (save-selected-window-alist
2398 (save-current-buffer
2402 (dolist (elt save-selected-window-alist)
2406 (if (window-live-p save-selected-window-window)
2407 (select-window save-selected-window-window 'norecord))))))
2425 (write-region (point-min) (point-max) ,temp-file nil 0)))
2617 (defvar save-match-data-internal)
2619 ;; We use save-match-data-internal as the local variable because
2623 (defmacro save-match-data (&rest body)
2631 '((save-match-data-internal (match-data)))
2635 ;; as Lisp programs should not copy from save-match-data-internal.
2636 '(set-match-data save-match-data-internal 'evaporate))))
2663 "Return non-nil if text before point matches regular expression REGEXP.
2664 Like `looking-at' except matches before point, and is slower.
2672 (let ((start (point))
2674 (save-excursion
2676 (point)))))
2678 (save-restriction
2679 (narrow-to-region (point-min) start)
2680 (while (and (> pos (point-min))
2681 (save-excursion
2686 (save-excursion
2770 Modifies the match data; use `save-match-data' if necessary."
2842 (save-match-data
2901 (save-current-buffer
2916 (unless (or (< pos (point-min)) (>= pos (point-max)))
2938 (save-excursion
2944 (save-match-data
2972 (unless (> mod-beg (point))
2973 (save-excursion (insert str))
2974 (delete-region mod-beg (point)))
2980 "Create a text clone of START...END at point.
2984 The buffer's content at point is assumed to be already identical to
2999 (let* ((pt-end (+ (point) (- end start)))
3000 (start-margin (if (or (not spreadp) (bobp) (<= start (point-min)))
3003 (>= pt-end (point-max))
3004 (>= start (point-max)))
3007 (ol2 (make-overlay (- (point) start-margin) (+ pt-end end-margin) nil t))
3309 (save-match-data