From: Basil L. Contovounesios <contovob@tcd.ie>
Date: Mon, 16 Nov 2020 23:16:23 +0000 (+0000)
Subject: ; Fix last change to bibtex.el
X-Git-Tag: emacs-28.0.90~5127
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=45a1653afa8eb0032908bc94b5466604f84805d5;p=emacs.git

; Fix last change to bibtex.el

* lisp/textmodes/bibtex.el (bibtex-unify-case-convert): Clarify
docstring and remove leading asterisk.  Use defcustom :local tag.
---

diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el
index b69d715faa7..d53cfa0b1ff 100644
--- a/lisp/textmodes/bibtex.el
+++ b/lisp/textmodes/bibtex.el
@@ -88,16 +88,16 @@ If this is a function, call it to generate the initial field text."
                  (const :tag "Default" t))
   :risky t)
 
-(defcustom bibtex-unify-case-convert 'identity
-  "*Function called when unifying case on entry and field names.
-This variable is buffer-local."
+(defcustom bibtex-unify-case-convert #'identity
+  "Function called when unifying case on entry and field names.
+It is called with one argument, the entry or field name."
   :version "28.1"
   :type '(choice (const :tag "Same case as in `bibtex-field-alist'" identity)
 		 (const :tag "Downcase" downcase)
 		 (const :tag "Capitalize" capitalize)
 		 (const :tag "Upcase" upcase)
-		 (function :tag "Conversion function")))
-(make-variable-buffer-local 'bibtex-unify-case-convert)
+                 (function :tag "Conversion function"))
+  :local t)
 
 (defcustom bibtex-user-optional-fields
   '(("annote" "Personal annotation (ignored)"))