; 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 83759090aff8c731f5e5ba66caf7f3d46096ac5c..af49464d1eef2dd3c4a8dbecbf077ee86017b168 100644 (file)
--- 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 f697fcaf403ebc37851d028b64a26bac302cbc6a..203a0fdbb72cc2dad43bf78d5f5ed5ec3e2dd0e6 100644 (file)
--- 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)))