[elpa] externals/disk-usage b2497fd 19/48: Set buffer name in a defvar

[Stefan Monnier]

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

    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))