Mercurial > emacs
changeset 10018:2c6b612b358c
(picture-self-insert): Use last-command-event,
not last-input-char.
(picture-mode-map): Make the keymap vector 256 chars long.
Fix typo `newline-andindent'.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 18 Nov 1994 20:37:28 +0000 |
| parents | 6e28a6ff9a41 |
| children | e7b821dcdbc9 |
| files | lisp/textmodes/picture.el |
| diffstat | 1 files changed, 5 insertions(+), 8 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/picture.el Fri Nov 18 20:27:24 1994 +0000 +++ b/lisp/textmodes/picture.el Fri Nov 18 20:37:28 1994 +0000 @@ -199,7 +199,7 @@ (setq arg (1- arg)) (move-to-column-force (1+ (current-column))) (delete-char -1) - (insert last-input-char) + (insert last-command-event) ; Always a character in this case. (forward-char -1) (picture-move))) @@ -478,12 +478,9 @@ (substitute-key-definition oldfun newfun picture-mode-map global-map)) (if (not picture-mode-map) - (let ((i ?\ )) - (setq picture-mode-map (make-keymap)) - (while (< i ?\177) - (define-key picture-mode-map (make-string 1 i) 'picture-self-insert) - (setq i (1+ i))) - + (progn + (setq picture-mode-map (list 'keymap (make-vector 256 nil))) + (picture-substitute 'self-insert-command 'picture-self-insert) (picture-substitute 'forward-char 'picture-forward-column) (picture-substitute 'backward-char 'picture-backward-column) (picture-substitute 'delete-char 'picture-clear-column) @@ -493,7 +490,7 @@ (picture-substitute 'kill-line 'picture-clear-line) (picture-substitute 'open-line 'picture-open-line) (picture-substitute 'newline 'picture-newline) - (picture-substitute 'newline-andindent 'picture-duplicate-line) + (picture-substitute 'newline-and-indent 'picture-duplicate-line) (picture-substitute 'next-line 'picture-move-down) (picture-substitute 'previous-line 'picture-move-up) (picture-substitute 'beginning-of-line 'picture-beginning-of-line)