diff options
| author | Nick Roberts | 2007-08-13 09:28:31 +0000 |
|---|---|---|
| committer | Nick Roberts | 2007-08-13 09:28:31 +0000 |
| commit | cdf71ff2ef86e20d8892da4a938a93e1a0c5377b (patch) | |
| tree | 918bbfacbbf671a9eb11c7cf52ca158124564f54 | |
| parent | 9f78fa2c10028d45c29c67efd03fd43368e93bca (diff) | |
| download | emacs-cdf71ff2ef86e20d8892da4a938a93e1a0c5377b.tar.gz emacs-cdf71ff2ef86e20d8892da4a938a93e1a0c5377b.zip | |
(gdb-send): Handle CTRL-D more carefully.
| -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." | |||
| 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 | ||