sgml-mode: Only set sgml-xml-mode if guessed to be an XML file

* lisp/textmodes/sgml-mode.el (sgml-mode): Don't override
sgml-xml-mode if the result of the guess is used as the buffer local
value.  (Bug#47877)
This commit is contained in:
Philip K 2021-04-14 19:19:01 +02:00 committed by Stefan Kangas
parent e2464c534e
commit 3e727cf20b

View file

@ -623,7 +623,8 @@ Do \\[describe-key] on the following bindings to discover what they do.
(setq-local syntax-propertize-function #'sgml-syntax-propertize)
(setq-local syntax-ppss-table sgml-tag-syntax-table)
(setq-local facemenu-add-face-function 'sgml-mode-facemenu-add-face-function)
(setq-local sgml-xml-mode (sgml-xml-guess))
(when (sgml-xml-guess)
(setq-local sgml-xml-mode t))
(unless sgml-xml-mode
(setq-local skeleton-transformation-function sgml-transformation-function))
;; This will allow existing comments within declarations to be