Lines Matching +defs:at +defs:do
22 ;; the Free Software Foundation; either version 2, or (at your option)
40 ;; of them at a time. Compared to VC-dired, it is considerably better and
79 ;; allow (un)marking directories at a time with the mouse.
80 ;; allow cvs-cmd-do to either clear the marks or not.
102 ;; - write 'cvs-mode-admin' to do arbitrary 'cvs admin' commands
292 "Set the branch prefix to take action at the next command.
316 "Set the branch prefix to take action at the next command.
388 ;; FIXME: this doesn't do the right thing if the user later on
481 (defun* cvs-cmd-do (cmd dir flags fis new
524 (do* ((files () (cons (cvs-fileinfo->file fi) files))
556 ;; but at the cost of screwing up when the process thinks it
664 ;; Don't do anything if the main buffer doesn't exist any more.
695 ;; Fixup the ^D^H^H inserted at beginning of buffer sometimes on MacOSX
846 ;; called at the following times:
850 ;; - cvs-cmd-do (nil nil t)
951 (cvs-cmd-do "checkout" (or dir default-directory)
999 ;; FIXME: code duplication with cvs-cmd-do and cvs-parse-process
1034 (cvs-cmd-do "update" directory flags nil
1054 (cvs-cmd-do "update" directory flags nil
1070 (cvs-cmd-do "status" directory flags nil
1093 (when (looking-at "^[ a-z]+: \\(.*waiting for .*lock in \\(.*\\)\\)$")
1237 ;; not a directory: just do the obvious
1245 "Toggle the mark of the entry at point."
1361 an empty list if it doesn't point to a file at all."
1416 "Determine whether FILTER applies to at least one of the selected files."
1456 (funcall setupfun 'cvs-do-commit setup 'cvs-commit-filelist buf)
1467 (defun cvs-do-commit (flags)
1473 (cvs-mode-do "commit" (list* "-m" msg flags) 'commit)))
1478 (defun cvs-edit-log-text-at-point ()
1483 (if (looking-at "date:") (forward-line 1))
1484 (if (looking-at "branches:") (forward-line 1))
1496 "Edit the log message at point.
1506 (cvs-edit-log-text-at-point)))
1519 (funcall setupfun 'cvs-do-edit-log nil 'cvs-edit-log-filelist buf)
1540 (defun cvs-do-edit-log (rev)
1546 (cvs-mode-do "admin" (list (concat "-m" rev ":" msg)) nil)))))
1556 outside of PCL-CVS) and one wants to do some operation on it."
1575 ;; There should have been at least one entry.
1618 (cvs-mode-do "diff" flags 'diff
1737 ;; If `rev' is HEAD, don't pass it at all:
1812 (error "idiff-other cannot be applied to more than 2 files at a time"))
1849 POSTPROC is a list of expressions to be evaluated at the very end (after
1883 (defun* cvs-mode-do (cmd flags filter
1904 (cvs-mode-do "status" flags nil :dont-change-disc t :show t
1924 (cvs-mode-do "log" flags nil :show t))
1935 (cvs-mode-do "update" flags 'update))
1946 (cvs-mode-do "update" flags nil :cvsargs '("-n") :dont-change-disc t))
2057 (let* ((fis (cvs-do-removal 'undo "update" 'all))
2092 Note that this can be dangerous. You should only do this
2120 (defun cvs-do-removal (filter &optional cmd all)
2166 (let ((fis (cvs-do-removal 'remove)))
2182 (cvs-mode-do "tag" (append flags (list tag))
2192 (cvs-mode-do "tag" (append '("-d") flags (list tag))
2283 ;; because it only looks at the time stamp (it ignores
2290 ;; do want to reset the mode for VC, so we do it explicitly.
2326 A value of nil means never do it.
2327 ALWAYS means to always do it unless a prefix argument is given to the
2329 Anything else means to do it only if the prefix arg is equal to this value."
2384 (looking-at ".*to add this file permanently\n\\'"))