diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2011-04-06 21:38:46 +0200 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2011-04-06 21:38:46 +0200 |
| commit | 3e214b503eaf5c8a02b7153e5ddaf40a2d6efb13 (patch) | |
| tree | 5e88ed8e5431fe3e56e85be4cb76b99bd8b1e0f4 /lisp/saveplace.el | |
| parent | 67a22325cedc1fa04026e34e2ca8aff78942f541 (diff) | |
| download | emacs-3e214b503eaf5c8a02b7153e5ddaf40a2d6efb13.tar.gz | |
New variable `revert-buffer-in-progress-p'.
* lisp/files.el (after-find-file-from-revert-buffer): Remove variable.
(after-find-file): Dont' bind it.
(revert-buffer-in-progress-p): New variable.
(revert-buffer): Bind it.
Pass nil for `after-find-file-from-revert-buffer'.
* lisp/saveplace.el (save-place-find-file-hook): Use new variable
`rever-buffer-in-progress-p', not `after-find-file-from-revert-buffer'.
* etc/NEWS: New variable `revert-buffer-in-progress-p'.
Diffstat (limited to 'lisp/saveplace.el')
| -rw-r--r-- | lisp/saveplace.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/saveplace.el b/lisp/saveplace.el index c10b5cbb7ec..2d1586d895a 100644 --- a/lisp/saveplace.el +++ b/lisp/saveplace.el @@ -285,7 +285,7 @@ may have changed\) back to `save-place-alist'." (let ((cell (assoc buffer-file-name save-place-alist))) (if cell (progn - (or after-find-file-from-revert-buffer + (or revert-buffer-in-progress-p (goto-char (cdr cell))) ;; and make sure it will be saved again for later (setq save-place t))))) |