branch: externals/mpdired
commit 3381c37be39dfcd29be8049cedb40f084c0185de
Author: Manuel Giraud <man...@ledu-giraud.fr>
Commit: Manuel Giraud <man...@ledu-giraud.fr>
kill `mpdired--previous-directory'
There was no need for it to be saved in the buffer.
---
mpdired.el | 10 ++++------
1 file changed, 4 insertions(+), 6 deletions(-)
diff --git a/mpdired.el b/mpdired.el
index 9ab74c1dde..8ff72340bb 100644
--- a/mpdired.el
+++ b/mpdired.el
@@ -145,8 +145,6 @@
;; State variables for the main buffer
(defvar-local mpdired--directory nil
"Current directory of the browser view.")
-(defvar-local mpdired--previous-directory nil
- "Previous directory of the browser view.")
(defvar-local mpdired--view nil)
(defvar-local mpdired--comm-buffer nil
"Communication buffer associated to this MPDired buffer.")
@@ -183,7 +181,7 @@
(peer-localp (eq (plist-get peer-info :family) 'local))
(main-buffer (mpdired--main-name peer-host peer-service peer-localp))
(content (mpdired--parse-listall))
- ascending-p)
+ ascending-p previous-directory)
;; Retrieve infos from this process buffer
(with-current-buffer (process-buffer proc)
(setq ascending-p mpdired--ascending-p))
@@ -204,14 +202,14 @@
(mpdired--insert-entry (car (last data))))
;; Set mode and memorize stuff
(mpdired-mode)
- (if ascending-p (setq mpdired--previous-directory mpdired--directory))
+ (if ascending-p (setq previous-directory mpdired--directory))
(setq mpdired--directory (when top top)
mpdired--comm-buffer (process-buffer proc)
mpdired--view 'browser)
;; Finally move point to the correct place.
- (cond ((and ascending-p mpdired--previous-directory)
+ (cond ((and ascending-p previous-directory)
(goto-char (point-min))
- (re-search-forward mpdired--previous-directory nil t)
+ (re-search-forward previous-directory nil t)
(goto-char (line-beginning-position))
(setq mpdired--browser-point (point)))
(mpdired--browser-point
