Lines Matching +defs:save +defs:point
40 ;; fixing and improving bookmark-time-to-save-p.
61 ;; all the keystrokes they save thereby and send them to him at the
109 (defcustom bookmark-save-flag t
111 --> nil means never save bookmarks, except when `bookmark-save' is
112 explicitly called \(\\[bookmark-save]\).
113 --> t means save bookmarks when Emacs is killed.
117 saved.\). If it is a number, Emacs will also automatically save
120 Therefore, the way to get it to save every time you make or delete a
124 To specify the file in which to save them, modify the variable
143 "*File in which to save bookmarks by default."
209 ;;; No user-serviceable parts beyond this point.
255 ;;;###autoload (define-key bookmark-map "s" 'bookmark-save)
313 (defvar bookmark-current-point 0)
314 (defvar bookmark-yank-point 0)
389 (if (bookmark-time-to-save-p)
390 (bookmark-save))))
394 "Return the position \(i.e.: point\) of BOOKMARK."
399 "Set the position \(i.e.: point\) of BOOKMARK to POSITION."
525 (if (bookmark-time-to-save-p)
526 (bookmark-save))))
538 . ,(if (>= (- (point-max) (point)) bookmark-search-size)
540 (point)
541 (+ (point) bookmark-search-size))
544 . ,(if (>= (- (point) (point-min)) bookmark-search-size)
546 (point)
547 (- (point) bookmark-search-size))
549 (position . ,(point)))))
575 ;; point))
603 ;; context in front of the point at which the bookmark is set.
605 ;; STRING-BEHIND is the same thing, but after the point.
631 affect point."
632 (save-excursion
633 (goto-char (point-min))
668 This expects to be called from `point-min' in a bookmark file."
673 (delete-region (point-min) (point-max))
676 (save-buffer))
677 (goto-char (point-min))
685 This expects to be called from `point-min' in a bookmark file."
687 (save-excursion
688 (save-match-data
700 This expects to be called from `point-min' in a bookmark file."
767 (setq bookmark-current-point (point))
768 (setq bookmark-yank-point (point))
790 (goto-char bookmark-current-point))))
800 "Kill from point to end of line.
803 (let ((eol (save-excursion (end-of-line) (point))))
804 (delete-region (point) eol)
814 (defvar bookmark-annotation-point nil)
821 the bookmark (and file, and point) specified in buffer local variables."
825 (goto-char (point-min))
826 (while (< (point) (point-max))
833 (pt bookmark-annotation-point)
836 ;; in the relevant buffer, at the relevant point.
840 (save-excursion
846 (goto-char bookmark-current-point))
863 (defun bookmark-read-annotation-mode (buf point parg bookmark)
877 (make-local-variable 'bookmark-annotation-point)
882 (setq bookmark-annotation-point point)
893 (point (point)))
895 (bookmark-read-annotation-mode buf point parg bookmark)))
932 (goto-char (point-min))
933 (while (< (point) (point-max))
941 (goto-char bookmark-current-point))
956 (save-excursion
967 (save-excursion
1001 (let ((string (save-excursion
1003 (goto-char bookmark-yank-point)
1005 (point)
1008 (setq bookmark-yank-point (point)))))))
1066 "Jump to bookmark BOOKMARK (a point in some file).
1126 (save-excursion
1127 (save-window-excursion
1144 (if (search-forward forward-str (point-max) t)
1147 (if (search-backward behind-str (point-min) t)
1151 (cons (current-buffer) (point))))
1172 This makes an already existing bookmark point to that file, instead of
1173 the one it used to point at. Useful when a file has been renamed
1194 (let ((start (point)))
1200 (save-excursion (re-search-backward
1202 (1+ (point)))
1233 (setq bookmark-current-point (point))
1234 (setq bookmark-yank-point (point))
1251 (if (bookmark-time-to-save-p)
1252 (bookmark-save))))
1265 (let ((orig-point (point))
1267 (save-excursion
1272 (goto-char orig-point)))
1301 (if (bookmark-time-to-save-p)
1302 (bookmark-save))))
1305 (defun bookmark-time-to-save-p (&optional last-time)
1307 ;; finds out whether it's time to save bookmarks to a file, by
1308 ;; examining the value of variable bookmark-save-flag, and maybe
1314 bookmark-save-flag))
1315 ((numberp bookmark-save-flag)
1316 (>= bookmark-alist-modification-count bookmark-save-flag))
1324 Don't use this in Lisp programs; use `bookmark-save' instead."
1327 (bookmark-save t))
1331 (defun bookmark-save (&optional parg file)
1334 `bookmark-default-file'. With a prefix arg, save it in file FILE
1339 pass no arguments. Or pass in nil and FILE, and it will save in FILE
1341 user will be interactively queried for a file to save in.
1358 (let ((file (read-file-name "File to save bookmarks in: ")))
1363 ;; 0. If there was an error at any point before, it will not get
1371 (save-excursion
1372 (save-window-excursion
1375 (goto-char (point-min))
1376 (delete-region (point-min) (point-max))
1389 (write-region (point-min) (point-max) file)
1457 (save-excursion
1458 (save-window-excursion
1463 (goto-char (point-min))
1519 (define-key bookmark-bmenu-mode-map "s" 'bookmark-bmenu-save)
1559 (save-excursion
1560 (save-window-excursion
1578 (add-text-properties (point-min) (point)
1590 (let ((start (point)))
1595 (save-excursion (re-search-backward
1597 (1+ (point)))
1604 (goto-char (point-min))
1624 \\[bookmark-bmenu-select] -- select bookmark of line point is on.
1640 \\[bookmark-bmenu-save] -- save the current bookmark list in the default file.
1641 With a prefix arg, prompts for a file to save in.
1679 (save-excursion
1680 (save-window-excursion
1681 (goto-char (point-min))
1685 (while (< (point) (point-max))
1689 (let ((start (save-excursion (end-of-line) (point))))
1693 (remove-text-properties start (point)
1695 (delete-region (point) (progn (end-of-line) (point)))
1705 (save-excursion
1706 (save-window-excursion
1707 (goto-char (point-min))
1711 (save-excursion
1712 (goto-char (point-min))
1716 (save-excursion
1721 (let ((start (point)))
1726 (save-excursion (re-search-backward
1728 (1+ (point)))
1742 (cond ((< (count-lines (point-min) (point)) 2)
1743 (goto-char (point-min))
1756 (save-excursion
1757 (save-window-excursion
1758 (goto-char (point-min))
1764 (save-excursion
1765 (save-window-excursion
1769 (buffer-substring-no-properties (point)
1772 (point)))
1783 (save-excursion
1786 (delete-region (point-min) (point-max))
1789 (goto-char (point-min))
1797 (delete-region (point-min) (point-max))
1806 (save-excursion (insert ann))
1807 (while (< (point) (point-max))
1813 (goto-char (point-min))
1838 (goto-char (point-min))
1861 (defun bookmark-bmenu-save (parg)
1863 With a prefix arg, prompts for a file to save them in."
1865 (save-excursion
1866 (save-window-excursion
1867 (bookmark-save parg))))
1874 (save-excursion
1875 (save-window-excursion
1924 (set-window-point (get-buffer-window buff) pos)
1942 ;; save-excursion won't do
1945 (set-window-point (get-buffer-window buff) pos)
1952 (save-excursion
1954 (save-excursion
1955 (goto-char (posn-point (event-end event)))
2038 (o-point (point))
2039 (o-str (save-excursion
2044 (point)
2045 (progn (end-of-line) (point))))))
2049 (goto-char (point-min))
2051 (while (re-search-forward "^D" (point-max) t)
2059 (goto-char (point-min))
2063 (goto-char o-point))
2067 (if (bookmark-time-to-save-p)
2068 (bookmark-save))
2078 (thispoint (point)))
2097 (thispoint (point)))
2152 (define-key map [save] '("Save Bookmarks" . bookmark-save))
2191 (bookmark-time-to-save-p t)
2192 (bookmark-save)))