diff options
| author | Juanma Barranquero | 2014-02-21 01:35:08 +0100 |
|---|---|---|
| committer | Juanma Barranquero | 2014-02-21 01:35:08 +0100 |
| commit | 99e15133782c3aa21bb9aa19fb06dbe42941e763 (patch) | |
| tree | 945509c8a90a0c5d101915f1522b8e9221ae39af | |
| parent | 146a4cf20237685a47cb3e8e85b85d63d4dff704 (diff) | |
| download | emacs-99e15133782c3aa21bb9aa19fb06dbe42941e763.tar.gz emacs-99e15133782c3aa21bb9aa19fb06dbe42941e763.zip | |
lisp/saveplace.el (save-place): Remove redundant info in docstring.
(save-place-forget-unreadable-files, toggle-save-place)
(save-place-forget-unreadable-files, save-place-dired-hook):
Fix typos and remove unneeded backslashes.
| -rw-r--r-- | lisp/ChangeLog | 7 | ||||
| -rw-r--r-- | lisp/saveplace.el | 11 |
2 files changed, 12 insertions, 6 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index e0b8e20496d..0225646ce91 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,10 @@ | |||
| 1 | 2014-02-21 Juanma Barranquero <lekktu@gmail.com> | ||
| 2 | |||
| 3 | * saveplace.el (save-place): Remove redundant info in docstring. | ||
| 4 | (save-place-forget-unreadable-files, toggle-save-place) | ||
| 5 | (save-place-forget-unreadable-files, save-place-dired-hook): | ||
| 6 | Fix typos and remove unneeded backslashes. | ||
| 7 | |||
| 1 | 2014-02-20 Michael Albinus <michael.albinus@gmx.de> | 8 | 2014-02-20 Michael Albinus <michael.albinus@gmx.de> |
| 2 | 9 | ||
| 3 | * net/tramp.el (ls-lisp-use-insert-directory-program): Declare. | 10 | * net/tramp.el (ls-lisp-use-insert-directory-program): Declare. |
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index 05c575e0bcb..6b234109512 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el | |||
| @@ -54,7 +54,6 @@ This alist is saved between Emacs sessions.") | |||
| 54 | "Non-nil means automatically save place in each file. | 54 | "Non-nil means automatically save place in each file. |
| 55 | This means when you visit a file, point goes to the last place | 55 | This means when you visit a file, point goes to the last place |
| 56 | where it was when you previously visited the same file. | 56 | where it was when you previously visited the same file. |
| 57 | This variable is automatically buffer-local. | ||
| 58 | 57 | ||
| 59 | If you wish your place in any file to always be automatically | 58 | If you wish your place in any file to always be automatically |
| 60 | saved, set this to t using the Customize facility, or put the | 59 | saved, set this to t using the Customize facility, or put the |
| @@ -101,7 +100,7 @@ value of `version-control'." | |||
| 101 | 100 | ||
| 102 | The filenames in `save-place-alist' that do not match | 101 | The filenames in `save-place-alist' that do not match |
| 103 | `save-place-skip-check-regexp' are filtered through | 102 | `save-place-skip-check-regexp' are filtered through |
| 104 | `file-readable-p'. if nil, their alist entries are removed. | 103 | `file-readable-p'. If nil, their alist entries are removed. |
| 105 | 104 | ||
| 106 | You may do this anytime by calling the complementary function, | 105 | You may do this anytime by calling the complementary function, |
| 107 | `save-place-forget-unreadable-files'. When this option is turned on, | 106 | `save-place-forget-unreadable-files'. When this option is turned on, |
| @@ -151,7 +150,7 @@ the argument is positive. | |||
| 151 | To save places automatically in all files, put this in your init | 150 | To save places automatically in all files, put this in your init |
| 152 | file: | 151 | file: |
| 153 | 152 | ||
| 154 | \(setq-default save-place t\)" | 153 | \(setq-default save-place t)" |
| 155 | (interactive "P") | 154 | (interactive "P") |
| 156 | (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) |
| 157 | dired-directory))) | 156 | dired-directory))) |
| @@ -206,8 +205,8 @@ file: | |||
| 206 | (defun save-place-forget-unreadable-files () | 205 | (defun save-place-forget-unreadable-files () |
| 207 | "Remove unreadable files from `save-place-alist'. | 206 | "Remove unreadable files from `save-place-alist'. |
| 208 | For each entry in the alist, if `file-readable-p' returns nil for the | 207 | For each entry in the alist, if `file-readable-p' returns nil for the |
| 209 | filename, remove the entry. Save the new alist \(as the first pair | 208 | filename, remove the entry. Save the new alist (as the first pair |
| 210 | may have changed\) back to `save-place-alist'." | 209 | may have changed) back to `save-place-alist'." |
| 211 | (interactive) | 210 | (interactive) |
| 212 | ;; the following was adapted from an in-place filtering function, | 211 | ;; the following was adapted from an in-place filtering function, |
| 213 | ;; `filter-mod', used in the original. | 212 | ;; `filter-mod', used in the original. |
| @@ -324,7 +323,7 @@ may have changed\) back to `save-place-alist'." | |||
| 324 | (declare-function dired-goto-file "dired" (file)) | 323 | (declare-function dired-goto-file "dired" (file)) |
| 325 | 324 | ||
| 326 | (defun save-place-dired-hook () | 325 | (defun save-place-dired-hook () |
| 327 | "Position the point in a dired buffer." | 326 | "Position the point in a Dired buffer." |
| 328 | (or save-place-loaded (load-save-place-alist-from-file)) | 327 | (or save-place-loaded (load-save-place-alist-from-file)) |
| 329 | (let ((cell (assoc (and (derived-mode-p 'dired-mode) | 328 | (let ((cell (assoc (and (derived-mode-p 'dired-mode) |
| 330 | dired-directory | 329 | dired-directory |