summaryrefslogtreecommitdiff
path: root/lisp/textmodes/sgml-mode.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-07-11 10:33:45 +0200
committerStefan Kangas <stefan@marxist.se>2022-07-11 11:30:00 +0200
commitda3f3dd0910fae20df47e723088d737aaf0a88c7 (patch)
tree340a2e62c6ba4449ad428cf31a8cfb8f541c852e /lisp/textmodes/sgml-mode.el
parent69b68099ecfb053ac77e0a954ab7467c440321ff (diff)
downloademacs-da3f3dd0910fae20df47e723088d737aaf0a88c7.tar.gz
Prefer :risky defcustom keyword
* lisp/align.el (align-region-separate, align-rules-list) (align-exclude-rules-list, align-vhdl-rules-list): * lisp/bindings.el (mode-line-percent-position): * lisp/filesets.el (filesets-menu-cache-file, filesets-commands) (filesets-external-viewers, filesets-ingroup-patterns) (filesets-data): * lisp/hi-lock.el (hi-lock-file-patterns-policy): * lisp/mail/mailalias.el (mail-complete-alist) (mail-directory-process, mail-directory-stream) (mail-directory-parser): * lisp/mail/rmail.el (rmail-confirm-expunge): * lisp/mail/sendmail.el (mail-signature): * lisp/mail/supercite.el (sc-cite-frame-alist) (sc-uncite-frame-alist, sc-recite-frame-alist) (sc-default-cite-frame, sc-default-uncite-frame) (sc-default-recite-frame, sc-attrib-selection-list) (sc-rewrite-header-list): * lisp/progmodes/make-mode.el (makefile-special-targets-list): * lisp/so-long.el (so-long-action-alist): * lisp/textmodes/sgml-mode.el (sgml-tag-alist): Prefer defcustom :risky keyword argument to directly setting the 'risky-local-variable' symbol property.
Diffstat (limited to 'lisp/textmodes/sgml-mode.el')
-rw-r--r--lisp/textmodes/sgml-mode.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el
index 13ff3dcab6a..8f9b603ef5f 100644
--- a/lisp/textmodes/sgml-mode.el
+++ b/lisp/textmodes/sgml-mode.el
@@ -480,8 +480,8 @@ The attribute alist is made up as
ATTRIBUTERULE is a list of optionally t (no value when no input) followed by
an optional alist of possible values."
:type '(repeat (cons (string :tag "Tag Name")
- (repeat :tag "Tag Rule" sexp))))
-(put 'sgml-tag-alist 'risky-local-variable t)
+ (repeat :tag "Tag Rule" sexp)))
+ :risky t)
(defcustom sgml-tag-help
'(("!" . "Empty declaration for comment")