From: Daniel Colascione <dancol@dancol.org>
Date: Sun, 30 Mar 2014 19:12:57 +0000 (-0700)
Subject: completion-in-region-mode improvements
X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/1861d5a7121b349c4fb4db0ea06c898fcc85ca76

completion-in-region-mode improvements
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ce4ee87aba..af658ee09b 100644
--- 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 ec11d5b162..dfc3fee088 100644
--- 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 6cc9c6bfd6..eee9c9b968 100644
--- 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)))