aboutsummaryrefslogtreecommitdiffstats
path: root/lisp
diff options
context:
space:
mode:
authorSam Steingold2016-04-22 14:52:37 -0400
committerSam Steingold2016-05-02 11:47:40 -0400
commitd05806fda1cbba2db112bc783597fbe9d27175b2 (patch)
tree69e6b29921a7121dbefdd8630f5a72b7322834e6 /lisp
parent1d287665dc93c97a1c55606b394bd3e05e6e2e04 (diff)
downloademacs-d05806fda1cbba2db112bc783597fbe9d27175b2.tar.gz
emacs-d05806fda1cbba2db112bc783597fbe9d27175b2.zip
alas, a map can have only one parent
* lisp/image-mode.el (image-model-map): Cannot have two parents. * lisp/image.el (image-map): Inherit from `special-mode-map'.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/image-mode.el1
-rw-r--r--lisp/image.el1
2 files changed, 2 insertions, 0 deletions
diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index a18b07ebe6a..a5cfc7ada64 100644
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -372,6 +372,7 @@ call."
372 372
373(defvar image-mode-map 373(defvar image-mode-map
374 (let ((map (make-sparse-keymap))) 374 (let ((map (make-sparse-keymap)))
375 (set-keymap-parent map image-map)
375 (define-key map "\C-c\C-c" 'image-toggle-display) 376 (define-key map "\C-c\C-c" 'image-toggle-display)
376 (define-key map "\C-c\C-x" 'image-toggle-hex-display) 377 (define-key map "\C-c\C-x" 'image-toggle-hex-display)
377 (define-key map (kbd "SPC") 'image-scroll-up) 378 (define-key map (kbd "SPC") 'image-scroll-up)
diff --git a/lisp/image.el b/lisp/image.el
index 2ae642a3e32..d9f58e52a07 100644
--- a/lisp/image.el
+++ b/lisp/image.el
@@ -142,6 +142,7 @@ based on the font pixel size."
142;; Map put into text properties on images. 142;; Map put into text properties on images.
143(defvar image-map 143(defvar image-map
144 (let ((map (make-sparse-keymap))) 144 (let ((map (make-sparse-keymap)))
145 (set-keymap-parent map special-mode-map)
145 (define-key map "-" 'image-decrease-size) 146 (define-key map "-" 'image-decrease-size)
146 (define-key map "+" 'image-increase-size) 147 (define-key map "+" 'image-increase-size)
147 (define-key map "r" 'image-rotate) 148 (define-key map "r" 'image-rotate)