From: Stefan Kangas <stefankangas@gmail.com>
Date: Wed, 21 Sep 2022 15:38:30 +0000 (+0200)
Subject: Obsolete image-mode--images-in-directory
X-Git-Tag: emacs-29.0.90~1856^2~321
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=080289a922e30adf894a0b8539607ac8f7829674;p=emacs.git

Obsolete image-mode--images-in-directory

* lisp/image-mode.el (image-mode--images-in-directory): Make
unused function obsolete.
---

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 0f1c4901591..a4c292f2b60 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -1369,16 +1369,6 @@ If no such buffer exists, it will be opened."
       (message "%s%s" (capitalize (substring string 0 1))
                (substring string 1)))))
 
-(defun image-mode--images-in-directory (file)
-  (let* ((dir (file-name-directory buffer-file-name))
-	 (files (directory-files dir nil
-				 (image-file-name-regexp) t)))
-    ;; Add the current file to the list of images if necessary, in
-    ;; case it does not match `image-file-name-regexp'.
-    (unless (member file files)
-      (push file files))
-    (sort files 'string-lessp)))
-
 
 ;;; Support for bookmark.el
 (declare-function bookmark-make-record-default
@@ -1631,6 +1621,17 @@ ROTATION should be in degrees."
         image--transform-smoothing nil)
   (image-toggle-display-image))
 
+(defun image-mode--images-in-directory (file)
+  (declare (obsolete nil "29.1"))
+  (let* ((dir (file-name-directory buffer-file-name))
+         (files (directory-files dir nil
+                                 (image-file-name-regexp) t)))
+    ;; Add the current file to the list of images if necessary, in
+    ;; case it does not match `image-file-name-regexp'.
+    (unless (member file files)
+      (push file files))
+    (sort files 'string-lessp)))
+
 (define-obsolete-function-alias 'image-transform-original #'image-transform-reset-to-original "29.1")
 (define-obsolete-function-alias 'image-transform-reset #'image-transform-reset-to-initial "29.1")