emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 42290bf823: image-dired: Fix header line when file is missing


From: Stefan Kangas
Subject: master 42290bf823: image-dired: Fix header line when file is missing
Date: Tue, 27 Sep 2022 17:00:31 -0400 (EDT)

branch: master
commit 42290bf8231159f5188d4b3c5861aa02f0489c61
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    image-dired: Fix header line when file is missing
    
    * lisp/image/image-dired.el
    (image-dired-format-properties-string): Don't error when file has
    been deleted.
---
 lisp/image/image-dired.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/lisp/image/image-dired.el b/lisp/image/image-dired.el
index 98bb6b3c5a..2c2f24be64 100644
--- a/lisp/image/image-dired.el
+++ b/lisp/image/image-dired.el
@@ -768,9 +768,11 @@ comment."
                         'face 'image-dired-thumb-header-file-name))
      (?n . ,(propertize image-count
                         'face 'image-dired-thumb-header-image-count))
-     (?s . ,(propertize (file-size-human-readable
-                         (file-attribute-size
-                          (file-attributes file)))
+     (?s . ,(propertize (if (file-exists-p file)
+                            (file-size-human-readable
+                             (file-attribute-size
+                              (file-attributes file)))
+                          "<File missing>")
                         'face 'image-dired-thumb-header-file-size))
      (?t . ,(or props ""))
      (?c . ,(or comment "")))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]