[elpa] externals/disk-usage 8bdf331 3/3: Toggle the behaviour of disk-usage-discard-previous-buffer

[Pierre Neidhardt]

branch: externals/disk-usage
commit 8bdf3312855f39ae92ce918b385123133bf2b5e3
Author: Pierre Neidhardt <address@hidden>
Commit: Pierre Neidhardt <address@hidden>

    Toggle the behaviour of disk-usage-discard-previous-buffer
---
 disk-usage.el | 13 +++++++++----
 1 file changed, 9 insertions(+), 4 deletions(-)

diff --git a/disk-usage.el b/disk-usage.el
index cfcf9d4..741cbe9 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -560,13 +560,18 @@ If DIRECTORY is nil, use current directory."
   (interactive)
   (disk-usage default-directory))
 
-(defun disk-usage-up (&optional discard-previous-buffer)
+(defun disk-usage-up (&optional toggle-discard-previous-buffer)
   "Run `disk-usage' in the parent directory.
-With DISCARD-PREVIOUS-BUFFER or prefix argument, current buffer
-is deleted before switching."
+If `disk-usage-discard-previous-buffer' is non-nil,
+the current buffer is discarded before switched.
+With TOGGLE-DISCARD-PREVIOUS-BUFFER or prefix argument, this behaviour is
+reversed."
   (interactive "p")
   (let ((directory default-directory))
-    (when (and (or discard-previous-buffer disk-usage-discard-previous-buffer)
+    (when (and (or (and (not toggle-discard-previous-buffer)
+                        disk-usage-discard-previous-buffer)
+                   (and toggle-discard-previous-buffer
+                        (not disk-usage-discard-previous-buffer)))
                (eq major-mode 'disk-usage-mode))
       (kill-this-buffer))
     (disk-usage (expand-file-name ".." directory))))