diff options
| author | Andy Sawyer <andy.sawyer@gmail.com> | 2014-02-27 22:44:49 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2014-02-27 22:44:49 -0800 |
| commit | 65b77347740679cf969db5bd0221c558e02ef647 (patch) | |
| tree | 4be006687554e1d7677eed1464cf9a193a007182 | |
| parent | c89f0e99eab274814b3d9dece0a777cc616693f1 (diff) | |
* lisp/saveplace.el (toggle-save-place): Fix argument handling (tiny change)
Fixes: debbugs:16673
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/saveplace.el | 12 |
2 files changed, 11 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 65dbcf65e6..1084db3477 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -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) diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 6b23410951..a25dba2e39 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -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)) |