diff options
| author | Stefan Kangas <stefankangas@gmail.com> | 2022-09-14 15:34:38 +0200 |
|---|---|---|
| committer | Stefan Kangas <stefankangas@gmail.com> | 2022-09-14 15:43:39 +0200 |
| commit | 37fe0cd3580f7998bd407d9a089c8c899011f8ae (patch) | |
| tree | 77ed2d94bf03ac9fd4cb474c6e255ecad080589f /lisp/image-mode.el | |
| parent | 600bb2d45f2a7b0c9a302fc26f7dd4448b904921 (diff) | |
| download | emacs-37fe0cd3580f7998bd407d9a089c8c899011f8ae.tar.gz | |
Rename image transform commands to be less confusing
* lisp/image-mode.el
(image-transform-original): Rename from this...
(image-transform-reset-to-original): ...to this. Make old name
into an obsolete function alias and update all callers.
(image-transform-reset): Rename from this...
(image-transform-reset-to-initial): ...to this. Make old name
into an obsolete function alias and update all callers.
(Bug#51451)
* doc/emacs/files.texi (Image Mode): Update for above change.
Diffstat (limited to 'lisp/image-mode.el')
| -rw-r--r-- | lisp/image-mode.el | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el index f2ffbd89447..dded6d4f389 100644 --- a/lisp/image-mode.el +++ b/lisp/image-mode.el @@ -499,8 +499,8 @@ image as text, when opening such images in `image-mode'." "s s" #'image-transform-set-scale "s r" #'image-transform-set-rotation "s m" #'image-transform-set-smoothing - "s o" #'image-transform-original - "s 0" #'image-transform-reset + "s o" #'image-transform-reset-to-original + "s 0" #'image-transform-reset-to-initial ;; Multi-frame keys "RET" #'image-toggle-animation @@ -571,9 +571,9 @@ image as text, when opening such images in `image-mode'." :help "Set rotation angle of the image"] ["Set Smoothing..." image-transform-set-smoothing :help "Toggle smoothing"] - ["Original Size" image-transform-original + ["Original Size" image-transform-reset-to-original :help "Reset image to actual size"] - ["Reset to Default Size" image-transform-reset + ["Reset to Default Size" image-transform-reset-to-initial :help "Reset all image transformations to initial size"] "--" ["Show Thumbnails" @@ -1608,14 +1608,14 @@ ROTATION should be in degrees." (setq image--transform-smoothing smoothing) (image-toggle-display-image)) -(defun image-transform-original () +(defun image-transform-reset-to-original () "Display the current image with the original (actual) size and rotation." (interactive nil image-mode) (setq image-transform-resize nil image-transform-scale 1) (image-toggle-display-image)) -(defun image-transform-reset () +(defun image-transform-reset-to-initial () "Display the current image with the default (initial) size and rotation." (interactive nil image-mode) (setq image-transform-resize image-auto-resize @@ -1624,6 +1624,9 @@ ROTATION should be in degrees." image--transform-smoothing nil) (image-toggle-display-image)) +(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") + (provide 'image-mode) ;;; image-mode.el ends here |