diff options
| author | Richard M. Stallman | 1996-02-14 20:11:04 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-02-14 20:11:04 +0000 |
| commit | 2ae00b00f1265b85a96ab5285c80ae0a16fb79fc (patch) | |
| tree | 1656f85eb36e10dc2c84063018ca2a4653d0b0fa | |
| parent | 555722598bc9cf938a8a3975ee6b12b00ad99ab3 (diff) | |
| download | emacs-2ae00b00f1265b85a96ab5285c80ae0a16fb79fc.tar.gz emacs-2ae00b00f1265b85a96ab5285c80ae0a16fb79fc.zip | |
(picture-mode-map): Install picture-self-insert
where completion has put its own self-insert commands.
| -rw-r--r-- | lisp/textmodes/picture.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index d672ce0738d..e2cd1897d0a 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el | |||
| @@ -480,6 +480,10 @@ Leaves the region surrounding the rectangle." | |||
| 480 | (progn | 480 | (progn |
| 481 | (setq picture-mode-map (list 'keymap (make-vector 256 nil))) | 481 | (setq picture-mode-map (list 'keymap (make-vector 256 nil))) |
| 482 | (picture-substitute 'self-insert-command 'picture-self-insert) | 482 | (picture-substitute 'self-insert-command 'picture-self-insert) |
| 483 | (picture-substitute 'completion-separator-self-insert-command | ||
| 484 | 'picture-self-insert) | ||
| 485 | (picture-substitute 'completion-separator-self-insert-autofilling | ||
| 486 | 'picture-self-insert) | ||
| 483 | (picture-substitute 'forward-char 'picture-forward-column) | 487 | (picture-substitute 'forward-char 'picture-forward-column) |
| 484 | (picture-substitute 'backward-char 'picture-backward-column) | 488 | (picture-substitute 'backward-char 'picture-backward-column) |
| 485 | (picture-substitute 'delete-char 'picture-clear-column) | 489 | (picture-substitute 'delete-char 'picture-clear-column) |