From 4de526edb73637c47c62d31c7fa429fa72dce19e Mon Sep 17 00:00:00 2001
From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 22 Sep 2022 21:52:15 +0200
Subject: [PATCH] image-dired: Obsolete two unused functions
* lisp/image/image-dired-util.el (image-dired-display-window)
(image-dired-associated-dired-buffer-window): Make obsolete; they are
currently unused.
---
lisp/image/image-dired-util.el | 8 ++++++++
1 file changed, 8 insertions(+)
diff --git a/lisp/image/image-dired-util.el b/lisp/image/image-dired-util.el
index dcf0b22cfe2..8d77a97dc47 100644
--- a/lisp/image/image-dired-util.el
+++ b/lisp/image/image-dired-util.el
@@ -127,6 +127,10 @@ See also `image-dired-thumbnail-storage'."
(defun image-dired-display-window ()
"Return window where `image-dired-display-image-buffer' is visible."
+ ;; This is obsolete as it is currently unused. Once the window
+ ;; handling gets a rethink, there may or may not be a need to
+ ;; un-obsolete it again.
+ (declare (obsolete nil "29.1"))
(get-window-with-predicate
(lambda (window)
(equal (buffer-name (window-buffer window)) image-dired-display-image-buffer))
@@ -141,6 +145,10 @@ See also `image-dired-thumbnail-storage'."
(defun image-dired-associated-dired-buffer-window ()
"Return window where associated Dired buffer is visible."
+ ;; This is obsolete as it is currently unused. Once the window
+ ;; handling gets a rethink, there may or may not be a need to
+ ;; un-obsolete it again.
+ (declare (obsolete nil "29.1"))
(let (buf)
(if (image-dired-image-at-point-p)
(progn
--
2.39.5