From 3ff538058a5f3029907a15aefcf6c76c2b8d2887 Mon Sep 17 00:00:00 2001 From: Dmitry Gutov Date: Sun, 6 Oct 2024 16:30:40 +0300 Subject: [PATCH] help-setup-xref: Simplify further * lisp/help-mode.el (help-setup-xref): Simplify, given that the vars are marked 'permanent-local' already (bug#73637). (cherry picked from commit 61c91389a4da90645562a8b80858e62b7526cdd6) --- lisp/help-mode.el | 22 +++++++++------------- 1 file changed, 9 insertions(+), 13 deletions(-) diff --git a/lisp/help-mode.el b/lisp/help-mode.el index ec69a392a96..ff32af9f344 100644 --- a/lisp/help-mode.el +++ b/lisp/help-mode.el @@ -510,19 +510,15 @@ This should be called very early, before the output buffer is cleared, because we want to record the \"previous\" position of point so we can restore it properly when going back." (with-current-buffer (help-buffer) - (let ((stack-item help-xref-stack-item) - (stack help-xref-stack)) - (kill-all-local-variables) - (setq help-xref-stack-item stack-item - help-xref-stack stack) - (when help-xref-stack-item - (push (cons (point) help-xref-stack-item) help-xref-stack) - (setq help-xref-forward-stack nil)) - (when interactive-p - (let ((tail (nthcdr 10 help-xref-stack))) - ;; Truncate the stack. - (if tail (setcdr tail nil)))) - (setq help-xref-stack-item item)))) + (kill-all-local-variables) + (when help-xref-stack-item + (push (cons (point) help-xref-stack-item) help-xref-stack) + (setq help-xref-forward-stack nil)) + (when interactive-p + (let ((tail (nthcdr 10 help-xref-stack))) + ;; Truncate the stack. + (if tail (setcdr tail nil)))) + (setq help-xref-stack-item item))) (defvar help-xref-following nil "Non-nil when following a help cross-reference.") -- 2.39.5