aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2022-07-31 11:46:31 +0200
committerStefan Kangas2022-07-31 12:04:17 +0200
commitef5abcd4cc61791fe6d19d187e03f4e3ba33891f (patch)
treeac080b11c38fe0f349695be73c3b57e589069eb3
parent623356ee946d695771d92ac4a03cd10d30bd505f (diff)
downloademacs-ef5abcd4cc61791fe6d19d187e03f4e3ba33891f.tar.gz
emacs-ef5abcd4cc61791fe6d19d187e03f4e3ba33891f.zip
; Simplify two functions after recent change
* lisp/textmodes/bib-mode.el (bib-capitalize-title): * lisp/textmodes/refbib.el (r2b-capitalize-title): Simplify.
-rw-r--r--lisp/textmodes/bib-mode.el1
-rw-r--r--lisp/textmodes/refbib.el1
2 files changed, 0 insertions, 2 deletions
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'."
227(defun bib-capitalize-title (s) 227(defun bib-capitalize-title (s)
228 "Like `capitalize', but don't capitalize stop words, except the first." 228 "Like `capitalize', but don't capitalize stop words, except the first."
229 (with-temp-buffer 229 (with-temp-buffer
230 (erase-buffer)
231 (insert s) 230 (insert s)
232 (bib-capitalize-title-region (point-min) (point-max)) 231 (bib-capitalize-title-region (point-min) (point-max))
233 (buffer-string))) 232 (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'.")
165(defun r2b-capitalize-title (s) 165(defun r2b-capitalize-title (s)
166 "Like `capitalize', but don't capitalize stop words, except the first." 166 "Like `capitalize', but don't capitalize stop words, except the first."
167 (with-temp-buffer 167 (with-temp-buffer
168 (erase-buffer)
169 (insert s) 168 (insert s)
170 (r2b-capitalize-title-region (point-min) (point-max)) 169 (r2b-capitalize-title-region (point-min) (point-max))
171 (buffer-string))) 170 (buffer-string)))