]> git.eshelyaron.com Git - emacs.git/commitdiff
image-dired: Obsolete two unused functions
authorStefan Kangas <stefankangas@gmail.com>
Thu, 22 Sep 2022 19:52:15 +0000 (21:52 +0200)
committerStefan Kangas <stefankangas@gmail.com>
Fri, 23 Sep 2022 01:27:34 +0000 (03:27 +0200)
* 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

index dcf0b22cfe287aca51da001675977b7f35df873b..8d77a97dc47731c90ac022e60f0821c1c9f18201 100644 (file)
@@ -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