diff options
| author | Nick Roberts | 2005-07-15 14:44:33 +0000 |
|---|---|---|
| committer | Nick Roberts | 2005-07-15 14:44:33 +0000 |
| commit | fd9a7f35a18ec7d6ab0bdb5359d817641840184a (patch) | |
| tree | dbb3a55ca32e1f0204682d6d152afae67e826b1a | |
| parent | bb7e5329872af5f1edd05546af18f14be5747070 (diff) | |
| download | emacs-fd9a7f35a18ec7d6ab0bdb5359d817641840184a.tar.gz emacs-fd9a7f35a18ec7d6ab0bdb5359d817641840184a.zip | |
(etags, sdb): Only require etags when needed.
(gud-speedbar-menu-items): Correct logic for enabling items.
| -rw-r--r-- | lisp/progmodes/gud.el | 6 |
1 files changed, 3 insertions, 3 deletions
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 @@ | |||
| 42 | (eval-when-compile (require 'cl)) ; for case macro | 42 | (eval-when-compile (require 'cl)) ; for case macro |
| 43 | 43 | ||
| 44 | (require 'comint) | 44 | (require 'comint) |
| 45 | (require 'etags) | ||
| 46 | (require 'font-lock) | 45 | (require 'font-lock) |
| 47 | 46 | ||
| 48 | ;; ====================================================================== | 47 | ;; ====================================================================== |
| @@ -352,10 +351,10 @@ t means that there is no stack, and we are in display-file mode.") | |||
| 352 | (not (memq gud-minor-mode '(gdbmi gdba))))] | 351 | (not (memq gud-minor-mode '(gdbmi gdba))))] |
| 353 | ["Edit value" speedbar-edit-line | 352 | ["Edit value" speedbar-edit-line |
| 354 | (with-current-buffer gud-comint-buffer | 353 | (with-current-buffer gud-comint-buffer |
| 355 | (not (memq gud-minor-mode '(gdbmi gdba))))] | 354 | (memq gud-minor-mode '(gdbmi gdba)))] |
| 356 | ["Delete expression" gdb-var-delete | 355 | ["Delete expression" gdb-var-delete |
| 357 | (with-current-buffer gud-comint-buffer | 356 | (with-current-buffer gud-comint-buffer |
| 358 | (not (memq gud-minor-mode '(gdbmi gdba))))]) | 357 | (memq gud-minor-mode '(gdbmi gdba)))]) |
| 359 | "Additional menu items to add to the speedbar frame.") | 358 | "Additional menu items to add to the speedbar frame.") |
| 360 | 359 | ||
| 361 | ;; Make sure our special speedbar mode is loaded | 360 | ;; Make sure our special speedbar mode is loaded |
| @@ -833,6 +832,7 @@ The directory containing FILE becomes the initial working directory | |||
| 833 | and source-file directory for your debugger." | 832 | and source-file directory for your debugger." |
| 834 | (interactive (list (gud-query-cmdline 'sdb))) | 833 | (interactive (list (gud-query-cmdline 'sdb))) |
| 835 | 834 | ||
| 835 | (if gud-sdb-needs-tags (require 'etags)) | ||
| 836 | (if (and gud-sdb-needs-tags | 836 | (if (and gud-sdb-needs-tags |
| 837 | (not (and (boundp 'tags-file-name) | 837 | (not (and (boundp 'tags-file-name) |
| 838 | (stringp tags-file-name) | 838 | (stringp tags-file-name) |