From: Eli Zaretskii <eliz@gnu.org>
Date: Sat, 23 Mar 2024 07:51:47 +0000 (+0200)
Subject: Avoid infinite recursion in 'image-mode--display'
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=43fb45fc580c28bcb170dbdc4df6efe40fa58378;p=emacs.git

Avoid infinite recursion in 'image-mode--display'

* lisp/image-mode.el (image-mode): Suspend major mode only if it
is not already 'image-mode'.  (Bug#69785)

(cherry picked from commit e52bc9ef6f7942b15d876566aca52340210ac27c)
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 355685e70fd..fa64f1ac03e 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -654,8 +654,9 @@ Key bindings:
   (unless (display-images-p)
     (error "Display does not support images"))
 
-  (major-mode-suspend)
-  (setq major-mode 'image-mode)
+  (unless (eq major-mode 'image-mode)
+    (major-mode-suspend)
+    (setq major-mode 'image-mode))
   (setq image-transform-resize image-auto-resize)
 
   ;; Bail out early if we have no image data.