Mercurial > emacs
changeset 68999:eb53cd048942
Don't require font-lock as it's now automatically loaded.
(gud-speedbar-buttons): Replace gdb-var-changed with gdb-force-update.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sun, 19 Feb 2006 05:20:44 +0000 |
| parents | 23217e6a7030 |
| children | 0dcc5b9decbf |
| files | lisp/progmodes/gud.el |
| diffstat | 1 files changed, 3 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gud.el Sun Feb 19 05:19:26 2006 +0000 +++ b/lisp/progmodes/gud.el Sun Feb 19 05:20:44 2006 +0000 @@ -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 @@ (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 @@ (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:"))