# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1121438673 0
# Node ID 1009f071639a6c8e7edc43f3feb24515b499d49b
# Parent  d248066aa8415d621a8e63196f5a5459a58a2cc2
(etags, sdb): Only require etags when needed.
(gud-speedbar-menu-items): Correct logic for enabling items.

diff -r d248066aa841 -r 1009f071639a lisp/progmodes/gud.el
--- a/lisp/progmodes/gud.el	Fri Jul 15 14:42:10 2005 +0000
+++ b/lisp/progmodes/gud.el	Fri Jul 15 14:44:33 2005 +0000
@@ -42,7 +42,6 @@
 (eval-when-compile (require 'cl)) ; for case macro
 
 (require 'comint)
-(require 'etags)
 (require 'font-lock)
 
 ;; ======================================================================
@@ -352,10 +351,10 @@
        (not (memq gud-minor-mode '(gdbmi gdba))))]
     ["Edit value" speedbar-edit-line
      (with-current-buffer gud-comint-buffer
-       (not (memq gud-minor-mode '(gdbmi gdba))))]
+       (memq gud-minor-mode '(gdbmi gdba)))]
     ["Delete expression" gdb-var-delete
      (with-current-buffer gud-comint-buffer
-       (not (memq gud-minor-mode '(gdbmi gdba))))])
+       (memq gud-minor-mode '(gdbmi gdba)))])
   "Additional menu items to add to the speedbar frame.")
 
 ;; Make sure our special speedbar mode is loaded
@@ -833,6 +832,7 @@
 and source-file directory for your debugger."
   (interactive (list (gud-query-cmdline 'sdb)))
 
+  (if gud-sdb-needs-tags (require 'etags))
   (if (and gud-sdb-needs-tags
 	   (not (and (boundp 'tags-file-name)
 		     (stringp tags-file-name)