Show
Ignore:
Timestamp:
05/13/06 11:31:18 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/files.el

    r4073 r4079  
    163163  :type 'boolean 
    164164  :group 'find-file) 
     165(put 'find-file-visit-truename 'safe-local-variable 'boolean) 
    165166 
    166167(defcustom revert-without-query nil 
    …… 
    250251  :group 'backup 
    251252  :group 'vc) 
     253(put 'version-control 'safe-local-variable 
     254     '(lambda (x) (or (booleanp x) (equal x 'never)))) 
    252255 
    253256(defcustom dired-kept-versions 2 
    …… 
    269272  :type 'integer 
    270273  :group 'backup) 
     274(put 'kept-old-versions 'safe-local-variable 'integerp) 
    271275 
    272276(defcustom kept-new-versions 2 
    …… 
    275279  :type 'integer 
    276280  :group 'backup) 
     281(put 'kept-new-versions 'safe-local-variable 'integerp) 
    277282 
    278283(defcustom require-final-newline nil 
    …… 
    23502355 
    23512356;; FIXME: Some variables should be moved according to the rules above. 
    2352 (let ((string-or-null (lambda (a) (or (stringp a) (null a))))) 
    2353   (eval 
    2354    `(mapc (lambda (pair) 
    2355             (put (car pair) 'safe-local-variable (cdr pair))) 
    2356           '((byte-compile-dynamic . booleanp) 
    2357             (byte-compile-dynamic-docstrings . booleanp) 
    2358             (byte-compile-warnings . booleanp) 
    2359             (c-basic-offset     .  integerp) 
    2360             (c-file-style       .  stringp) 
    2361             (c-indent-level     .  integerp) 
    2362             (comment-column     .  integerp) 
    2363             (compile-command    .  string-or-null-p) 
    2364             (find-file-visit-truename . booleanp) 
    2365             (fill-column        .  integerp) 
    2366             (fill-prefix        .  string-or-null-p) 
    2367             (indent-tabs-mode   .  booleanp) ;; C source code 
    2368             (kept-old-versions  .  integerp) 
    2369             (kept-new-versions  .  integerp) 
    2370             (left-margin        .  integerp) 
    2371             (no-byte-compile    .  booleanp) 
    2372             (no-update-autoloads . booleanp) 
    2373             (outline-regexp     .  string-or-null-p) 
    2374             (tab-width          .  integerp) ;; C source code 
    2375             (truncate-lines     .  booleanp) ;; C source code 
    2376             (version-control    .  symbolp))))) 
     2357(mapc (lambda (pair) 
     2358        (put (car pair) 'safe-local-variable (cdr pair))) 
     2359      '((fill-column                     . integerp) ;; C source code 
     2360        (indent-tabs-mode                . booleanp) ;; C source code 
     2361        (left-margin                     . integerp) ;; C source code 
     2362        (no-update-autoloads             . booleanp) 
     2363        (tab-width                       . integerp) ;; C source code 
     2364        (truncate-lines                  . booleanp))) ;; C source code 
    23772365 
    23782366(put 'c-set-style 'safe-local-eval-function t) 
    …… 
    39323920 
    39333921For more information on how this variable is used by Auto Revert mode, 
    3934 see Info node `(emacs-xtra)Supporting additional buffers'.") 
     3922see Info node `(emacs)Supporting additional buffers'.") 
    39353923 
    39363924(defvar before-revert-hook nil