mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(save-place-limit): New variable.

Browse Source 
(load-save-place-alist-from-file): Obey it.
Fix "done" message.
(save-place-alist-to-file): Fix "done" message.
This commit is contained in:
Richard M. Stallman 1995-11-30 00:51:26 +00:00
parent 07682ca3c9
commit 6cf025703d
1 changed files with 23 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
lisp/saveplace.el
View File

@ -69,6 +69,9 @@ value of `version-control'.")
(defvar save-place-loaded nil
"Non-nil means that the `save-place-file' has been loaded.")
(defvar save-place-limit nil
"Maximum number of entries to retain in the list; nil means no limit.")
(defun toggle-save-place (&optional parg)
"Toggle whether to save your place in this file between sessions.
If this mode is enabled, point is recorded when you kill the buffer
@ -133,7 +136,7 @@ To save places automatically in all files, put this in your `.emacs' file:
t))))
(write-file file)
(kill-buffer (current-buffer))
(message (format "Saving places to %s... done." file))))))
(message (format "Saving places to %s...done" file))))))
(defun load-save-place-alist-from-file ()
(if (not save-place-loaded)
@ -155,8 +158,26 @@ To save places automatically in all files, put this in your `.emacs' file:
(setq save-place-alist
(car (read-from-string
(buffer-substring (point-min) (point-max)))))
;; If there is a limit, and we're over it, then we'll
;; have to truncate the end of the list:
(if save-place-limit
(if (<= save-place-limit 0)
;; Zero gets special cased. I'm not thrilled
;; with this, but the loop for >= 1 is tight.
(setq save-place-alist nil)
;; Else the limit is >= 1, so enforce it by
;; counting and then `setcdr'ing.
(let ((s save-place-alist)
(count 1))
(while s
(if (>= count save-place-limit)
(setcdr s nil)
(setq count (1+ count)))
(setq s (cdr s))))))
(kill-buffer (current-buffer))
(message (format "Loading places from %s... done." file))
(message (format "Loading places from %s...done" file))
t)
t)
nil))))