diff options
author | XIYUE DENG <manphiz@gmail.com> | 2023-10-03 18:13:30 +0000 |
---|---|---|
committer | XIYUE DENG <manphiz@gmail.com> | 2023-10-03 18:13:30 +0000 |
commit | 5b39b57ed8c6fc4b9ab20a1097b193ac2b6d91a2 (patch) | |
tree | 304f81bae6a7d62f01240091c708b03af32e7097 /debian-bug.el | |
parent | 786704f7a86990000349526e5070244f320998ba (diff) | |
parent | 1342cbd75004ddcfa124bcb98e29c0763b2502f8 (diff) |
Merge branch 'with-current-buffer' into 'master'
Fix warning about save-excursion+set-buffer
See merge request emacsen-team/debian-el!7
Diffstat (limited to 'debian-bug.el')
-rw-r--r-- | debian-bug.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/debian-bug.el b/debian-bug.el index 050ccc9..accc8b3 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -2225,8 +2225,7 @@ Optionally, if SOURCE is t, make it a source package." (is-changelog-mode (and (equal major-mode 'debian-changelog-mode) (boundp 'debian-changelog-close-bug-takes-arg)))) - (save-excursion - (set-buffer debian-bug-tmp-buffer) + (with-current-buffer debian-bug-tmp-buffer (insert "(setq debian-bug-easymenu-list\n'(\"Bugs\"\n") (insert "[\"* Regenerate list *\" (debian-bug-build-bug-this-menu) t] \"--\" @@ -2267,8 +2266,7 @@ Optionally, if SOURCE is t, make it a source package." ((string= type "-->")) ;Do nothing (type (setq bugs-are-open-flag (not (string-match "resolved" type))) - (save-excursion - (set-buffer debian-bug-tmp-buffer) + (with-current-buffer debian-bug-tmp-buffer (insert "\"-\"\n\"" type "\"\n"))) ((null description)) ;Do nothing ((string-match "^#?[0-9]+$" description)) ;Do nothing @@ -2302,8 +2300,7 @@ Optionally, if SOURCE is t, make it a source package." (setq bug-open-alist (cons (list bugnumber shortdescription) bug-open-alist))) - (save-excursion - (set-buffer debian-bug-tmp-buffer) + (with-current-buffer debian-bug-tmp-buffer (insert "[" (format "%S" (concat "#" bugnumber " " |