# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1083048411 0
# Node ID dd3da2fb7ef39dd9ca6ce3bda5b56afc44d9410f
# Parent  144273ac799a8fab3a3004bc68a99f88278016a9
(picture-mode-map): Add arrow keys.

diff -r 144273ac799a -r dd3da2fb7ef3 lisp/textmodes/picture.el
--- a/lisp/textmodes/picture.el	Tue Apr 27 06:45:49 2004 +0000
+++ b/lisp/textmodes/picture.el	Tue Apr 27 06:46:51 2004 +0000
@@ -636,7 +636,15 @@
       (define-key picture-mode-map "\C-c`" 'picture-movement-nw)
       (define-key picture-mode-map "\C-c'" 'picture-movement-ne)
       (define-key picture-mode-map "\C-c/" 'picture-movement-sw)
-      (define-key picture-mode-map "\C-c\\" 'picture-movement-se)))
+      (define-key picture-mode-map "\C-c\\" 'picture-movement-se)
+      (define-key picture-mode-map [(control ?c) left]  'picture-movement-left)
+      (define-key picture-mode-map [(control ?c) right] 'picture-movement-right)
+      (define-key picture-mode-map [(control ?c) up]    'picture-movement-up)
+      (define-key picture-mode-map [(control ?c) down]  'picture-movement-down)
+      (define-key picture-mode-map [(control ?c) home]  'picture-movement-nw)
+      (define-key picture-mode-map [(control ?c) prior] 'picture-movement-ne)
+      (define-key picture-mode-map [(control ?c) end]   'picture-movement-sw)
+      (define-key picture-mode-map [(control ?c) next]  'picture-movement-se)))
 
 (defcustom picture-mode-hook nil
   "If non-nil, its value is called on entry to Picture mode.