mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

Fix bugs in vc-dir-mark-unmark and vc-dir-mark-all-files.

Browse Source 
* lisp/vc/vc-dir.el (vc-dir-parent-marked-p, vc-dir-children-marked-p):
Don't signal an error in a predicate function; return non-nil.
(vc-dir-mark-file): Move the error here.
(vc-dir-mark-unmark): If acting on the region, keep going if one
of the entries cannot be marked/unmarked.
(vc-dir-mark-all-files): If current entry is a directory, mark
only child files, as documented.
This commit is contained in:
Chong Yidong 2011-12-19 15:00:16 +08:00
parent 34c5fb55c8
commit a6198c9097
2 changed files with 67 additions and 43 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lisp/ChangeLog
View File

@ -1,3 +1,13 @@
2011-12-19 Chong Yidong <cyd@gnu.org>
* vc/vc-dir.el (vc-dir-parent-marked-p, vc-dir-children-marked-p):
Don't signal an error in a predicate function; return non-nil.
(vc-dir-mark-file): Move the error here.
(vc-dir-mark-unmark): If acting on the region, keep going if one
of the entries cannot be marked/unmarked.
(vc-dir-mark-all-files): If current entry is a directory, mark
only child files, as documented.
2011-12-19 Vincent Belaïche <vincentb1@users.sourceforge.net>
* ses.el: Ooops... undo changes of 2011-12-11T14:49:48Z!vincentb1@users.sourceforge.net, as trunk

100
lisp/vc/vc-dir.el
View File

@ -534,57 +534,71 @@ If a prefix argument is given, move by that many lines."
(save-excursion
(goto-char (region-beginning))
(while (<= (line-number-at-pos) lastl)
(funcall mark-unmark-function))))
(condition-case nil
(funcall mark-unmark-function)
;; `vc-dir-mark-file' signals an error if we try marking
;; a directory containing marked files in its tree, or a
;; file in a marked directory tree. Just continue.
(error (vc-dir-next-line 1))))))
(funcall mark-unmark-function)))
(defun vc-dir-parent-marked-p (arg)
;; Return nil if none of the parent directories of arg is marked.
;; Non-nil iff a parent directory of arg is marked.
;; Return value, if non-nil is the `ewoc-data' for the marked parent.
(let* ((argdir (vc-dir-node-directory arg))
(arglen (length argdir))
(crt arg)
data dir)
(found nil))
;; Go through the predecessors, checking if any directory that is
;; a parent is marked.
(while (setq crt (ewoc-prev vc-ewoc crt))
(setq data (ewoc-data crt))
(setq dir (vc-dir-node-directory crt))
(when (and (vc-dir-fileinfo->directory data)
(vc-string-prefix-p dir argdir))
(when (vc-dir-fileinfo->marked data)
(error "Cannot mark `%s', parent directory `%s' marked"
(vc-dir-fileinfo->name (ewoc-data arg))
(vc-dir-fileinfo->name data)))))
nil))
(while (and (null found)
(setq crt (ewoc-prev vc-ewoc crt)))
(let ((data (ewoc-data crt))
(dir (vc-dir-node-directory crt)))
(and (vc-dir-fileinfo->directory data)
(vc-string-prefix-p dir argdir)
(vc-dir-fileinfo->marked data)
(setq found data))))
found))
(defun vc-dir-children-marked-p (arg)
;; Return nil if none of the children of arg is marked.
;; Non-nil iff a child of ARG is marked.
;; Return value, if non-nil, is the `ewoc-data' for the marked child.
(let* ((argdir-re (concat "\\`" (regexp-quote (vc-dir-node-directory arg))))
(is-child t)
(crt arg)
data dir)
(while (and is-child (setq crt (ewoc-next vc-ewoc crt)))
(setq data (ewoc-data crt))
(setq dir (vc-dir-node-directory crt))
(if (string-match argdir-re dir)
(when (vc-dir-fileinfo->marked data)
(error "Cannot mark `%s', child `%s' marked"
(vc-dir-fileinfo->name (ewoc-data arg))
(vc-dir-fileinfo->name data)))
;; We are done, we got to an entry that is not a child of `arg'.
(setq is-child nil)))
nil))
(found nil))
(while (and is-child
(null found)
(setq crt (ewoc-next vc-ewoc crt)))
(let ((data (ewoc-data crt))
(dir (vc-dir-node-directory crt)))
(if (string-match argdir-re dir)
(if (vc-dir-fileinfo->marked data)
(setq found data))
;; We are done, we got to an entry that is not a child of `arg'.
(setq is-child nil))))
found))
(defun vc-dir-mark-file (&optional arg)
;; Mark ARG or the current file and move to the next line.
(let* ((crt (or arg (ewoc-locate vc-ewoc)))
(file (ewoc-data crt))
(isdir (vc-dir-fileinfo->directory file)))
(when (or (and isdir (not (vc-dir-children-marked-p crt)))
(and (not isdir) (not (vc-dir-parent-marked-p crt))))
(setf (vc-dir-fileinfo->marked file) t)
(ewoc-invalidate vc-ewoc crt)
(unless (or arg (mouse-event-p last-command-event))
(vc-dir-next-line 1)))))
(isdir (vc-dir-fileinfo->directory file))
;; Forbid marking a directory containing marked files in its
;; tree, or a file in a marked directory tree.
(conflict (if isdir
(vc-dir-children-marked-p crt)
(vc-dir-parent-marked-p crt))))
(when conflict
(error (if isdir
"File `%s' in this directory is already marked"
"Parent directory `%s' is already marked")
(vc-dir-fileinfo->name conflict)))
(setf (vc-dir-fileinfo->marked file) t)
(ewoc-invalidate vc-ewoc crt)
(unless (or arg (mouse-event-p last-command-event))
(vc-dir-next-line 1))))
(defun vc-dir-mark ()
"Mark the current file or all files in the region.
@ -621,19 +635,19 @@ share the same state."
(setf (vc-dir-fileinfo->marked filearg) t)
t))
vc-ewoc))
(let ((data (ewoc-data (ewoc-locate vc-ewoc))))
(let* ((crt (ewoc-locate vc-ewoc))
(data (ewoc-data crt)))
(if (vc-dir-fileinfo->directory data)
;; It's a directory, mark child files.
(let ((crt (ewoc-locate vc-ewoc)))
(unless (vc-dir-children-marked-p crt)
(while (setq crt (ewoc-next vc-ewoc crt))
(let ((crt-data (ewoc-data crt)))
(unless (vc-dir-fileinfo->directory crt-data)
(setf (vc-dir-fileinfo->marked crt-data) t)
(ewoc-invalidate vc-ewoc crt))))))
(let (crt-data)
(while (and (setq crt (ewoc-next vc-ewoc crt))
(setq crt-data (ewoc-data crt))
(not (vc-dir-fileinfo->directory crt-data)))
(setf (vc-dir-fileinfo->marked crt-data) t)
(ewoc-invalidate vc-ewoc crt)))
;; It's a file
(let ((state (vc-dir-fileinfo->state data))
(crt (ewoc-nth vc-ewoc 0)))
(let ((state (vc-dir-fileinfo->state data)))
(setq crt (ewoc-nth vc-ewoc 0))
(while crt
(let ((crt-data (ewoc-data crt)))
(when (and (not (vc-dir-fileinfo->marked crt-data))