(gdb-send): Handle CTRL-D more carefully.

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index c4d14462245a359cd104e13c59cc3dd7419e471d..716b79138f9957403b089e51b43d05cff8910f18 100644 (file)
--- 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."
          (let ((item (concat string "\n")))
            (if gdb-enable-debug (push (cons 'send item) gdb-debug-log))
            (process-send-string proc item)))
-      (if (and (string-match "\\\\$" string)
-              (not comint-input-sender-no-newline)) ;;Try to catch C-d.
+      (if (string-match "\\\\\\'" string)
          (setq gdb-continuation (concat gdb-continuation string "\n"))
-       (let ((item (concat gdb-continuation string "\n")))
+       (let ((item (concat gdb-continuation string
+                        (if (not comint-input-sender-no-newline) "\n"))))
          (gdb-enqueue-input item)
          (setq gdb-continuation nil)))))