Show
Ignore:
Timestamp:
05/18/06 16:19:18 (3 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp/emacs-lisp/bytecomp.el

    r4079 r4085  
    358358                      (const obsolete) (const noruntime) 
    359359                      (const cl-functions) (const interactive-only)))) 
    360 ;;;###autoload(put 'byte-compile-warnings 'safe-local-variable 'booleanp) 
     360(put 'byte-compile-warnings 'safe-local-variable 'byte-compile-warnings-safe-p) 
     361;;;###autoload 
     362(defun byte-compile-warnings-safe-p (x) 
     363  (or (booleanp x) 
     364      (and (listp x) 
     365           (equal (mapcar 
     366                   (lambda (e) 
     367                     (when (memq e '(free-vars unresolved 
     368                                     callargs redefine 
     369                                     obsolete noruntime 
     370                                     cl-functions interactive-only)) 
     371                       e)) 
     372                   x) 
     373                  x)))) 
    361374 
    362375(defvar byte-compile-interactive-only-functions