branch: externals/disk-usage
commit b2497fd1f542a730d5f2fd82a27718196cd987b7
Author: Pierre Neidhardt <[email protected]>
Commit: Pierre Neidhardt <[email protected]>
Set buffer name in a defvar
---
disk-usage.el | 5 ++++-
1 file changed, 4 insertions(+), 1 deletion(-)
diff --git a/disk-usage.el b/disk-usage.el
index 80a89a2..3399084 100644
--- a/disk-usage.el
+++ b/disk-usage.el
@@ -298,6 +298,8 @@ beings."
(setq tabulated-list-printer #'disk-usage--print-entry)
(add-hook 'tabulated-list-revert-hook 'disk-usage--refresh nil t))
+(defvar disk-usage-buffer-name "disk-usage")
+
;;;###autoload
(defun disk-usage (&optional directory)
(interactive "D")
@@ -307,7 +309,8 @@ beings."
directory)
default-directory)))
(switch-to-buffer
- (get-buffer-create (format "*disk-usage<%s>*" (directory-file-name
directory))))
+ (get-buffer-create (format "*%s<%s>*" disk-usage-buffer-name
+ (directory-file-name directory))))
(disk-usage-mode)
(setq default-directory directory)
(tabulated-list-revert))
