summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorpsg <>2003-11-28 02:40:05 +0000
committerpsg <>2003-11-28 02:40:05 +0000
commitdf6ae3643cb9521913b3c2f5c9ddbe764fba1ba7 (patch)
tree06c1305ebdf9a02fbac542a8f95e88fab37bba9f
parent830b4e9016cac1095fd041039825860ede5e2d13 (diff)
V1.52 27Nov2003 Kalle Olavi Niemitalo <kon@iki.fi>
- debian-bug-package: Let M-<next> and M-<prev> scroll the pseudo-package list window by making _it_ the other window. (Closes: #222333)
-rw-r--r--debian-bug.el9
1 files changed, 7 insertions, 2 deletions
diff --git a/debian-bug.el b/debian-bug.el
index 9ba96d1..b011e9d 100644
--- a/debian-bug.el
+++ b/debian-bug.el
@@ -242,6 +242,8 @@
;; V1.52 27Nov2003 Kalle Olavi Niemitalo <kon@iki.fi>
;; - Contain debian-bug's cursor-in-echo-area to when it's needed so the
;; list of pseudo-packages can be scrolled. (Closes: #222332)
+;; - debian-bug-package: Let M-<next> and M-<prev> scroll the pseudo-package
+;; list window by making _it_ the other window. (Closes: #222333)
;; ----------------------------------------------------------------------------
;;; Todo (Peter's list):
@@ -581,8 +583,11 @@ Reportbug may have sent an empty report!")))
"Submit a Debian bug report about PACKAGE."
(if (or (not package) (string= "" package))
(save-window-excursion
- (if debian-bug-display-help
- (debian-bug-help-pseudo-packages))
+ (when debian-bug-display-help
+ (debian-bug-help-pseudo-packages)
+ ;; This lets M-<next> and M-<prev> scroll the pseudo-package list
+ ;; window by making _it_ the other window.
+ (select-window (get-buffer-window "*Help*")))
(setq package (completing-read
"Package name: "
(debian-bug-fill-packages-obarray)