aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorNick Roberts2007-08-13 09:28:31 +0000
committerNick Roberts2007-08-13 09:28:31 +0000
commitcdf71ff2ef86e20d8892da4a938a93e1a0c5377b (patch)
tree918bbfacbbf671a9eb11c7cf52ca158124564f54
parent9f78fa2c10028d45c29c67efd03fd43368e93bca (diff)
downloademacs-cdf71ff2ef86e20d8892da4a938a93e1a0c5377b.tar.gz
emacs-cdf71ff2ef86e20d8892da4a938a93e1a0c5377b.zip
(gdb-send): Handle CTRL-D more carefully.
-rw-r--r--lisp/progmodes/gdb-ui.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index c4d14462245..716b79138f9 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -1132,10 +1132,10 @@ This filter may simply queue input for a later time."
1132 (let ((item (concat string "\n"))) 1132 (let ((item (concat string "\n")))
1133 (if gdb-enable-debug (push (cons 'send item) gdb-debug-log)) 1133 (if gdb-enable-debug (push (cons 'send item) gdb-debug-log))
1134 (process-send-string proc item))) 1134 (process-send-string proc item)))
1135 (if (and (string-match "\\\\$" string) 1135 (if (string-match "\\\\\\'" string)
1136 (not comint-input-sender-no-newline)) ;;Try to catch C-d.
1137 (setq gdb-continuation (concat gdb-continuation string "\n")) 1136 (setq gdb-continuation (concat gdb-continuation string "\n"))
1138 (let ((item (concat gdb-continuation string "\n"))) 1137 (let ((item (concat gdb-continuation string
1138 (if (not comint-input-sender-no-newline) "\n"))))
1139 (gdb-enqueue-input item) 1139 (gdb-enqueue-input item)
1140 (setq gdb-continuation nil))))) 1140 (setq gdb-continuation nil)))))
1141 1141