branch: elpa/dirvish
commit c2fc22ed3230e20ab042370b669d0883f0351292
Author: Alex Lu <hellosimon1...@hotmail.com>
Commit: Alex Lu <hellosimon1...@hotmail.com>
fix: amend last commit
---
dirvish.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/dirvish.el b/dirvish.el
index 5ac0908116..ea7578e99e 100644
--- a/dirvish.el
+++ b/dirvish.el
@@ -844,7 +844,7 @@ filename or a string with format of `dirvish-fd-bufname'."
(insert "\n\nFile truncated. End of partial preview.\n")))
(setq buffer-file-name file)
(goto-char (point-min))
- (rename-buffer (format "Preview@DIRVISH-%s :: %s"
+ (rename-buffer (format "PREVIEW|%s :: %s"
(dv-timestamp dv) (file-name-nondirectory
file))))
(condition-case err
(eval `(let ,(mapcar (lambda (env) `(,(car env) ,(cdr env)))
@@ -900,8 +900,8 @@ filename or a string with format of `dirvish-fd-bufname'."
(let* ((attrs (ignore-errors (file-attributes file)))
(size (file-attribute-size attrs)) buf)
(cond ((setq buf (get-buffer
- (format "Preview: %s @DIRVISH-%s"
- (file-name-nondirectory file) (dv-timestamp
dv))))
+ (format "PREVIEW|%s :: %s"
+ (dv-timestamp dv) (file-name-nondirectory
file))))
`(buffer . ,buf))
((not attrs)
`(info . ,(format "Can not get attributes of [ %s ]." file)))
