[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/debbugs 792d98f 116/311: * debbugs-org.el (debbugs-org-
From: |
Stefan Monnier |
Subject: |
[elpa] externals/debbugs 792d98f 116/311: * debbugs-org.el (debbugs-org-show-buffer-name): New defvar. |
Date: |
Sun, 29 Nov 2020 18:41:52 -0500 (EST) |
branch: externals/debbugs
commit 792d98fe87f61a22cb1e5a9c3207b23737dbbc5d
Author: Michael Albinus <michael.albinus@gmx.de>
Commit: Michael Albinus <michael.albinus@gmx.de>
* debbugs-org.el (debbugs-org-show-buffer-name): New defvar.
(debbugs-org, debbugs-org-show-reports)
(debbugs-org-show-next-reports, debbugs-org-mode): Use it.
(debbugs-org-regenerate-status): Fix docstring.
---
debbugs-org.el | 19 +++++++++++++------
1 file changed, 13 insertions(+), 6 deletions(-)
diff --git a/debbugs-org.el b/debbugs-org.el
index e2f39ca..a85cbbc 100644
--- a/debbugs-org.el
+++ b/debbugs-org.el
@@ -54,8 +54,9 @@
;; given, locally tagged bugs are shown.
;; If a prefix is given to the command, more search parameters are
-;; asked for, like packages (also a comma separated list, "org-mode" is
-;; the default), or whether archived bugs shall be shown.
+;; asked for, like packages (also a comma separated list, "emacs" is
+;; the default), whether archived bugs shall be shown, and whether
+;; closed bugs shall be shown.
;; Another command is
;;
@@ -127,6 +128,10 @@
(defvar debbugs-org-ids nil
"The list of bug ids to be shown following the elisp link.")
+(defvar debbugs-org-show-buffer-name "*Org Bugs*"
+ "The buffer name we present the bug reports.
+This could be a temporary buffer, or a buffer linked with a file.")
+
;;;###autoload
(defun debbugs-org-search ()
"Search for bugs interactively.
@@ -245,7 +250,7 @@ returned."
(when (not (zerop (length tag)))
(add-to-list 'debbugs-gnu-current-query (cons 'tag tag))))
- (with-current-buffer (get-buffer-create "*Org Bugs*")
+ (with-current-buffer (get-buffer-create debbugs-org-show-buffer-name)
(erase-buffer))
(unwind-protect
@@ -271,7 +276,7 @@ returned."
(defun debbugs-org-show-reports (bug-numbers)
"Show bug reports as given in BUG-NUMBERS."
- (pop-to-buffer (get-buffer-create "*Org Bugs*"))
+ (pop-to-buffer (get-buffer-create debbugs-org-show-buffer-name))
(org-mode)
(debbugs-org-mode 1)
;; FIXME: Does not show any effect.
@@ -371,7 +376,7 @@ returned."
"Regenerate the `tabulated-list-id' text property.
This property is used when following the [Messages] link, so you
need to regenerate it when opening an .org file after you killed
-the corresponding buffer (e.g. by closing Emacs.)"
+the corresponding buffer (e.g. by closing Emacs)."
(save-excursion
(goto-char (point-min))
(while (re-search-forward ":DEBBUGS_ID:[ \t]*\\([0-9]+\\)" nil t)
@@ -386,7 +391,7 @@ the corresponding buffer (e.g. by closing Emacs.)"
(defun debbugs-org-show-next-reports (hits)
"Show next HITS of bug reports."
- (with-current-buffer (get-buffer-create "*Org Bugs*")
+ (with-current-buffer (get-buffer-create debbugs-org-show-buffer-name)
(save-excursion
(goto-char (point-max))
(forward-line -1)
@@ -419,6 +424,8 @@ the corresponding buffer (e.g. by closing Emacs.)"
\\{debbugs-org-mode-map}"
:lighter " Debbugs" :keymap debbugs-org-mode-map
+ (set (make-local-variable 'debbugs-org-show-buffer-name)
+ (if buffer-file-name (buffer-name) debbugs-org-show-buffer-name))
(set (make-local-variable 'gnus-posting-styles)
`((".*"
(eval
- [elpa] externals/debbugs f6146fe 088/311: Make sorting respect the current narrowing., (continued)
- [elpa] externals/debbugs f6146fe 088/311: Make sorting respect the current narrowing., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 15b792d 079/311: Remove ChangeLogs; use "bzr log" instead, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4f825df 084/311: * debbugs-gnu.el (debbugs-gnu-default-severities). Add "serious" to, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 7a3f97a 085/311: Add implemented SOAP function "search_est"., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 4cc71d5 086/311: Add commands to narrow/widen the bug reports., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e794c6c 104/311: Adapt copyright years., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 698e4c8 095/311: * debbugs.el (debbugs-get-usertag): Change parameters to a KEY-VALUE sequence., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 902baa4 106/311: Only keep the strictly necessary *-pkg.el files, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs d11276e 112/311: Update copyright years., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 399edb4 113/311: New command `debbugs-org-regenerate-status', Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 792d98f 116/311: * debbugs-org.el (debbugs-org-show-buffer-name): New defvar.,
Stefan Monnier <=
- [elpa] externals/debbugs 37eba87 117/311: * debbugs-gnu.el (debbugs-gnu-default-packages): Add new packages., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs e27f085 124/311: * packages/debbugs/debbugs-org.el: Miscellanous cleanups., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6b87b3b 126/311: Update the debbugs tag face when switching it off, too, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 9136369 130/311: Add a lot of Emacs maintainer DWIM, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs da6a351 132/311: Handle blocked bugs in debbugs, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs f50bf5d 137/311: New file debbugs-reference.el, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs b021f3b 138/311: * debbugs-ug.texi (Minor Modes): New node., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 1883e24 053/311: * debbugs.el (debbugs-get-bugs): Extend syntax for packages (and, Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs a40dc43 076/311: * debbugs-gnu.el (debbugs-gnu-phrase-prompt): New defconst., Stefan Monnier, 2020/11/29
- [elpa] externals/debbugs 6f5d15b 078/311: (debbugs-gnu-show-reports): Increase the stale time to two weeks., Stefan Monnier, 2020/11/29