Mercurial > emacs
comparison lisp/vc.el @ 66325:fda96ff4c7e5
* files.el (directory-listing-before-filename-regexp): New
defvar. Replaces `dired-move-to-filename-regexp' from dired.el.
* dired.el (dired-move-to-filename-regexp): Removed. All
occurences replaced by `directory-listing-before-filename-regexp'.
* dired-x.el, locate.el, vc.el: Replace
`dired-move-to-filename-regexp' by
`directory-listing-before-filename-regexp'. In vc.el it is
overwritten locally; maybe this can be handled in files.el too.
* net/ange-ftp.el (ange-ftp-date-regexp): Removed. All occurences
replaced by `directory-listing-before-filename-regexp'.
* faq.texi (Bugs and problems): Replace
`dired-move-to-filename-regexp' by
`directory-listing-before-filename-regexp'.
author | Michael Albinus <michael.albinus@gmx.de> |
---|---|
date | Sun, 23 Oct 2005 12:17:28 +0000 |
parents | 96187e7edd1b |
children | 3dcbac116732 |
comparison
equal
deleted
inserted
replaced
66324:3ef412c92565 | 66325:fda96ff4c7e5 |
---|---|
2059 ;; define-derived-mode does it for us in Emacs-21, but not in Emacs-20. | 2059 ;; define-derived-mode does it for us in Emacs-21, but not in Emacs-20. |
2060 ;; We do it here because dired might not be loaded yet | 2060 ;; We do it here because dired might not be loaded yet |
2061 ;; when vc-dired-mode-map is initialized. | 2061 ;; when vc-dired-mode-map is initialized. |
2062 (set-keymap-parent vc-dired-mode-map dired-mode-map) | 2062 (set-keymap-parent vc-dired-mode-map dired-mode-map) |
2063 (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) | 2063 (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t) |
2064 ;; The following is slightly modified from dired.el, | 2064 ;; The following is slightly modified from files.el, |
2065 ;; because file lines look a bit different in vc-dired-mode | 2065 ;; because file lines look a bit different in vc-dired-mode |
2066 ;; (the column before the date does not end in a digit). | 2066 ;; (the column before the date does not end in a digit). |
2067 (set (make-local-variable 'dired-move-to-filename-regexp) | 2067 (set (make-local-variable 'directory-listing-before-filename-regexp) |
2068 (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") | 2068 (let* ((l "\\([A-Za-z]\\|[^\0-\177]\\)") |
2069 ;; In some locales, month abbreviations are as short as 2 letters, | 2069 ;; In some locales, month abbreviations are as short as 2 letters, |
2070 ;; and they can be followed by ".". | 2070 ;; and they can be followed by ".". |
2071 (month (concat l l "+\\.?")) | 2071 (month (concat l l "+\\.?")) |
2072 (s " ") | 2072 (s " ") |