summaryrefslogtreecommitdiff
path: root/lisp/image.el
diff options
context:
space:
mode:
Diffstat (limited to 'lisp/image.el')
-rw-r--r--lisp/image.el24
1 files changed, 8 insertions, 16 deletions
diff --git a/lisp/image.el b/lisp/image.el
index 818679a4d7b..6a8293fedf3 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -172,22 +172,6 @@ or \"ffmpeg\") is installed."
(define-error 'unknown-image-type "Unknown image type")
-(defvar-keymap image-map
- :doc "Map put into text properties on images."
- "i" (define-keymap
- "-" #'image-decrease-size
- "+" #'image-increase-size
- "r" #'image-rotate
- "o" #'image-save
- "c" #'image-crop
- "x" #'image-cut
- "h" #'image-flip-horizontally
- "v" #'image-flip-vertically)
- "C-<wheel-down>" #'image-mouse-decrease-size
- "C-<mouse-5>" #'image-mouse-decrease-size
- "C-<wheel-up>" #'image-mouse-increase-size
- "C-<mouse-4>" #'image-mouse-increase-size)
-
(defvar-keymap image-slice-map
:doc "Map put into text properties on sliced images."
"i" (define-keymap
@@ -201,6 +185,14 @@ or \"ffmpeg\") is installed."
"C-<wheel-up>" #'image-mouse-increase-size
"C-<mouse-4>" #'image-mouse-increase-size)
+(defvar-keymap image-map
+ :doc "Map put into text properties on images."
+ :parent image-slice-map
+ "i" (define-keymap
+ "r" #'image-rotate
+ "h" #'image-flip-horizontally
+ "v" #'image-flip-vertically))
+
(defun image-load-path-for-library (library image &optional path no-error)
"Return a suitable search path for images used by LIBRARY.