diff options
| author | psg <> | 2003-05-13 02:39:13 +0000 |
|---|---|---|
| committer | psg <> | 2003-05-13 02:39:13 +0000 |
| commit | 3fe306d26fb21be720607fa17231166ee078a319 (patch) | |
| tree | 0a0fadc73f138ce33a21d8da3733559cbcc1b3de /debian-bug.el | |
| parent | 4c9c4e09077c4f6b62e23269a01e920794421683 (diff) | |
check if debian-changelog-mode is available as a feature, and not simply the if the autoloaded are fboundp (which is always true).
Diffstat (limited to 'debian-bug.el')
| -rw-r--r-- | debian-bug.el | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/debian-bug.el b/debian-bug.el index f0f9eed..7f56c78 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -188,6 +188,9 @@ ;; - Minor doc string fixes. ;; - renamed X-Debbugs-CC commands to simple CC, specifying the field to ;; use as an new argument. So it can be used in d-b-control. +;; V1.40 12May2003 Peter S Galbraith <psg@debian.org> +;; - check if `debian-changelog-mode' is available as a feature, and not +;; simply the if the autoloaded are fboundp (which is always true). ;; ---------------------------------------------------------------------------- ;;; Todo (Peter's list): @@ -1241,7 +1244,7 @@ argument turn sit off." (if (not (featurep 'browse-url)) (error "This function requires the browse-url elisp package")))) (let ((pkg-name (or debian-bug-package-name - (and (fboundp 'debian-changelog-suggest-package-name) + (and (featurep 'debian-changelog-mode) (debian-changelog-suggest-package-name)) (read-string "Package name: ")))) (if (string-equal "" pkg-name) @@ -1297,7 +1300,7 @@ In a program, mouse location is in EVENT." (if (not (featurep 'browse-url)) (error "This function requires the browse-url elisp package")))) (let ((pkg-name (or debian-bug-package-name - (and (fboundp 'debian-changelog-suggest-package-name) + (and (featurep 'debian-changelog-mode) (debian-changelog-suggest-package-name)) (read-string "Package name: ")))) (if (string-equal "" pkg-name) @@ -1327,7 +1330,7 @@ In a program, mouse location is in EVENT." (if (not (featurep 'browse-url)) (error "This function requires the browse-url elisp package")))) (let ((pkg-name (or debian-bug-package-name - (and (fboundp 'debian-changelog-suggest-package-name) + (and (featurep 'debian-changelog-mode) (debian-changelog-suggest-package-name)) (read-string "Package name: ")))) (if (string-equal "" pkg-name) @@ -1462,7 +1465,7 @@ If SUBMENU is t, then check for current sexp submenu only." (let* ((package-name (cond (debian-bug-package-name debian-bug-package-name) - ((fboundp 'debian-changelog-suggest-package-name) + ((featurep 'debian-changelog-mode) (debian-changelog-suggest-package-name)) (t (read-string "Package name: ")))) @@ -1634,7 +1637,7 @@ If SUBMENU is t, then check for current sexp submenu only." (defun debian-bug-build-bug-this-menu () "Regenerate Bugs list menu for this buffer's package." - (let ((package (or (and (fboundp 'debian-changelog-suggest-package-name) + (let ((package (or (and (featurep 'debian-changelog-mode) (debian-changelog-suggest-package-name)) (and (boundp 'debian-bug-package-name) debian-bug-package-name) |