branch: externals/dicom
commit eb96cc640d7e3bda06841363501b23ee1ae62f9c
Author: Daniel Mendler <[email protected]>
Commit: Daniel Mendler <[email protected]>
Abbreviate file names in messages
---
dicom.el | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/dicom.el b/dicom.el
index f70da43afa..1f467dc7c7 100644
--- a/dicom.el
+++ b/dicom.el
@@ -487,7 +487,7 @@ progress:${percent-pos}%%' %s) & disown"
(pcase-let ((`(,dst . ,tmp) (dicom--cache-name dicom--file "mp4")))
(cond
((file-exists-p dst)
- (message "Playing %s…" dicom--file)
+ (message "Playing %s…" (abbreviate-file-name dicom--file))
(call-process-shell-command
(format dicom-play-command (shell-quote-argument dst))
nil 0))
@@ -500,7 +500,7 @@ progress:${percent-pos}%%' %s) & disown"
(alist-get 'CineRate (car dicom--data))
25))
dicom-timeout)
- (message "Converting %s…" dicom--file)
+ (message "Converting %s…" (abbreviate-file-name dicom--file))
(dicom--enqueue
(lambda (success)
(if success
