mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 15:52:00 -08:00
Code Issues Projects Releases Wiki Activity

(gdb-remove-text-properties): Rename from

Browse source 
gdb-remove-mouse-face and remove help-echo too.
(gdb-enqueue-input): Correct conditional clause.
This commit is contained in:
Nick Roberts 2006-03-10 20:06:33 +00:00
parent 3cf61a4fd6
commit a2c7d24faf
1 changed files with 8 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lisp/progmodes/gdb-ui.el
View file

@ -1036,11 +1036,12 @@ This filter may simply queue input for a later time."
;; is a query, or other non-top-level prompt.
(defun gdb-enqueue-input (item)
(if (and gdb-prompting (not gud-running))
(progn
(gdb-send-item item)
(if (not gud-running)
(if gdb-prompting
(progn
(gdb-send-item item)
(setq gdb-prompting nil))
(push item gdb-input-queue)))
(push item gdb-input-queue))))
(defun gdb-dequeue-input ()
(let ((queue gdb-input-queue))
@ -1191,7 +1192,7 @@ not GDB."
((eq sink 'user)
(progn
(setq gud-running t)
(gdb-remove-mouse-face)
(gdb-remove-text-properties)
(if gdb-use-separate-io-buffer
(setq gdb-output-sink 'inferior))))
(t
@ -1302,14 +1303,14 @@ happens to be appropriate."
(defconst gdb-buffer-list
'(gdb-stack-buffer gdb-locals-buffer gdb-registers-buffer gdb-threads-buffer))
(defun gdb-remove-mouse-face ()
(defun gdb-remove-text-properties ()
(dolist (buffertype gdb-buffer-list)
(let ((buffer (gdb-get-buffer buffertype)))
(if buffer
(with-current-buffer buffer
(let ((inhibit-read-only t))
(remove-text-properties
(point-min) (point-max) '(mouse-face))))))))
(point-min) (point-max) '(mouse-face nil help-echo nil))))))))
;; GUD displays the selected GDB frame. This might might not be the current
;; GDB frame (after up, down etc). If no GDB frame is visible but the last