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 0f1c4901591b1cf08f3bd517171982a10b97e509..a4c292f2b60cdd355c8ca0632cc6f9fad0b48ce9 100644 (file)
--- 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)))
-
 \f
 ;;; 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")