From ffe2923b642bd9f53adf94b5fb44387cda33bb50 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Tue, 27 Apr 2004 06:46:51 +0000 Subject: [PATCH] (picture-mode-map): Add arrow keys. --- lisp/textmodes/picture.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 0497a823049..b3c69ca657f 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -636,7 +636,15 @@ Leaves the region surrounding the rectangle." (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. -- 2.39.5