diff options
| author | psg <> | 2003-04-22 03:22:00 +0000 |
|---|---|---|
| committer | psg <> | 2003-04-22 03:22:00 +0000 |
| commit | 6509c50797461c21a6341e7c85b726484b895921 (patch) | |
| tree | b8b33983dcb29aa40db7dbc50cdfb2a05c3df64a /debian-bug.el | |
| parent | 12355544c7a327313d7e040da2aba26c54d8d0dc (diff) | |
Added debian-bug-menu-preload-flag.
Diffstat (limited to 'debian-bug.el')
| -rw-r--r-- | debian-bug.el | 23 |
1 files changed, 15 insertions, 8 deletions
diff --git a/debian-bug.el b/debian-bug.el index 8920d51..5643234 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -181,6 +181,7 @@ ;; - New actions in Bugs list menu: can now read bug reports as file or Email! ;; - Apply checkdoc patch from Bill Wohler <wohler@newt.com>. Thanks! ;; - Byte-compilation cleanup. +;; - Added debian-bug-menu-preload-flag. ;; ---------------------------------------------------------------------------- ;;; Todo (Peter's list): @@ -305,6 +306,12 @@ Will only actually do it if the variable `debian-bug-From-address' is set." "Action to take when selecting a bug number from the Bugs menu-bar.") (make-variable-buffer-local 'debian-bug-menu-action) +(defcustom debian-bug-menu-preload-flag nil + "Non-nil means to fetch bug list from the web and populate Bugs menu. +Otherwise, simply use the menu entry to generate it." + :group 'debian-bug + :type 'boolean) + ;;; Internal variables: (defvar debian-bug-mail-address @@ -1458,7 +1465,7 @@ If SUBMENU is t, then check for current sexp submenu only." (defvar debian-changelog-mode-map) (defun debian-bug-build-bug-menu (package) - "Build a menu listing the bugs for this PACKAGE." + "Build a menu listing the bugs for PACKAGE." (setq debian-bug-alist nil debian-bug-open-alist nil) (let ((debian-bug-tmp-buffer @@ -1599,11 +1606,13 @@ If SUBMENU is t, then check for current sexp submenu only." (defun debian-bug-bug-menu-init (minor-mode-map) "Initialize empty bug menu. Call this function from the mode setup with MINOR-MODE-MAP." - (easy-menu-define debian-bug-bugs-menu minor-mode-map - "Debian Bug Mode Bugs Menu" - '("Bugs" - ["* Generate menu *" (debian-bug-build-bug-this-menu) - (debian-bug-check-for-program "wget")])) + (if debian-bug-menu-preload-flag + (debian-bug-build-bug-this-menu) + (easy-menu-define debian-bug-bugs-menu minor-mode-map + "Debian Bug Mode Bugs Menu" + '("Bugs" + ["* Generate menu *" (debian-bug-build-bug-this-menu) + (debian-bug-check-for-program "wget")]))) (easy-menu-add debian-bug-bugs-menu)) ;;;------------- @@ -1652,6 +1661,4 @@ Call this function from the mode setup with MINOR-MODE-MAP." (provide 'debian-bug) -(provide 'debian-bug) - ;;; debian-bug.el ends here |