diff options
| -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 65dbcf65e6e..1084db34775 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2014-02-28 Andy Sawyer <andy.sawyer@gmail.com> (tiny change) | ||
| 2 | |||
| 3 | * saveplace.el (toggle-save-place): | ||
| 4 | Fix argument handling. (Bug#16673) | ||
| 5 | |||
| 1 | 2014-02-28 Glenn Morris <rgm@gnu.org> | 6 | 2014-02-28 Glenn Morris <rgm@gnu.org> |
| 2 | 7 | ||
| 3 | * minibuffer.el (completions-first-difference) | 8 | * minibuffer.el (completions-first-difference) |
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: | |||
| 155 | (if (not (or buffer-file-name (and (derived-mode-p 'dired-mode) | 155 | (if (not (or buffer-file-name (and (derived-mode-p 'dired-mode) |
| 156 | dired-directory))) | 156 | dired-directory))) |
| 157 | (message "Buffer `%s' not visiting a file or directory" (buffer-name)) | 157 | (message "Buffer `%s' not visiting a file or directory" (buffer-name)) |
| 158 | (if (and save-place (or (not parg) (<= parg 0))) | 158 | (setq save-place (if parg |
| 159 | (progn | 159 | (> (prefix-numeric-value parg) 0) |
| 160 | (message "No place will be saved in this file") | 160 | (not save-place))) |
| 161 | (setq save-place nil)) | 161 | (message (if save-place |
| 162 | (message "Place will be saved") | 162 | "Place will be saved" |
| 163 | (setq save-place t)))) | 163 | "No place will be saved in this file")))) |
| 164 | 164 | ||
| 165 | (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) | 165 | (declare-function dired-get-filename "dired" (&optional localp no-error-if-not-filep)) |
| 166 | 166 | ||