diff options
| author | Stefan Kangas | 2022-09-22 21:52:15 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-09-23 03:27:34 +0200 |
| commit | 4de526edb73637c47c62d31c7fa429fa72dce19e (patch) | |
| tree | 9f8db8402586edf740808d78fc07e9c50133ce3f | |
| parent | 587b2c8dd1d7126c429aa499fa4b89f39440161e (diff) | |
| download | emacs-4de526edb73637c47c62d31c7fa429fa72dce19e.tar.gz emacs-4de526edb73637c47c62d31c7fa429fa72dce19e.zip | |
image-dired: Obsolete two unused functions
* lisp/image/image-dired-util.el (image-dired-display-window)
(image-dired-associated-dired-buffer-window): Make obsolete; they are
currently unused.
| -rw-r--r-- | lisp/image/image-dired-util.el | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/lisp/image/image-dired-util.el b/lisp/image/image-dired-util.el index dcf0b22cfe2..8d77a97dc47 100644 --- a/lisp/image/image-dired-util.el +++ b/lisp/image/image-dired-util.el | |||
| @@ -127,6 +127,10 @@ See also `image-dired-thumbnail-storage'." | |||
| 127 | 127 | ||
| 128 | (defun image-dired-display-window () | 128 | (defun image-dired-display-window () |
| 129 | "Return window where `image-dired-display-image-buffer' is visible." | 129 | "Return window where `image-dired-display-image-buffer' is visible." |
| 130 | ;; This is obsolete as it is currently unused. Once the window | ||
| 131 | ;; handling gets a rethink, there may or may not be a need to | ||
| 132 | ;; un-obsolete it again. | ||
| 133 | (declare (obsolete nil "29.1")) | ||
| 130 | (get-window-with-predicate | 134 | (get-window-with-predicate |
| 131 | (lambda (window) | 135 | (lambda (window) |
| 132 | (equal (buffer-name (window-buffer window)) image-dired-display-image-buffer)) | 136 | (equal (buffer-name (window-buffer window)) image-dired-display-image-buffer)) |
| @@ -141,6 +145,10 @@ See also `image-dired-thumbnail-storage'." | |||
| 141 | 145 | ||
| 142 | (defun image-dired-associated-dired-buffer-window () | 146 | (defun image-dired-associated-dired-buffer-window () |
| 143 | "Return window where associated Dired buffer is visible." | 147 | "Return window where associated Dired buffer is visible." |
| 148 | ;; This is obsolete as it is currently unused. Once the window | ||
| 149 | ;; handling gets a rethink, there may or may not be a need to | ||
| 150 | ;; un-obsolete it again. | ||
| 151 | (declare (obsolete nil "29.1")) | ||
| 144 | (let (buf) | 152 | (let (buf) |
| 145 | (if (image-dired-image-at-point-p) | 153 | (if (image-dired-image-at-point-p) |
| 146 | (progn | 154 | (progn |