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 /lisp/saveplace.el | |
| parent | c89f0e99eab274814b3d9dece0a777cc616693f1 (diff) | |
| download | emacs-65b77347740679cf969db5bd0221c558e02ef647.tar.gz | |
* lisp/saveplace.el (toggle-save-place): Fix argument handling (tiny change)
Fixes: debbugs:16673
Diffstat (limited to 'lisp/saveplace.el')
| -rw-r--r-- | lisp/saveplace.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 6b234109512..a25dba2e39e 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)) |