From: Nick Roberts <nickrob@snap.net.nz>
Date: Fri, 24 Jun 2005 01:32:24 +0000 (+0000)
Subject: (gdb-send): Remove warning face from errors
X-Git-Tag: emacs-pretest-22.0.90~8671
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff71329437a5195b60799e019871181c916024ff;p=emacs.git

(gdb-send): Remove warning face from errors
after fresh input.
(gdb-var-create-handler): Put name of expression in quotes.
---

diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el
index 5977783475a..7653ff90a2f 100644
--- a/lisp/progmodes/gdb-ui.el
+++ b/lisp/progmodes/gdb-ui.el
@@ -432,7 +432,7 @@ Also display the main routine in the disassembly buffer if present."
 	    (setq gdb-var-changed t)))
       (if (re-search-forward "Undefined command" nil t)
 	  (message-box "Watching expressions requires gdb 6.0 onwards")
-	(message "No symbol %s in current context." expr)))))
+	(message "No symbol \"%s\" in current context." expr)))))
 
 (defun gdb-var-evaluate-expression-handler (varnum changed)
   (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
@@ -776,6 +776,8 @@ The key should be one of the cars in `gdb-buffer-rules-assoc'."
 (defun gdb-send (proc string)
   "A comint send filter for gdb.
 This filter may simply queue input for a later time."
+  (with-current-buffer gud-comint-buffer
+    (remove-text-properties (point-min) (point-max) '(face)))
   (let ((item (concat string "\n")))
     (if gud-running
       (progn