entered into RCS

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.