# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 712189240 0
# Node ID 29b360fea58e32e0eee6c621b8cd235044cb1dd1
# Parent  b945f592b94ddf0aaab4c3f0f7bafc770c80f7f1
entered into RCS

diff -r b945f592b94d -r 29b360fea58e lisp/textmodes/picture.el
--- a/lisp/textmodes/picture.el	Sun Jul 26 19:54:20 1992 +0000
+++ b/lisp/textmodes/picture.el	Sun Jul 26 22:20:40 1992 +0000
@@ -414,7 +414,7 @@
     (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 @@
   "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.