mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-06 20:49:33 +00:00
Code Issues Releases Activity

Tweak bug ID prompting in gnus-group--read-bug-ids

Browse Source 
* lisp/gnus/gnus-group.el (gnus-group--read-bug-ids): Default to
current bug id on RET.
This commit is contained in:
Lars Ingebrigtsen 2019-07-14 18:27:50 +02:00
parent a7aae1473c
commit 0c450e09b8
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/gnus/gnus-group.el
View File

@ -2446,7 +2446,10 @@ the bug number, and browsing the URL must return mbox output."
;; Pass DEF as the value of COLLECTION instead of DEF because:
;; a) null input should not cause DEF to be returned and
;; b) TAB and M-n still work this way.
(completing-read-multiple "Bug IDs: " (and def (list (format "%s" def))))))
(or (completing-read-multiple
(format "Bug IDs%s: " (if def (format " (default %s)" def) ""))
(and def (list (format "%s" def))))
def)))
(defun gnus-read-ephemeral-bug-group (ids mbox-url &optional window-conf)
"Browse bug reports with IDS in an ephemeral group.