(picture-mode-map): Install picture-self-insert

where completion has put its own self-insert commands.

diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el
index d672ce0738de1c4fe3cd8f4594669782e2c2bd84..e2cd1897d0a4a050f9a42bf60d4a909ae3295a3b 100644 (file)
--- a/lisp/textmodes/picture.el
+++ b/lisp/textmodes/picture.el
@@ -480,6 +480,10 @@ Leaves the region surrounding the rectangle."
     (progn
       (setq picture-mode-map (list 'keymap (make-vector 256 nil)))
       (picture-substitute 'self-insert-command 'picture-self-insert)
+      (picture-substitute 'completion-separator-self-insert-command
+                         'picture-self-insert)
+      (picture-substitute 'completion-separator-self-insert-autofilling
+                         'picture-self-insert)
       (picture-substitute 'forward-char 'picture-forward-column)
       (picture-substitute 'backward-char 'picture-backward-column)
       (picture-substitute 'delete-char 'picture-clear-column)