diff options
author | Fabrice Bauzac <noon@mykolab.com> | 2023-06-07 23:19:40 +0200 |
---|---|---|
committer | Fabrice Bauzac <noon@mykolab.com> | 2023-06-07 23:19:40 +0200 |
commit | 1342cbd75004ddcfa124bcb98e29c0763b2502f8 (patch) | |
tree | 010a4b7976eee15dd948651fcbe312bffe0dee6a /debian-bug.el | |
parent | a3ef20c269b9192710567571b20718f572942bc4 (diff) |
Fix warning about save-excursion+set-buffer
Use with-current-buffer instead.
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 467f29b..f512461 100644 --- a/debian-bug.el +++ b/debian-bug.el @@ -2222,8 +2222,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] \"--\" @@ -2264,8 +2263,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 @@ -2299,8 +2297,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 " " |