From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 30 Jul 2022 09:52:05 +0000 (+0200)
Subject: Avoid leaving temp buffers in bib-mode and refbib
X-Git-Tag: emacs-29.0.90~1447^2~647
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f08f5b7afe5da475ebbce700116375757c37521e;p=emacs.git

Avoid leaving temp buffers in bib-mode and refbib

* lisp/textmodes/bib-mode.el (bib-capitalize-title):
* lisp/textmodes/refbib.el (r2b-capitalize-title): Use
with-temp-buffer.
---

diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 21a4dc751a0..83759090aff 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -225,12 +225,12 @@ named by variable `bib-unread-file'."
 	 (set-syntax-table orig-syntax-table))))
 
 (defun bib-capitalize-title (s)
-   "Like `capitalize', but don't capitalize stop words, except the first."
-   (with-current-buffer (get-buffer-create "$$$Scratch$$$")
-     (erase-buffer)
-     (insert s)
-     (bib-capitalize-title-region (point-min) (point-max))
-     (buffer-string)))
+  "Like `capitalize', but don't capitalize stop words, except the first."
+  (with-temp-buffer
+    (erase-buffer)
+    (insert s)
+    (bib-capitalize-title-region (point-min) (point-max))
+    (buffer-string)))
 
 (define-obsolete-function-alias 'addbib #'bib-add "29.1")
 (define-obsolete-function-alias 'return-key-bib #'bib-return-key "29.1")
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index ba1deca47dc..f697fcaf403 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -163,12 +163,12 @@ This is in addition to the `r2b-capitalize-title-stop-words'.")
 
 
 (defun r2b-capitalize-title (s)
-   "Like `capitalize', but don't capitalize stop words, except the first."
-   (with-current-buffer (get-buffer-create "$$$Scratch$$$")
-     (erase-buffer)
-     (insert s)
-     (r2b-capitalize-title-region (point-min) (point-max))
-     (buffer-string)))
+  "Like `capitalize', but don't capitalize stop words, except the first."
+  (with-temp-buffer
+    (erase-buffer)
+    (insert s)
+    (r2b-capitalize-title-region (point-min) (point-max))
+    (buffer-string)))
 
 ;*********************************************************
 (defun r2b-reset ()