From a776cae4fcd34987e30b6eab3df45bd2ae66fbd9 Mon Sep 17 00:00:00 2001 From: Teemu Likonen Date: Sat, 14 Nov 2020 22:53:18 +0200 Subject: [PATCH] Make `bibtex-contline-indentation' work as file local variable * lisp/textmodes/bibtex.el (bibtex-mode): Don't make fill-prefix a buffer local variable. It would use the global value, not possible file local variable. * lisp/textmodes/bibtex.el (bibtex-fill-field-bounds): Let-bind fill-prefix variable locally (and dynamically) for use with filling bibtex fields. The variable is initialized every time by using the current value of bibtex-contline-indentation variable. --- lisp/textmodes/bibtex.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/lisp/textmodes/bibtex.el b/lisp/textmodes/bibtex.el index fcf63ed5ec..151dca6fab 100644 --- a/lisp/textmodes/bibtex.el +++ b/lisp/textmodes/bibtex.el @@ -3442,8 +3442,6 @@ bibtex-mode (set (make-local-variable 'defun-prompt-regexp) "^[ \t]*@[[:alnum:]]+[ \t]*") (set (make-local-variable 'outline-regexp) "[ \t]*@") (set (make-local-variable 'fill-paragraph-function) #'bibtex-fill-field) - (set (make-local-variable 'fill-prefix) - (make-string (+ bibtex-entry-offset bibtex-contline-indentation) ?\s)) (set (make-local-variable 'font-lock-defaults) '(bibtex-font-lock-keywords nil t ((?$ . "\"") @@ -4902,7 +4900,10 @@ bibtex-fill-field-bounds "Fill BibTeX field delimited by BOUNDS. If JUSTIFY is non-nil justify as well. If optional arg MOVE is non-nil move point to end of field." - (let ((end-field (copy-marker (bibtex-end-of-field bounds)))) + (let ((end-field (copy-marker (bibtex-end-of-field bounds))) + (fill-prefix (make-string (+ bibtex-entry-offset + bibtex-contline-indentation) + ?\s))) (if (not justify) (goto-char (bibtex-start-of-text-in-field bounds)) (goto-char (bibtex-start-of-field bounds)) -- 2.20.1