From: Nick Roberts <nickrob@snap.net.nz>
Date: Sun, 19 Feb 2006 05:20:44 +0000 (+0000)
Subject: Don't require font-lock as it's now automatically loaded.
X-Git-Tag: emacs-pretest-22.0.90~4037
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=672162f3de5611188bbad8388272c410ec4ef54d;p=emacs.git

Don't require font-lock as it's now automatically loaded.
(gud-speedbar-buttons): Replace gdb-var-changed with gdb-force-update.
---

diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el
index 3b441d0c296..9b6b33f1c36 100644
--- a/lisp/progmodes/gud.el
+++ b/lisp/progmodes/gud.el
@@ -43,14 +43,13 @@
 (eval-when-compile (require 'cl)) ; for case macro
 
 (require 'comint)
-(require 'font-lock)
 
 (defvar gdb-active-process)
 (defvar gdb-define-alist)
 (defvar gdb-macro-info)
 (defvar gdb-server-prefix)
 (defvar gdb-show-changed-values)
-(defvar gdb-var-changed)
+(defvar gdb-force-update)
 (defvar gdb-var-list)
 (defvar gdb-speedbar-auto-raise)
 (defvar tool-bar-map)
@@ -444,7 +443,7 @@ required by the caller."
 	  (p (window-point window)))
       (cond
        ((memq minor-mode '(gdbmi gdba))
-	(when (or gdb-var-changed
+	(when (or gdb-force-update
 		  (not (save-excursion
 			 (goto-char (point-min))
 			 (let ((case-fold-search t))
@@ -503,7 +502,7 @@ required by the caller."
 		     (if (and (nth 5 var) gdb-show-changed-values) 'shadow nil)
 		     depth))))
 	      (setq var-list (cdr var-list))))
-	  (setq gdb-var-changed nil)))
+	  (setq gdb-force-update nil)))
        (t (unless (and (save-excursion
 			 (goto-char (point-min))
 			 (looking-at "Current Stack:"))