diff options
| author | Juri Linkov | 2004-04-27 06:46:51 +0000 |
|---|---|---|
| committer | Juri Linkov | 2004-04-27 06:46:51 +0000 |
| commit | ffe2923b642bd9f53adf94b5fb44387cda33bb50 (patch) | |
| tree | 1ed7d7ba42c4f555dfa1e85d2b6c4c141a180da8 | |
| parent | e4ef3e9287e447f28ba586c3a2c9fe88ec7258f4 (diff) | |
| download | emacs-ffe2923b642bd9f53adf94b5fb44387cda33bb50.tar.gz emacs-ffe2923b642bd9f53adf94b5fb44387cda33bb50.zip | |
(picture-mode-map): Add arrow keys.
| -rw-r--r-- | lisp/textmodes/picture.el | 10 |
1 files changed, 9 insertions, 1 deletions
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." | |||
| 636 | (define-key picture-mode-map "\C-c`" 'picture-movement-nw) | 636 | (define-key picture-mode-map "\C-c`" 'picture-movement-nw) |
| 637 | (define-key picture-mode-map "\C-c'" 'picture-movement-ne) | 637 | (define-key picture-mode-map "\C-c'" 'picture-movement-ne) |
| 638 | (define-key picture-mode-map "\C-c/" 'picture-movement-sw) | 638 | (define-key picture-mode-map "\C-c/" 'picture-movement-sw) |
| 639 | (define-key picture-mode-map "\C-c\\" 'picture-movement-se))) | 639 | (define-key picture-mode-map "\C-c\\" 'picture-movement-se) |
| 640 | (define-key picture-mode-map [(control ?c) left] 'picture-movement-left) | ||
| 641 | (define-key picture-mode-map [(control ?c) right] 'picture-movement-right) | ||
| 642 | (define-key picture-mode-map [(control ?c) up] 'picture-movement-up) | ||
| 643 | (define-key picture-mode-map [(control ?c) down] 'picture-movement-down) | ||
| 644 | (define-key picture-mode-map [(control ?c) home] 'picture-movement-nw) | ||
| 645 | (define-key picture-mode-map [(control ?c) prior] 'picture-movement-ne) | ||
| 646 | (define-key picture-mode-map [(control ?c) end] 'picture-movement-sw) | ||
| 647 | (define-key picture-mode-map [(control ?c) next] 'picture-movement-se))) | ||
| 640 | 648 | ||
| 641 | (defcustom picture-mode-hook nil | 649 | (defcustom picture-mode-hook nil |
| 642 | "If non-nil, its value is called on entry to Picture mode. | 650 | "If non-nil, its value is called on entry to Picture mode. |