2407 |
dangerous." |
dangerous." |
2408 |
(let ((safep (get sym 'safe-local-variable))) |
(let ((safep (get sym 'safe-local-variable))) |
2409 |
(or (get sym 'risky-local-variable) |
(or (get sym 'risky-local-variable) |
2410 |
(and (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-command$\\|-predicate$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$" |
(and (string-match "-hooks?$\\|-functions?$\\|-forms?$\\|-program$\\|-commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords-[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|-map$\\|-map-alist$" |
2411 |
(symbol-name sym)) |
(symbol-name sym)) |
2412 |
(not safep)) |
(not safep)) |
2413 |
;; If the safe-local-variable property isn't t or nil, |
;; If the safe-local-variable property isn't t or nil, |