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)) |