emacs/lisp/vc.el

164 ;; - dired-state-info (file)
167 ;;   used in a vc-dired buffer.  The default implementation deals well
457   (require 'dired)      ; for dired-map-over-marks macro
458   (require 'dired-aux))	; for dired-kill-{line,tree}
532 (defcustom vc-dired-listing-switches "-al"
533   "Switches passed to `ls' for vc-dired.  MUST contain the `l' option."
538 (defcustom vc-dired-recurse t
544 (defcustom vc-dired-terse-display t
722 		       (regexp :tag "File Type")
756 ;; (either a file, or a VC dired buffer).
770 (defvar vc-dired-mode nil)
771 (make-variable-buffer-local 'vc-dired-mode)
894   (if vc-dired-mode
895       (set-buffer (find-file-noselect (dired-get-filename)))
1190       (if vc-dired-mode
1326 (defvar vc-dired-window-configuration)
1328 (defun vc-next-action-dired (file rev comment)
1331   (let ((dired-buffer (current-buffer)))
1332     (dired-map-over-marks
1333      (let ((file (dired-get-filename)))
1336        (set-buffer dired-buffer)
1337        (set-window-configuration vc-dired-window-configuration)
1340   (dired-move-to-filename))
1348 If you call this from within a VC dired buffer with no files marked,
1351 If you call this from within a VC dired buffer, and one or more
1388     (if vc-dired-mode
1389 	(let ((files (dired-get-marked-files)))
1390           (set (make-local-variable 'vc-dired-window-configuration)
1397 		(vc-next-action-dired nil nil "dummy")
1400 			      'vc-next-action-dired))
1541   (vc-dired-resynch-file file))
1686   ;; But not if it is a vc-dired buffer.
1688     (or vc-dired-mode (vc-buffer-sync)))
1717     (if vc-dired-mode
1718       (dired-move-to-filename))
2088 (defvar vc-dired-switches)
2089 (defvar vc-dired-terse-mode)
2091 (defvar vc-dired-mode-map
2097     (define-key vmap "t" 'vc-dired-toggle-terse-mode)
2100 (define-derived-mode vc-dired-mode dired-mode "Dired under VC"
2116   ;; We do it here because dired might not be loaded yet
2117   ;; when vc-dired-mode-map is initialized.
2118   (set-keymap-parent vc-dired-mode-map dired-mode-map)
2119   (add-hook 'dired-after-readin-hook 'vc-dired-hook nil t)
2121   ;; because file lines look a bit different in vc-dired-mode
2126   (set (make-local-variable 'directory-listing-before-filename-regexp)
2155   (and (boundp 'vc-dired-switches)
2156        vc-dired-switches
2157        (set (make-local-variable 'dired-actual-switches)
2158             vc-dired-switches))
2159   (set (make-local-variable 'vc-dired-terse-mode) vc-dired-terse-display)
2160   (setq vc-dired-mode t))
2162 (defun vc-dired-toggle-terse-mode ()
2165   (if (not vc-dired-mode)
2167     (setq vc-dired-terse-mode (not vc-dired-terse-mode))
2168     (if vc-dired-terse-mode
2169         (vc-dired-hook)
2172 (defun vc-dired-mark-locked ()
2175   (dired-mark-if (let ((f (dired-get-filename nil t)))
2181 (define-key vc-dired-mode-map "*l" 'vc-dired-mark-locked)
2183 (defun vc-default-dired-state-info (backend file)
2192 (defun vc-dired-reformat-line (vc-info)
2195 This code, like dired, assumes UNIX -l format."
2205 (defun vc-dired-hook ()
2207 Called by dired after any portion of a vc-dired buffer has been read in."
2209   (let (subdir filename (buffer-read-only nil))
2213        ;; subdir header line
2214        ((setq subdir (dired-get-subdir))
2217 	(let ((backend (vc-responsible-backend subdir)))
2219 	      (vc-call-backend backend 'dir-state subdir)))
2226        ((setq filename (dired-get-filename nil t))
2228          ;; subdir
2234               (dired-kill-tree filename)
2236               (dired-kill-line)))
2237            (vc-dired-terse-mode
2239             ;; dired-kill-line to remove it, because in recursive listings,
2244             (dired-kill-line))
2246             (vc-dired-reformat-line nil)
2250 	       (not (and vc-dired-terse-mode
2252           (vc-dired-reformat-line (vc-call dired-state-info filename))
2255           (dired-kill-line))))
2258     (vc-dired-purge))
2266 (defun vc-dired-purge ()
2269   (while (dired-get-subdir)
2271     (if (dired-get-filename nil t)
2272 	(if (not (dired-next-subdir 1 t))
2275       (if (not (string= (dired-current-directory) default-directory))
2276 	  (dired-do-kill-lines t "")
2281 	(if (not (dired-next-subdir 1 t))
2285 (defun vc-dired-buffers-for-dir (dir)
2286   "Return a list of all vc-dired buffers that currently display DIR."
2288     ;; Check whether dired is loaded.
2289     (when (fboundp 'dired-buffers-for-dir)
2292 		  (if vc-dired-mode
2294 	      (dired-buffers-for-dir dir)))
2297 (defun vc-dired-resynch-file (file)
2299   (let ((buffers (vc-dired-buffers-for-dir (file-name-directory file))))
2303 		  (if (dired-goto-file file)
2304 		      ;; bind vc-dired-terse-mode to nil so that
2306 		      (let ((vc-dired-terse-mode nil))
2307 			(dired-do-redisplay 1)))))
2317 `dired-listing-switches' when generating the listing."
2319   (let ((vc-dired-switches (concat vc-dired-listing-switches
2320                                    (if vc-dired-recurse "R" ""))))
2321     (if (eq (string-match tramp-file-name-regexp dir) 0)
2324         (setq vc-dired-switches
2326                            vc-dired-switches)))
2327     (require 'dired)
2328     (require 'dired-aux)
2330      (dired-internal-noselect (expand-file-name (file-name-as-directory dir))
2331                               vc-dired-switches
2332                               'vc-dired-mode))))
2667 	(vc-dired-resynch-file file))
2908     (if (eq (string-match tramp-file-name-regexp file) 0)
3401 	      ;; If FILE is nil, we were called from vc-dired.
3404 		  (dired-get-marked-files t)))))