Mercurial > emacs

changeset 875:29b360fea58e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
entered into RCS
author Richard M. Stallman <rms@gnu.org>
date Sun, 26 Jul 1992 22:20:40 +0000
parents b945f592b94d
children 6d05b6b123d5
files lisp/textmodes/picture.el
diffstat 1 files changed, 5 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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.