A friendlier error message from image-mode in an empty buffer

* lisp/image-mode.el (image-mode): Handle the case where the empty
buffer doesn't visit a file  (Bug#54084)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index b87cf213d7ebc5870edf1d71cdb3e5970c2d735a..1eb7cd58c3d3adebf632a5a697b96f662e14eaa4 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -621,9 +621,11 @@ Key bindings:
   ;; Bail out early if we have no image data.
   (if (zerop (buffer-size))
       (funcall (if (called-interactively-p 'any) 'error 'message)
-               (if (file-exists-p buffer-file-name)
-                   "Empty file"
-                 "(New file)"))
+               (if (stringp buffer-file-name)
+                   (if (file-exists-p buffer-file-name)
+                       "Empty file"
+                     "(New file)")
+                 "Empty buffer"))
     (image-mode--display)))
 
 (defun image-mode--display ()