From 080289a922e30adf894a0b8539607ac8f7829674 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Wed, 21 Sep 2022 17:38:30 +0200 Subject: [PATCH] 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 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") -- 2.39.2