mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-05 03:20:39 -08:00
Code Issues Projects Releases Wiki Activity

(gud-tooltip-print-command): Indent properly.

Browse source 
(gud-gdb-marker-filter): Use font-lock-warning-face for any
initial error.
This commit is contained in:
Nick Roberts 2005-06-24 01:31:50 +00:00
parent 1c95554235
commit 823d223503
1 changed files with 22 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

38
lisp/progmodes/gud.el
View file

@ -497,18 +497,24 @@ off the specialized speedbar mode."
;; Check for annotations and change gud-minor-mode to 'gdba if
;; they are found.
(while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
(when (string-equal (match-string 1 gud-marker-acc) "prompt")
(require 'gdb-ui)
(gdb-prompt nil))
(let ((match (match-string 1 gud-marker-acc)))
(when (string-equal match "prompt")
(require 'gdb-ui)
(gdb-prompt nil))
(setq
;; Append any text before the marker to the output we're going
;; to return - we don't include the marker in this text.
output (concat output
(substring gud-marker-acc 0 (match-beginning 0)))
;; Set the accumulator to the remaining text.
gud-marker-acc (substring gud-marker-acc (match-end 0))))
(setq
;; Append any text before the marker to the output we're going
;; to return - we don't include the marker in this text.
output (concat output
(substring gud-marker-acc 0 (match-beginning 0)))
;; Set the accumulator to the remaining text.
gud-marker-acc (substring gud-marker-acc (match-end 0)))
(if (string-equal match "error-begin")
(put-text-property 0 (length gud-marker-acc)
'face font-lock-warning-face
gud-marker-acc))))
;; Does the remaining text look like it might end with the
;; beginning of another marker? If it does, then keep it in
@ -3256,11 +3262,11 @@ If GUD-TOOLTIP-DEREFERENCE is t, also prepend a `*' to EXPR."
(when gud-tooltip-dereference
(setq expr (concat "*" expr)))
(case gud-minor-mode
(gdba (concat "server print " expr))
((dbx gdbmi) (concat "print " expr))
(xdb (concat "p " expr))
(sdb (concat expr "/"))
(perldb expr)))
(gdba (concat "server print " expr))
((dbx gdbmi) (concat "print " expr))
(xdb (concat "p " expr))
(sdb (concat expr "/"))
(perldb expr)))
(defun gud-tooltip-tips (event)
"Show tip for identifier or selection under the mouse.