From 5d9a67e4bd374a0f6741bc56a37190aa51062d69 Mon Sep 17 00:00:00 2001 From: Pengji Zhang Date: Sun, 23 Mar 2025 11:48:14 +0800 Subject: [PATCH] Move some RefTeX 'setq's to major mode definition Move two 'setq' expressions from the RefTeX label selection loop to the body of the major mode definition, so to make it easier to adjust the settings of the buffer via the mode hook. * lisp/textmodes/reftex-ref.el (reftex-offer-label-menu): Move two 'setq' expressions from here... * lisp/textmodes/reftex-sel.el (reftex-select-label-mode): ...to here. (bug#77335) --- lisp/textmodes/reftex-ref.el | 6 ------ lisp/textmodes/reftex-sel.el | 6 ++++++ 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/lisp/textmodes/reftex-ref.el b/lisp/textmodes/reftex-ref.el index f8bd3556018..7464268d1a7 100644 --- a/lisp/textmodes/reftex-ref.el +++ b/lisp/textmodes/reftex-ref.el @@ -574,12 +574,6 @@ When called with 2 \\[universal-argument] prefix args, disable magic word recogn (unless (eq major-mode 'reftex-select-label-mode) (reftex-select-label-mode)) (cl-pushnew (current-buffer) selection-buffers) - (setq truncate-lines t) - (setq mode-line-format - (list "---- " 'mode-line-buffer-identification - " " 'global-mode-string " (" mode-name ")" - " S<" 'reftex-refstyle ">" - " -%-")) (cond ((= 0 (buffer-size)) (let ((buffer-read-only nil)) diff --git a/lisp/textmodes/reftex-sel.el b/lisp/textmodes/reftex-sel.el index 45087e69de8..84170f710e0 100644 --- a/lisp/textmodes/reftex-sel.el +++ b/lisp/textmodes/reftex-sel.el @@ -98,6 +98,12 @@ During a selection process, these are the local bindings. \\{reftex-select-label-mode-map}" (setq-local reftex-select-marked nil) + (setq truncate-lines t) + (setq mode-line-format + (list "---- " 'mode-line-buffer-identification + " " 'global-mode-string " (" mode-name ")" + " S<" 'reftex-refstyle ">" + " -%-")) (when (syntax-table-p reftex-latex-syntax-table) (set-syntax-table reftex-latex-syntax-table)) ;; We do not set a local map - reftex-select-item does this.