Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 66382:9e9e3aac0fda
(gdb-send): Bind inhibit-read-only to t
in case comint-prompt-read-only is set to t.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Mon, 24 Oct 2005 08:54:18 +0000 |
| parents | 9698655085d3 |
| children | 8438430a751a |
comparison
equal
deleted
inserted
replaced
| 66381:99d33f0ea507 | 66382:9e9e3aac0fda |
|---|---|
| 800 | 800 |
| 801 (defun gdb-send (proc string) | 801 (defun gdb-send (proc string) |
| 802 "A comint send filter for gdb. | 802 "A comint send filter for gdb. |
| 803 This filter may simply queue input for a later time." | 803 This filter may simply queue input for a later time." |
| 804 (with-current-buffer gud-comint-buffer | 804 (with-current-buffer gud-comint-buffer |
| 805 (remove-text-properties (point-min) (point-max) '(face))) | 805 (let ((inhibit-read-only t)) |
| 806 (remove-text-properties (point-min) (point-max) '(face)))) | |
| 806 (let ((item (concat string "\n"))) | 807 (let ((item (concat string "\n"))) |
| 807 (if gud-running | 808 (if gud-running |
| 808 (progn | 809 (progn |
| 809 (if gdb-enable-debug-log (push (cons 'send item) gdb-debug-log)) | 810 (if gdb-enable-debug-log (push (cons 'send item) gdb-debug-log)) |
| 810 (process-send-string proc item)) | 811 (process-send-string proc item)) |