comparison lisp/vc.el @ 21560:9e3de167472c

(vc-dired-mode): Redefine dired-move-to-filename-regexp locally. (vc-dired-reformat-line): Streamlined. Should handle all sorts of date formats now.

21559:275fad04745d

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.221 1998/04/14 12:38:25 spiegel Exp $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

the file named in the current Dired buffer line.  `vv' invokes
`vc-next-action' on this file, or on all files currently marked.
There is a special command, `*l', to mark all files currently locked."
  (make-local-hook 'dired-after-readin-hook)
  (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t)
  (setq vc-dired-mode t))

(define-key vc-dired-mode-map "\C-xv" vc-prefix-map)
(define-key vc-dired-mode-map "v" vc-prefix-map)
(define-key vc-dired-mode-map "=" 'vc-diff)

                    ((eq cvs-state 'locally-added)       "added"))
            (vc-locking-user file))))
    (if state (concat "(" state ")"))))

(defun vc-dired-reformat-line (x)
  ;; Reformat a directory-listing line, plugging in version control info in
  ;; place of the user and group info.
  ;; This code, like dired, assumes UNIX -l format.
  (beginning-of-line)
  (let ((pos (point)) limit perm owner date-and-file)
    (end-of-line)
    (setq limit (point))
    (goto-char pos)
    (cond
     ((or
       (re-search-forward  ;; owner and group
"^\\(..[drwxlts-]+ \\) *[0-9]+ \\([^ ]+\\) +[^ ]+ +[0-9]+\\( [^ 0-9]+ [0-9 ][0-9] .*\\)"
	  limit t)       
       (re-search-forward  ;; only owner displayed
"^\\(..[drwxlts-]+ \\) *[0-9]+ \\([^ ]+\\) +[0-9]+\\( [^ 0-9]+ [0-9 ][0-9] .*\\)" 
	  limit t))
      (setq perm          (match-string 1)
	    owner         (match-string 2)
	    date-and-file (match-string 3)))
     ((re-search-forward  ;; OS/2 -l format, no links, owner, group
"^\\(..[drwxlts-]+ \\) *[0-9]+\\( [^ 0-9]+ [0-9 ][0-9] .*\\)"
         limit t)
      (setq perm          (match-string 1)
	    date-and-file (match-string 2))))
    (setq x (substring (concat x "          ") 0 10))
    (replace-match (concat perm x date-and-file))))

(defun vc-dired-hook ()
  ;; Called by dired after any portion of a vc-dired buffer has been read in.
  ;; Reformat the listing according to version control.
  (message "Getting version information... ")

21560:9e3de167472c

;; Copyright (C) 1992, 93, 94, 95, 96, 97, 1998 Free Software Foundation, Inc.

;; Author:     Eric S. Raymond <[e-mail]>
;; Maintainer: Andre Spiegel <[e-mail]>

;; $Id: vc.el,v 1.222 1998/04/15 09:48:04 schwab Exp spiegel $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

the file named in the current Dired buffer line.  `vv' invokes
`vc-next-action' on this file, or on all files currently marked.
There is a special command, `*l', to mark all files currently locked."
  (make-local-hook 'dired-after-readin-hook)
  (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t)
  ;; The following is slightly modified from dired.el,
  ;; because file lines look a bit different in vc-dired-mode.
  (set (make-local-variable 'dired-move-to-filename-regexp)
       (let* 
          ((l "\\([A-Za-z]\\|[^\0-\177]\\)")
           ;; In some locales, month abbreviations are as short as 2 letters,
           ;; and they can be padded on the right with spaces.
           (month (concat l l "+ *"))
           ;; Recognize any non-ASCII character.  
           ;; The purpose is to match a Kanji character.
           (k "[^\0-\177]")
           ;; (k "[^\x00-\x7f\x80-\xff]")
           (s " ")
           (yyyy "[0-9][0-9][0-9][0-9]")
           (mm "[ 0-1][0-9]")
           (dd "[ 0-3][0-9]")
           (HH:MM "[ 0-2][0-9]:[0-5][0-9]")
           (western (concat "\\(" month s dd "\\|" dd s month "\\)"
                            s "\\(" HH:MM "\\|" s yyyy "\\)"))
           (japanese (concat mm k s dd k s "\\(" s HH:MM "\\|" yyyy k "\\)")))
         (concat s "\\(" western "\\|" japanese "\\)" s)))
  (setq vc-dired-mode t))

(define-key vc-dired-mode-map "\C-xv" vc-prefix-map)
(define-key vc-dired-mode-map "v" vc-prefix-map)
(define-key vc-dired-mode-map "=" 'vc-diff)

                    ((eq cvs-state 'locally-added)       "added"))
            (vc-locking-user file))))
    (if state (concat "(" state ")"))))

(defun vc-dired-reformat-line (x)
  ;; Reformat a directory-listing line, replacing various columns with 
  ;; version control information.
  ;; This code, like dired, assumes UNIX -l format.
  (beginning-of-line)
  (let ((pos (point)) limit perm date-and-file)
    (end-of-line)
    (setq limit (point))
    (goto-char pos)
    (when
        (or
         (re-search-forward  ;; owner and group
          "^\\(..[drwxlts-]+ \\) *[0-9]+ [^ ]+ +[^ ]+ +[0-9]+\\( .*\\)"
          limit t)       
         (re-search-forward  ;; only owner displayed
          "^\\(..[drwxlts-]+ \\) *[0-9]+ [^ ]+ +[0-9]+\\( .*\\)" 
	  limit t)
         (re-search-forward  ;; OS/2 -l format, no links, owner, group
          "^\\(..[drwxlts-]+ \\) *[0-9]+\\( .*\\)"
          limit t))
      (setq perm          (match-string 1)
	    date-and-file (match-string 2))
      (setq x (substring (concat x "          ") 0 10))
      (replace-match (concat perm x date-and-file)))))

(defun vc-dired-hook ()
  ;; Called by dired after any portion of a vc-dired buffer has been read in.
  ;; Reformat the listing according to version control.
  (message "Getting version information... ")