comparison lisp/files.el @ 83516:1321f6cfb389

Merged from [e-mail] Patches applied: * [e-mail]/emacs--devo--0--patch-266 Update from CVS * [e-mail]/emacs--devo--0--patch-267 Update from CVS * [e-mail]/emacs--devo--0--patch-268 Update from CVS * [e-mail]/emacs--devo--0--patch-269 Update from CVS * [e-mail]/emacs--devo--0--patch-270 Update from CVS * [e-mail]/emacs--devo--0--patch-271 Rename "field-at-point" to "field-at-pos" * [e-mail]/emacs--devo--0--patch-272 (comint-insert-input): Remove redundant calls to setq and goto-char git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-556

83515:f7a396df2380

;; minor mode file may not be loaded yet.
;;
;; For variables defined in the C source code the declaration should go here:

;; FIXME: Some variables should be moved according to the rules above.
(let ((string-or-null (lambda (a) (or (stringp a) (null a)))))
  (eval
   `(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

non-nil if the buffer is going to be reverted without asking the
user.  In such situations, one has to be careful with potentially
time consuming operations.

For more information on how this variable is used by Auto Revert mode,
see Info node `(emacs-xtra)Supporting additional buffers'.")

(defvar before-revert-hook nil
  "Normal hook for `revert-buffer' to run before reverting.
If `revert-buffer-function' is used to override the normal revert
mechanism, this hook is not used.")

83516:1321f6cfb389

;; minor mode file may not be loaded yet.
;;
;; 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

non-nil if the buffer is going to be reverted without asking the
user.  In such situations, one has to be careful with potentially
time consuming operations.

For more information on how this variable is used by Auto Revert mode,
see Info node `(emacs)Supporting additional buffers'.")

(defvar before-revert-hook nil
  "Normal hook for `revert-buffer' to run before reverting.
If `revert-buffer-function' is used to override the normal revert
mechanism, this hook is not used.")