Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-06-14 04:21:24 +00:00
Code Issues Projects Releases Packages Wiki Activity

(Info-documentlanguage): Keep Info-related code in info.el

Browse source 
* lisp/simple.el (Info-documentlanguage): Move from here...
* lisp/info.el (Info-documentlanguage): ...to here.
This commit is contained in:
Stefan Monnier 2026-04-25 09:56:25 -04:00
parent 700768cd1d
commit 5a9cfbd7fd
2 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/info.el
View file

@ -74,6 +74,14 @@ to the user."
The Lisp code is executed when the node is selected.") The Lisp code is executed when the node is selected.")
(put 'Info-enable-active-nodes 'risky-local-variable t) (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 (defface info-node
'((((class color) (background light)) :foreground "brown" :weight bold :slant italic) '((((class color) (background light)) :foreground "brown" :weight bold :slant italic)
(((class color) (background dark)) :foreground "white" :weight bold :slant italic) (((class color) (background dark)) :foreground "white" :weight bold :slant italic)

8
lisp/simple.el
View file

@ -11700,14 +11700,6 @@ seconds."
(setq undo-auto-current-boundary-timer (setq undo-auto-current-boundary-timer
(run-at-time 5 nil #'undo-auto--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) (provide 'simple)
;;; simple.el ends here ;;; simple.el ends here