diff options
| author | Katsumi Yamaoka | 2017-10-27 01:14:17 +0000 |
|---|---|---|
| committer | Katsumi Yamaoka | 2017-10-27 01:14:17 +0000 |
| commit | 53aaad1dfc1f9e0ffe7ee457967426584cd7f541 (patch) | |
| tree | 52b1b83f70cf65ceb15a0f3e21e05e03d5059259 | |
| parent | 7b29db222f744d97c480ba9573cdc6900a727db6 (diff) | |
| download | emacs-53aaad1dfc1f9e0ffe7ee457967426584cd7f541.tar.gz emacs-53aaad1dfc1f9e0ffe7ee457967426584cd7f541.zip | |
Make an example code introduced in the Gnus info work (bug#29008)
You can find it in the bottom of (info "(gnus)Foreign Groups").
NOTE: this change is worth being merged to the trunk.
* lisp/gnus/gnus-group.el (gnus-read-ephemeral-emacs-bug-group):
Allow a string for bug# (bug#29008).
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 56d42b41a82..996e8266105 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el | |||
| @@ -2517,6 +2517,8 @@ the bug number, and browsing the URL must return mbox output." | |||
| 2517 | (interactive (list (string-to-number | 2517 | (interactive (list (string-to-number |
| 2518 | (read-string "Enter bug number: " | 2518 | (read-string "Enter bug number: " |
| 2519 | (thing-at-point 'word) nil)))) | 2519 | (thing-at-point 'word) nil)))) |
| 2520 | (when (stringp ids) | ||
| 2521 | (setq ids (string-to-number ids))) | ||
| 2520 | (unless (listp ids) | 2522 | (unless (listp ids) |
| 2521 | (setq ids (list ids))) | 2523 | (setq ids (list ids))) |
| 2522 | (gnus-read-ephemeral-bug-group | 2524 | (gnus-read-ephemeral-bug-group |