procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Fix 'toggle-save-place'

Browse source 
* lisp/saveplace.el (toggle-save-place): Set up hooks necessary to
support save-place in the buffer.  Autoload the command.
This commit is contained in:
Eli Zaretskii 2016-02-24 22:56:32 +02:00
parent 5244db2915
commit 040e0d6b3b
1 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

13
lisp/saveplace.el
View file

@ -143,6 +143,7 @@ where it was when you previously visited the same file."
(make-variable-buffer-local 'save-place-mode) ; Hysterical raisins. (make-variable-buffer-local 'save-place-mode) ; Hysterical raisins.
;;;###autoload
(defun toggle-save-place (&optional parg) ;FIXME: save-place-local-mode! (defun toggle-save-place (&optional parg) ;FIXME: save-place-local-mode!
"Toggle whether to save your place in this file between sessions. "Toggle whether to save your place in this file between sessions.
If this mode is enabled, point is recorded when you kill the buffer If this mode is enabled, point is recorded when you kill the buffer
@ -165,6 +166,18 @@ file:
(setq save-place (if parg (setq save-place (if parg
(> (prefix-numeric-value parg) 0) (> (prefix-numeric-value parg) 0)
(not save-place))) (not save-place)))
(cond
(save-place
(add-hook 'find-file-hook 'save-place-find-file-hook t)
(add-hook 'dired-initial-position-hook 'save-place-dired-hook)
(unless noninteractive
(add-hook 'kill-emacs-hook 'save-place-kill-emacs-hook))
(add-hook 'kill-buffer-hook 'save-place-to-alist))
(t
(remove-hook 'find-file-hook 'save-place-find-file-hook t)
(remove-hook 'dired-initial-position-hook 'save-place-dired-hook)
(remove-hook 'kill-emacs-hook 'save-place-kill-emacs-hook)
(remove-hook 'kill-buffer-hook 'save-place-to-alist)))
(message (if save-place (message (if save-place
"Place will be saved" "Place will be saved"
"No place will be saved in this file")))) "No place will be saved in this file"))))