aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2014-02-21 01:35:08 +0100
committerJuanma Barranquero2014-02-21 01:35:08 +0100
commit99e15133782c3aa21bb9aa19fb06dbe42941e763 (patch)
tree945509c8a90a0c5d101915f1522b8e9221ae39af
parent146a4cf20237685a47cb3e8e85b85d63d4dff704 (diff)
downloademacs-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/ChangeLog7
-rw-r--r--lisp/saveplace.el11
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 @@
12014-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
12014-02-20 Michael Albinus <michael.albinus@gmx.de> 82014-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.
55This means when you visit a file, point goes to the last place 55This means when you visit a file, point goes to the last place
56where it was when you previously visited the same file. 56where it was when you previously visited the same file.
57This variable is automatically buffer-local.
58 57
59If you wish your place in any file to always be automatically 58If you wish your place in any file to always be automatically
60saved, set this to t using the Customize facility, or put the 59saved, set this to t using the Customize facility, or put the
@@ -101,7 +100,7 @@ value of `version-control'."
101 100
102The filenames in `save-place-alist' that do not match 101The 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
106You may do this anytime by calling the complementary function, 105You 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.
151To save places automatically in all files, put this in your init 150To save places automatically in all files, put this in your init
152file: 151file:
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'.
208For each entry in the alist, if `file-readable-p' returns nil for the 207For each entry in the alist, if `file-readable-p' returns nil for the
209filename, remove the entry. Save the new alist \(as the first pair 208filename, remove the entry. Save the new alist (as the first pair
210may have changed\) back to `save-place-alist'." 209may 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