completion-in-region-mode improvements

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce4ee87abaf6713aa76af26145c9ee44d6563ed6..af658ee09b695cb8e055f2410f8a073cbe10c35d 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2014-03-30  Daniel Colascione  <dancol@dancol.org>
+
+       * comint.el (comint-send-input): Deactivate
+       completion-in-region-mode before we send comint input.
+       (Bug#17139).
+
+       * simple.el (keyboard-quit): Deactivate completion-in-region-mode
+       on keyboard-quit.
+
 2014-03-29  Glenn Morris  <rgm@gnu.org>
 
        * textmodes/reftex.el: Manage most autoloads automatically.

diff --git a/lisp/comint.el b/lisp/comint.el
index ec11d5b162bf68f1294ccdb3d832687558a1035c..dfc3fee0884c1a3cfea82bb98f6f31c8473a9560 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -1769,6 +1769,12 @@ If the Comint is Lucid Common Lisp,
 
 Similarly for Soar, Scheme, etc."
   (interactive)
+  ;; If we're currently completing, stop.  We're definitely done
+  ;; completing, and by sending the input, we might cause side effects
+  ;; that will confuse the code running in the completion
+  ;; post-command-hook.
+  (when completion-in-region-mode
+    (completion-in-region-mode -1))
   ;; Note that the input string does not include its terminal newline.
   (let ((proc (get-buffer-process (current-buffer))))
     (if (not proc) (user-error "Current buffer has no process")

diff --git a/lisp/simple.el b/lisp/simple.el
index 6cc9c6bfd6b1f071400f6c06008a98d90d324039..eee9c9b968907a9e2afcf25598982bbfd9216773 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -6580,6 +6580,8 @@ At top-level, as an editor command, this simply beeps."
     (deactivate-mark))
   (if (fboundp 'kmacro-keyboard-quit)
       (kmacro-keyboard-quit))
+  (when completion-in-region-mode
+    (completion-in-region-mode -1))
   (setq defining-kbd-macro nil)
   (let ((debug-on-quit nil))
     (signal 'quit nil)))