mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/saveplace.el (toggle-save-place): Fix argument handling (tiny change)

Browse source 
Fixes: debbugs:16673
This commit is contained in:
Andy Sawyer 2014-02-27 22:44:49 -08:00 • committed by Glenn Morris
parent c89f0e99ea
commit 65b7734774
2 changed files with 11 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
lisp/saveplace.el
View file

@ -155,12 +155,12 @@ file:
(if (not (or buffer-file-name (and (derived-mode-p 'dired-mode)
dired-directory)))
(message "Buffer `%s' not visiting a file or directory" (buffer-name))
(if (and save-place (or (not parg) (<= parg 0)))
(progn
(message "No place will be saved in this file")
(setq save-place nil))
(message "Place will be saved")
(setq save-place t))))
(setq save-place (if parg
(> (prefix-numeric-value parg) 0)
(not save-place)))
(message (if save-place
"Place will be saved"
"No place will be saved in this file"))))
(declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep))