From 1342cbd75004ddcfa124bcb98e29c0763b2502f8 Mon Sep 17 00:00:00 2001 From: Fabrice Bauzac Date: Wed, 7 Jun 2023 23:19:40 +0200 Subject: Fix warning about save-excursion+set-buffer Use with-current-buffer instead. --- debian-bug.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'debian-bug.el') 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 " " -- cgit v1.2.3