From 2e01bd32db406b682aa99a0aa263e52d6249a9ab Mon Sep 17 00:00:00 2001 From: Visuwesh Date: Mon, 7 Apr 2025 15:16:38 +0530 Subject: [PATCH] Limit fontification of "customize" in setopt suggestion * lisp/help-fns.el (help-fns--customize-variable): Limit the fontification to newly inserted text to avoid spurious fontification of other instances of the word "customize." (cherry picked from commit bf7bcbaa3decf976e9409fe9d3fe183a6e8d6920) --- lisp/help-fns.el | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/help-fns.el b/lisp/help-fns.el index 0eade146ac4..0fd58594289 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -1648,7 +1648,9 @@ This cancels value editing without updating the value." ;; Make a link to customize if this variable can be customized. (when (custom-variable-p variable) (let ((customize-label "customize") - (custom-set (get variable 'custom-set))) + (custom-set (get variable 'custom-set)) + (opoint (with-current-buffer standard-output + (point)))) (princ (concat " You can " customize-label (or text " this variable."))) (when (and custom-set ;; Don't override manually written documentation. @@ -1665,7 +1667,7 @@ This cancels value editing without updating the value." ".")))) (with-current-buffer standard-output (save-excursion - (while (re-search-backward (concat "\\(" customize-label "\\)") nil t) + (while (re-search-backward (concat "\\(" customize-label "\\)") opoint t) (help-xref-button 1 'help-customize-variable variable)))) (terpri)))) -- 2.39.5