master f08f5b7afe 09/10: Avoid leaving temp buffers in bib-mode and refbib

[Stefan Kangas]

branch: master
commit f08f5b7afe5da475ebbce700116375757c37521e
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>

    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.
---
 lisp/textmodes/bib-mode.el | 12 ++++++------
 lisp/textmodes/refbib.el   | 12 ++++++------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 21a4dc751a..83759090af 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 ba1deca47d..f697fcaf40 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 ()