* lisp/image-mode.el (image-mode-map): Remap left-char and right-char.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index cae648562630e297a131d92dffac4cf96a9aeaa1..49e1ee9fc6a4b207217d4052b19680f00b49bb11 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2010-06-14  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * image-mode.el (image-mode-map): Remap left-char and right-char.
+
        * nxml/nxml-mode.el (nxml-indent-line): Standardize indent behavior.
 
 2010-06-12  Chong Yidong  <cyd@stupidchicken.com>

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 04a81f9038edefe33c4163f9532c2b47658350c5..585d82e9bebd400a9ce2baa75a3b68b67890e82e 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -298,6 +298,8 @@ This variable is used to display the current image type in the mode line.")
     (define-key map (kbd "DEL")       'image-scroll-down)
     (define-key map [remap forward-char] 'image-forward-hscroll)
     (define-key map [remap backward-char] 'image-backward-hscroll)
+    (define-key map [remap right-char] 'image-forward-hscroll)
+    (define-key map [remap left-char] 'image-backward-hscroll)
     (define-key map [remap previous-line] 'image-previous-line)
     (define-key map [remap next-line] 'image-next-line)
     (define-key map [remap scroll-up] 'image-scroll-up)