From 5a9cfbd7fd9f9df968201509fb432bd5369dd9b8 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sat, 25 Apr 2026 09:56:25 -0400 Subject: [PATCH] (Info-documentlanguage): Keep Info-related code in `info.el` * lisp/simple.el (Info-documentlanguage): Move from here... * lisp/info.el (Info-documentlanguage): ...to here. --- lisp/info.el | 8 ++++++++ lisp/simple.el | 8 -------- 2 files changed, 8 insertions(+), 8 deletions(-) diff --git a/lisp/info.el b/lisp/info.el index 320ac7de65c..960e0d51eb4 100644 --- a/lisp/info.el +++ b/lisp/info.el @@ -74,6 +74,14 @@ to the user." The Lisp code is executed when the node is selected.") (put 'Info-enable-active-nodes 'risky-local-variable t) +(defvar-local Info-documentlanguage nil + "Document language as set by the Texinfo source. +Currently, this is not used.") +;; Autoload to avoid annoying prompts when visiting Info files as normal +;; files. Texinfo 7.3 puts this variable into Info files it produces. +;;;###autoload +(put 'Info-documentlanguage 'safe-local-variable #'symbolp) + (defface info-node '((((class color) (background light)) :foreground "brown" :weight bold :slant italic) (((class color) (background dark)) :foreground "white" :weight bold :slant italic) diff --git a/lisp/simple.el b/lisp/simple.el index 2b2380165f6..441f7ff3440 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -11700,14 +11700,6 @@ seconds." (setq undo-auto-current-boundary-timer (run-at-time 5 nil #'undo-auto--boundary-timer))))))) - -(defvar-local Info-documentlanguage nil - "Document language as set by the Texinfo source. -Currently, this is not used.") -;; This is to avoid annoying prompts when visiting Info files as normal -;; files. Texinfo 7.3 puts this variable into Info files it produces. -(put 'Info-documentlanguage 'safe-local-variable 'symbolp) - (provide 'simple) ;;; simple.el ends here