From 6509c50797461c21a6341e7c85b726484b895921 Mon Sep 17 00:00:00 2001 From: psg <> Date: Tue, 22 Apr 2003 03:22:00 +0000 Subject: Added debian-bug-menu-preload-flag. --- debian-bug.el | 23 +++++++++++++++-------- 1 file changed, 15 insertions(+), 8 deletions(-) (limited to 'debian-bug.el') 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 . 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 -- cgit v1.2.3