comparison lisp/files.el @ 70590:63b772bfba93

Move `safe-local-variable' declarations to the respective files.

70589:d09c5cf66b5c

  "*Non-nil means visit a file under its truename.
The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories."
  :type 'boolean
  :group 'find-file)

(defcustom revert-without-query nil
  "*Specify which files should be reverted without query.
The value is a list of regular expressions.
If the file name matches one of these regular expressions,

  :type '(choice (const :tag "Never" never)
		 (const :tag "If existing" nil)
		 (other :tag "Always" t))
  :group 'backup
  :group 'vc)

(defcustom dired-kept-versions 2
  "*When cleaning directory, number of versions to keep."
  :type 'integer
  :group 'backup

(defcustom kept-old-versions 2
  "*Number of oldest versions to keep when a new numbered backup is made."
  :type 'integer
  :group 'backup)

(defcustom kept-new-versions 2
  "*Number of newest versions to keep when a new numbered backup is made.
Includes the new backup.  Must be > 0"
  :type 'integer
  :group 'backup)

(defcustom require-final-newline nil
  "*Whether to add a newline automatically at the end of the file.

A value of t means do this only when the file is about to be saved.

;; For variables defined in the C source code the declaration should go here:

;; FIXME: Some variables should be moved according to the rules above.
(mapc (lambda (pair)
	(put (car pair) 'safe-local-variable (cdr pair)))
      '((byte-compile-dynamic            . booleanp)
	(byte-compile-dynamic-docstrings . booleanp)
	(byte-compile-warnings           . booleanp)
	(c-basic-offset                  . integerp)
	(c-file-style                    . stringp)
	(c-indent-level                  . integerp)
	(comment-column                  . integerp)
	(compile-command                 . string-or-null-p)
	(find-file-visit-truename        . booleanp)
	(fill-column                     . integerp)
	(fill-prefix                     . string-or-null-p)
	(indent-tabs-mode                . booleanp) ;; C source code
	(kept-old-versions               . integerp)
	(kept-new-versions               . integerp)
	(left-margin                     . integerp)
	(no-byte-compile                 . booleanp)
	(no-update-autoloads             . booleanp)
	(outline-regexp                  . string-or-null-p)
	(tab-width                       . integerp) ;; C source code
	(truncate-lines                  . booleanp) ;; C source code
	(version-control                 . symbolp)))

(put 'c-set-style 'safe-local-eval-function t)

(defun hack-local-variables-confirm (vars unsafe-vars risky-vars)
  (if noninteractive

70590:63b772bfba93

  "*Non-nil means visit a file under its truename.
The truename of a file is found by chasing all links
both at the file level and at the levels of the containing directories."
  :type 'boolean
  :group 'find-file)
(put 'find-file-visit-truename 'safe-local-variable 'boolean)

(defcustom revert-without-query nil
  "*Specify which files should be reverted without query.
The value is a list of regular expressions.
If the file name matches one of these regular expressions,

  :type '(choice (const :tag "Never" never)
		 (const :tag "If existing" nil)
		 (other :tag "Always" t))
  :group 'backup
  :group 'vc)
(put 'version-control 'safe-local-variable 'symbolp)

(defcustom dired-kept-versions 2
  "*When cleaning directory, number of versions to keep."
  :type 'integer
  :group 'backup

(defcustom kept-old-versions 2
  "*Number of oldest versions to keep when a new numbered backup is made."
  :type 'integer
  :group 'backup)
(put 'kept-old-versions 'safe-local-variable 'integerp)

(defcustom kept-new-versions 2
  "*Number of newest versions to keep when a new numbered backup is made.
Includes the new backup.  Must be > 0"
  :type 'integer
  :group 'backup)
(put 'kept-new-versions 'safe-local-variable 'integerp)

(defcustom require-final-newline nil
  "*Whether to add a newline automatically at the end of the file.

A value of t means do this only when the file is about to be saved.

;; For variables defined in the C source code the declaration should go here:

;; FIXME: Some variables should be moved according to the rules above.
(mapc (lambda (pair)
	(put (car pair) 'safe-local-variable (cdr pair)))
      '((fill-column                     . integerp) ;; C source code
	(indent-tabs-mode                . booleanp) ;; C source code
	(left-margin                     . integerp) ;; C source code
	(no-update-autoloads             . booleanp)
	(tab-width                       . integerp) ;; C source code
	(truncate-lines                  . booleanp));; C source code

(put 'c-set-style 'safe-local-eval-function t)

(defun hack-local-variables-confirm (vars unsafe-vars risky-vars)
  (if noninteractive