From d464454f4502e337d4114e7b818aad11c9506497 Mon Sep 17 00:00:00 2001 From: Stefan Kangas Date: Mon, 31 Jan 2022 00:10:58 +0100 Subject: [PATCH] * lisp/image.el (image-map): Use defvar-keymap. --- lisp/image.el | 22 ++++++++++------------ 1 file changed, 10 insertions(+), 12 deletions(-) diff --git a/lisp/image.el b/lisp/image.el index 80815a8a661..ec4ee06eb14 100644 --- a/lisp/image.el +++ b/lisp/image.el @@ -171,18 +171,16 @@ or \"ffmpeg\") is installed." (define-error 'unknown-image-type "Unknown image type") -;; Map put into text properties on images. -(defvar image-map - (let ((map (make-sparse-keymap))) - (define-key map "-" 'image-decrease-size) - (define-key map "+" 'image-increase-size) - (define-key map [C-wheel-down] 'image-mouse-decrease-size) - (define-key map [C-mouse-5] 'image-mouse-decrease-size) - (define-key map [C-wheel-up] 'image-mouse-increase-size) - (define-key map [C-mouse-4] 'image-mouse-increase-size) - (define-key map "r" 'image-rotate) - (define-key map "o" 'image-save) - map)) +(defvar-keymap image-map + :doc "Map put into text properties on images." + "-" #'image-decrease-size + "+" #'image-increase-size + "r" #'image-rotate + "o" #'image-save + "C-" #'image-mouse-decrease-size + "C-" #'image-mouse-decrease-size + "C-" #'image-mouse-increase-size + "C-" #'image-mouse-increase-size) (defun image-load-path-for-library (library image &optional path no-error) "Return a suitable search path for images used by LIBRARY. -- 2.39.5