mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases 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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -1,3 +1,8 @@
2014-02-28 Andy Sawyer <andy.sawyer@gmail.com> (tiny change)
* saveplace.el (toggle-save-place):
Fix argument handling. (Bug#16673)
2014-02-28 Glenn Morris <rgm@gnu.org>
* minibuffer.el (completions-first-difference)

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))