Mercurial > emacs
changeset 55178:dd3da2fb7ef3
(picture-mode-map): Add arrow keys.
| author | Juri Linkov <juri@jurta.org> |
|---|---|
| date | Tue, 27 Apr 2004 06:46:51 +0000 |
| parents | 144273ac799a |
| children | 28874a527b36 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 9 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- 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.