diff options
| author | Nick Roberts <nickrob@snap.net.nz> | 2007-08-13 09:28:31 +0000 |
|---|---|---|
| committer | Nick Roberts <nickrob@snap.net.nz> | 2007-08-13 09:28:31 +0000 |
| commit | cdf71ff2ef86e20d8892da4a938a93e1a0c5377b (patch) | |
| tree | 918bbfacbbf671a9eb11c7cf52ca158124564f54 /lisp/progmodes/gdb-ui.el | |
| parent | 9f78fa2c10028d45c29c67efd03fd43368e93bca (diff) | |
| download | emacs-cdf71ff2ef86e20d8892da4a938a93e1a0c5377b.tar.gz | |
(gdb-send): Handle CTRL-D more carefully.
Diffstat (limited to 'lisp/progmodes/gdb-ui.el')
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 6 |
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." (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))))) |