diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-07-26 22:20:40 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-07-26 22:20:40 +0000 |
| commit | c4fc49b6af25baf0eb6385c96f5550df183cec45 (patch) | |
| tree | 1cdb6b30521c8a33d7687268f97447eb2dfadd9d | |
| parent | e91f80c43a104201ba7b709934523158d519ec5f (diff) | |
| download | emacs-c4fc49b6af25baf0eb6385c96f5550df183cec45.tar.gz emacs-c4fc49b6af25baf0eb6385c96f5550df183cec45.tar.bz2 emacs-c4fc49b6af25baf0eb6385c96f5550df183cec45.zip | |
entered into RCS
| -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. |