Lines Matching +refs:dired +refs:mark +refs:files +refs:regexp
73 ;; vc's back is turned, or move/rename master files while vc is running,
128 ;; of all files in DIR in a fast way. The function should not return
129 ;; anything, but rather store the files' states into the corresponding
164 ;; - dired-state-info (file)
167 ;; used in a vc-dired buffer. The default implementation deals well
189 ;; out what backend to use for registration of new files and for things
263 ;; locking is used for files under this backend, and if files can
299 ;; - update-changelog (files)
302 ;; all files at or below the default-directory if FILES is nil. The
320 ;; Insert the diff for all files at and below DIR into the *vc-diff*
366 ;; Take a snapshot of the current state of files under DIR and name it
367 ;; NAME. This should make sure that files are up-to-date before
381 ;; Retrieve a named snapshot of all registered files at or below DIR.
382 ;; If UPDATE is non-nil, then update buffers of any files in the
430 ;; Delete FILE and mark it as deleted in the repository. If this
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
545 "If non-nil, show only locked files in VC Dired."
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)))
911 (goto-char (process-mark p))
913 (set-marker (process-mark p) (point))))))
950 (goto-char (process-mark p))
1078 ;; Use mark-marker to avoid confusion in transient-mark-mode.
1079 (mark-context (if (eq (marker-buffer (mark-marker)) (current-buffer))
1080 (vc-position-context (mark-marker))))
1081 ;; Make the right thing happen in transient-mark-mode.
1082 (mark-active nil)
1109 (list point-context mark-context reparse)))
1112 "Restore point/mark, and reparse any affected compilation buffers.
1115 (mark-context (nth 1 context))
1138 ;; if necessary, restore point and mark
1142 (and mark-active
1143 mark-context
1144 (not (vc-context-matches-p (mark) mark-context))
1145 (let ((new-mark (vc-find-position-by-context mark-context)))
1146 (if new-mark (set-mark new-mark))))))
1149 "Revert buffer, keeping point and mark where user expects them.
1157 ;; and mark properly even in cases where vc-restore-buffer-context
1190 (if vc-dired-mode
1250 ;; For files with locking, if the file does not contain
1326 (defvar vc-dired-window-configuration)
1328 (defun vc-next-action-dired (file rev comment)
1329 "Call `vc-next-action-on-file' on all the marked files.
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
1352 files are marked, it will accept a log message and then operate on
1359 For RCS and SCCS files:
1375 For CVS files:
1388 (if vc-dired-mode
1389 (let ((files (dired-get-marked-files)))
1390 (set (make-local-variable 'vc-dired-window-configuration)
1396 files ""))
1397 (vc-next-action-dired nil nil "dummy")
1399 "Enter a change comment for the marked files."
1400 'vc-next-action-dired))
1420 itself responsible for the file (usually because other files in that
1454 (unless vc-make-backup-files
1505 The default implementation returns t for all files."
1520 ;; after RMS change to files.el of 1999-08-08. Investigate
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))
1749 versions of all registered files in or below it."
1837 If both revisions are available as local files, then it also does not
1901 "List differences for all registered files at and below DIR.
1906 ;; and to call it only for files that are actually changed.
2021 ;; save-excursion may be able to relocate point and mark
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"
2103 It works like Dired, but lists only files under version control, with
2113 `vc-next-action' on this file, or on all files currently marked.
2114 There is a special command, `*l', to mark all files currently locked."
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)
2120 ;; The following is slightly modified from files.el,
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 ()
2173 "Mark all files currently 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."
2214 ((setq subdir (dired-get-subdir))
2216 ;; of all files in this directory at once
2226 ((setq filename (dired-get-filename nil t))
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))
2264 (message "No files locked under %s" default-directory)))))
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
2305 ;; files won't vanish when they are checked in
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))))
2338 "Scan the tree below DIR, looking for files not up-to-date.
2341 If one or more of the files are currently visited, return `visited'.
2357 BRANCHP is given, the snapshot is made as a new branch and the files
2384 If locking is used for the files in DIR, then there must not be any
2385 locked files at or below DIR (but if NAME is empty, locked files are
2609 (and (not vc-make-backup-files) (delete-file backup-name))))))
2658 (norevert ;; clear version headers and mark the buffer modified
2660 (when (not vc-make-backup-files)
2667 (vc-dired-resynch-file file))
2781 (error "Unregistering files is not supported for %s" backend))
2793 ;; List of potential master files for `newfile'
2815 "Delete file and mark it as such in the version control system."
2823 (error "Deleting files under %s is not supported in VC" backend))
2825 (error "Please save files before deleting them"))
2829 (unless (or (file-directory-p file) (null make-backup-files))
2851 (error "Please save files before moving them"))
2858 (error "Please %s files before moving them"
2878 Normally, find log entries for all registered files in the default
2884 files that are under version control. This puts all the entries in the
2893 (let ((files nil)
2899 (setq files (cons file files)))
2901 files))
2904 ;; it should find all relevant files relative to
2908 (if (eq (string-match tramp-file-name-regexp file) 0)
2913 (defun vc-default-update-changelog (backend files)
2937 (push-mark)
2957 files)))
3401 ;; If FILE is nil, we were called from vc-dired.
3404 (dired-get-marked-files t)))))
3432 (directory-files dir)))))