Show
Ignore:
Timestamp:
09/30/06 09:12:06 (2 years ago)
Author:
miyoshi
Message:

Sync up with Emacs CVS HEAD.

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/lisp

    • Property svn:ignore changed from
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
       to
      *.elc
      MANIFEST
      Makefile
      Makefile.unix
      makefile
      elc.tar.gz
      cus-load.el
      finder-inf.el
      subdirs.el
      loaddefs.el
      pre-mh-loaddefs.el-CMD

  • trunk/lisp/dired.el

    r4161 r4169  
    22052205      (goto-char (point-min)) 
    22062206      (setq dired-subdir-alist nil) 
    2207       (while (and (re-search-forward dired-subdir-regexp nil t) 
    2208                  ;; Avoid taking a file name ending in a colon 
    2209                  ;; as a subdir name. 
    2210                  (not (save-excursion 
    2211                         (goto-char (match-beginning 0)) 
    2212                         (beginning-of-line) 
    2213                         (forward-char 2) 
    2214                         (save-match-data (looking-at dired-re-perms))))) 
    2215         (save-excursion 
    2216           (goto-char (match-beginning 1)) 
    2217           (setq new-dir-name 
    2218                 (buffer-substring-no-properties (point) (match-end 1)) 
    2219                 new-dir-name 
    2220                 (save-match-data 
    2221                   (if (and R-ftp-base-dir-regex 
    2222                            (not (string= new-dir-name default-directory)) 
    2223                            (string-match R-ftp-base-dir-regex new-dir-name)) 
    2224                       (concat default-directory 
    2225                               (substring new-dir-name (match-end 0))) 
    2226                     (expand-file-name new-dir-name)))) 
    2227           (delete-region (point) (match-end 1)) 
    2228           (insert new-dir-name)) 
     2207      (while (re-search-forward dired-subdir-regexp nil t) 
     2208        ;; Avoid taking a file name ending in a colon 
     2209        ;; as a subdir name. 
     2210        (unless (save-excursion 
     2211                (goto-char (match-beginning 0)) 
     2212                (beginning-of-line) 
     2213                (forward-char 2) 
     2214                  (save-match-data (looking-at dired-re-perms))) 
     2215          (save-excursion 
     2216            (goto-char (match-beginning 1)) 
     2217            (setq new-dir-name 
     2218                  (buffer-substring-no-properties (point) (match-end 1)) 
     2219                  new-dir-name 
     2220                  (save-match-data 
     2221                    (if (and R-ftp-base-dir-regex 
     2222                             (not (string= new-dir-name default-directory)) 
     2223                             (string-match R-ftp-base-dir-regex new-dir-name)) 
     2224                       (concat default-directory 
     2225                               (substring new-dir-name (match-end 0))) 
     2226                      (expand-file-name new-dir-name)))) 
     2227            (delete-region (point) (match-end 1)) 
     2228            (insert new-dir-name))) 
    22292229        (setq count (1+ count)) 
    22302230        (dired-alist-add-1 new-dir-name 
    2231                            ;; Place a sub directory boundary between lines. 
    2232                            (save-excursion 
    2233                              (goto-char (match-beginning 0)) 
    2234                              (beginning-of-line) 
    2235                              (point-marker)))) 
     2231                         ;; Place a sub directory boundary between lines. 
     2232                         (save-excursion 
     2233                           (goto-char (match-beginning 0)) 
     2234                           (beginning-of-line) 
     2235                           (point-marker)))) 
    22362236      (if (and (> count 1) (interactive-p)) 
    2237           (message "Buffer includes %d directories" count)) 
    2238       ;; We don't need to sort it because it is in buffer order per 
    2239       ;; constructionem.  Return new alist: 
    2240       dired-subdir-alist))) 
     2237          (message "Buffer includes %d directories" count))) 
     2238    ;; We don't need to sort it because it is in buffer order per 
     2239    ;; constructionem.  Return new alist: 
     2240    dired-subdir-alist)) 
    22412241 
    22422242(defun dired-alist-add-1 (dir new-marker)