comparison lisp/files.el @ 91085:880960b70474

Merge from emacs--devo--0 Revision: [e-mail]/emacs--unicode--0--patch-283

91084:a4347a111894

(define-obsolete-variable-alias 'write-contents-hooks
    'write-contents-functions "22.1")

(defcustom enable-local-variables t
  "Control use of local variables in files you visit.
The value can be t, nil, :safe, or something else.

A value of t means file local variables specifications are obeyed
if all the specified variable values are safe; if any values are
not safe, Emacs queries you, once, whether to set them all.
\(When you say yes to certain values, they are remembered as safe.)

     ("\\.te?xt\\'" . text-mode)
     ("\\.[tT]e[xX]\\'" . tex-mode)
     ("\\.ins\\'" . tex-mode)		;Installation files for TeX packages.
     ("\\.ltx\\'" . latex-mode)
     ("\\.dtx\\'" . doctex-mode)
     ("\\.el\\'" . emacs-lisp-mode)
     ("\\.\\(scm\\|stk\\|ss\\|sch\\)\\'" . scheme-mode)
     ("\\.l\\'" . lisp-mode)
     ("\\.li?sp\\'" . lisp-mode)
     ("\\.[fF]\\'" . fortran-mode)

		    (push elt unsafe-vars))))
	    (if (eq enable-local-variables :safe)
		;; If caller wants only the safe variables,
		;; install only them.
		(dolist (elt result)
		  (unless (or (memq (car elt) unsafe-vars)
			      (memq (car elt) risky-vars))
		    (hack-one-local-variable (car elt) (cdr elt))))
	      ;; Query, except in the case where all are known safe
	      ;; if the user wants no quuery in that case.
	      (if (or (and (eq enable-local-variables t)
			   (null unsafe-vars)

91085:880960b70474

(define-obsolete-variable-alias 'write-contents-hooks
    'write-contents-functions "22.1")

(defcustom enable-local-variables t
  "Control use of local variables in files you visit.
The value can be t, nil, :safe, :all, or something else.

A value of t means file local variables specifications are obeyed
if all the specified variable values are safe; if any values are
not safe, Emacs queries you, once, whether to set them all.
\(When you say yes to certain values, they are remembered as safe.)

     ("\\.te?xt\\'" . text-mode)
     ("\\.[tT]e[xX]\\'" . tex-mode)
     ("\\.ins\\'" . tex-mode)		;Installation files for TeX packages.
     ("\\.ltx\\'" . latex-mode)
     ("\\.dtx\\'" . doctex-mode)
     ("\\.org\\'" . org-mode)
     ("\\.el\\'" . emacs-lisp-mode)
     ("\\.\\(scm\\|stk\\|ss\\|sch\\)\\'" . scheme-mode)
     ("\\.l\\'" . lisp-mode)
     ("\\.li?sp\\'" . lisp-mode)
     ("\\.[fF]\\'" . fortran-mode)

		    (push elt unsafe-vars))))
	    (if (eq enable-local-variables :safe)
		;; If caller wants only the safe variables,
		;; install only them.
		(dolist (elt result)
		  (unless (or (member elt unsafe-vars)
			      (member elt risky-vars))
		    (hack-one-local-variable (car elt) (cdr elt))))
	      ;; Query, except in the case where all are known safe
	      ;; if the user wants no quuery in that case.
	      (if (or (and (eq enable-local-variables t)
			   (null unsafe-vars)