diff options
| author | Stefan Kangas | 2022-07-31 11:46:31 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2022-07-31 12:04:17 +0200 |
| commit | ef5abcd4cc61791fe6d19d187e03f4e3ba33891f (patch) | |
| tree | ac080b11c38fe0f349695be73c3b57e589069eb3 | |
| parent | 623356ee946d695771d92ac4a03cd10d30bd505f (diff) | |
| download | emacs-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.el | 1 | ||||
| -rw-r--r-- | lisp/textmodes/refbib.el | 1 |
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))) |