comparison lisp/progmodes/gud.el @ 63731:4121439fd904

(gud-tooltip-print-command): Indent properly. (gud-gdb-marker-filter): Use font-lock-warning-face for any initial error.

63730:1ca0765c7c7b

       gud-marker-acc (substring gud-marker-acc (match-end 0))))

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

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

    ;; Does the remaining text look like it might end with the
    ;; beginning of another marker?  If it does, then keep it in
    ;; gud-marker-acc until we receive the rest of it.	Since we
    ;; know the full marker regexp above failed, it's pretty simple to

  "Return a suitable command to print the expression EXPR.
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)))

(defun gud-tooltip-tips (event)
  "Show tip for identifier or selection under the mouse.
The mouse must either point at an identifier or inside a selected
region for the tip window to be shown.  If gud-tooltip-dereference is t,

63731:4121439fd904

       gud-marker-acc (substring gud-marker-acc (match-end 0))))

    ;; Check for annotations and change gud-minor-mode to 'gdba if
    ;; they are found.
    (while (string-match "\n\032\032\\(.*\\)\n" gud-marker-acc)
      (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)))
	(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
    ;; gud-marker-acc until we receive the rest of it.	Since we
    ;; know the full marker regexp above failed, it's pretty simple to

  "Return a suitable command to print the expression EXPR.
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)))

(defun gud-tooltip-tips (event)
  "Show tip for identifier or selection under the mouse.
The mouse must either point at an identifier or inside a selected
region for the tip window to be shown.  If gud-tooltip-dereference is t,