From: Nick Roberts Date: Fri, 15 Jul 2005 14:44:33 +0000 (+0000) Subject: (etags, sdb): Only require etags when needed. X-Git-Tag: emacs-pretest-22.0.90~8128 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fd9a7f35a18ec7d6ab0bdb5359d817641840184a;p=emacs.git (etags, sdb): Only require etags when needed. (gud-speedbar-menu-items): Correct logic for enabling items. --- diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 50644383667..f93ff3d7e02 100644 --- a/lisp/progmodes/gud.el +++ b/lisp/progmodes/gud.el @@ -42,7 +42,6 @@ (eval-when-compile (require 'cl)) ; for case macro (require 'comint) -(require 'etags) (require 'font-lock) ;; ====================================================================== @@ -352,10 +351,10 @@ t means that there is no stack, and we are in display-file mode.") (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 @@ The directory containing FILE becomes the initial working directory 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)