Changeset 3356

Show
Ignore:
Timestamp:
2004年07月16日 23時20分14秒 (4 years ago)
Author:
fujii
Message:

* emacs-lisp/bytecomp.el (byte-recompile-directory): Sync up with
Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/2.1/lisp/ChangeLog.Meadow

    r3348 r3356  
     12004-07-16  Masayuki Fujii  <boochang@m4.kcn.ne.jp> 
     2 
     3        * emacs-lisp/bytecomp.el (byte-recompile-directory): Sync up with 
     4        Emacs CVS HEAD. 
     5 
    162004-07-15  MIYOSHI Masanori  <miyoshi@meadowy.org> 
    27 

  • branches/2.1/lisp/emacs-lisp/bytecomp.el

    r3212 r3356  
    12951295           (dolist (file files) 
    12961296             (setq source (expand-file-name file directory)) 
    1297              (if (and (not (member file '("." ".." "RCS" "CVS"))) 
     1297             (if (and (not (member file '("RCS" "CVS"))) 
     1298                      (not (eq ?\. (aref file 0))) 
    12981299                      (file-directory-p source) 
    12991300                      (not (file-symlink-p source))) 
    1300             ;; This file is a subdirectory.  Handle them differently. 
     1301                ;; This file is a subdirectory.  Handle them differently. 
    13011302                 (when (or (null arg) 
    13021303                           (eq 0 arg) 
    …… 
    13041305                   (setq directories 
    13051306                         (nconc directories (list source)))) 
    1306              ;; It is an ordinary file.  Decide whether to compile it. 
     1307               ;; It is an ordinary file.  Decide whether to compile it. 
    13071308               (if (and (string-match emacs-lisp-file-regexp source) 
    13081309                        (file-readable-p source)