From fd9a7f35a18ec7d6ab0bdb5359d817641840184a Mon Sep 17 00:00:00 2001 From: Nick Roberts Date: Fri, 15 Jul 2005 14:44:33 +0000 Subject: [PATCH] (etags, sdb): Only require etags when needed. (gud-speedbar-menu-items): Correct logic for enabling items. --- lisp/progmodes/gud.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/progmodes/gud.el b/lisp/progmodes/gud.el index 5064438366..f93ff3d7e0 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) -- 2.20.1