diff options
| -rw-r--r-- | lisp/textmodes/picture.el | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index 8602a461f41..25adad552a2 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el @@ -414,7 +414,7 @@ Leaves the region surrounding the rectangle." (let ((i ?\ )) (setq picture-mode-map (make-keymap)) (while (< i ?\177) - (aset picture-mode-map i 'picture-self-insert) + (define-key picture-mode-map (make-string 1 i) 'picture-self-insert) (setq i (1+ i))) (define-key picture-mode-map "\C-f" 'picture-forward-column) (define-key picture-mode-map "\C-b" 'picture-backward-column) @@ -452,6 +452,10 @@ Leaves the region surrounding the rectangle." "If non-nil, it's value is called on entry to Picture mode. Picture mode is invoked by the command \\[edit-picture].") +(defvar picture-mode-old-local-map) +(defvar picture-mode-old-mode-name) +(defvar picture-mode-old-major-mode) + ;;;###autoload (defun edit-picture () "Switch to Picture mode, in which a quarter-plane screen model is used. |