From: Stefan Kangas <stefan@marxist.se>
Date: Sun, 31 Jul 2022 09:46:31 +0000 (+0200)
Subject: ; Simplify two functions after recent change
X-Git-Tag: emacs-29.0.90~1447^2~609
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ef5abcd4cc61791fe6d19d187e03f4e3ba33891f;p=emacs.git

; Simplify two functions after recent change

* lisp/textmodes/bib-mode.el (bib-capitalize-title):
* lisp/textmodes/refbib.el (r2b-capitalize-title): Simplify.
---

diff --git a/lisp/textmodes/bib-mode.el b/lisp/textmodes/bib-mode.el
index 83759090aff..af49464d1ee 100644
--- a/lisp/textmodes/bib-mode.el
+++ b/lisp/textmodes/bib-mode.el
@@ -227,7 +227,6 @@ named by variable `bib-unread-file'."
 (defun bib-capitalize-title (s)
   "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)))
diff --git a/lisp/textmodes/refbib.el b/lisp/textmodes/refbib.el
index f697fcaf403..203a0fdbb72 100644
--- a/lisp/textmodes/refbib.el
+++ b/lisp/textmodes/refbib.el
@@ -165,7 +165,6 @@ 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-temp-buffer
-    (erase-buffer)
     (insert s)
     (r2b-capitalize-title-region (point-min) (point-max))
     (buffer-string)))