emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

master 080289a922: Obsolete image-mode--images-in-directory


From: Stefan Kangas
Subject: master 080289a922: Obsolete image-mode--images-in-directory
Date: Wed, 21 Sep 2022 11:41:27 -0400 (EDT)

branch: master
commit 080289a922e30adf894a0b8539607ac8f7829674
Author: Stefan Kangas <stefankangas@gmail.com>
Commit: Stefan Kangas <stefankangas@gmail.com>

    Obsolete image-mode--images-in-directory
    
    * lisp/image-mode.el (image-mode--images-in-directory): Make
    unused function obsolete.
---
 lisp/image-mode.el | 21 +++++++++++----------
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 0f1c490159..a4c292f2b6 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")
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]