Mercurial > emacs

comparison lisp/pcvs.el @ 52552:dab2424315f1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change the prompt depending on `filter' value.
author Masatake YAMATO <jet@gyve.org>
date Fri, 19 Sep 2003 18:43:16 +0000
parents 695cf19ef79e
children 2db8fbd2339c
comparison
equal deleted inserted replaced
52551:63e754c53eb8 52552:dab2424315f1
2042 (cvs-pop-to-buffer-same-frame (current-buffer)) 2042 (cvs-pop-to-buffer-same-frame (current-buffer))
2043 (shrink-window-if-larger-than-buffer)))) 2043 (shrink-window-if-larger-than-buffer))))
2044 (if (not (or silent 2044 (if (not (or silent
2045 (unwind-protect 2045 (unwind-protect
2046 (yes-or-no-p 2046 (yes-or-no-p
2047 (let ((nfiles (length files))) 2047 (let ((nfiles (length files))
2048 (verb (if (eq filter 'undo) "Undo" "Delete")))
2048 (if (= 1 nfiles) 2049 (if (= 1 nfiles)
2049 (format "Delete file: \"%s\" ? " 2050 (format "%s file: \"%s\" ? "
2051 verb
2050 (cvs-fileinfo->file (car files))) 2052 (cvs-fileinfo->file (car files)))
2051 (format "Delete %d files? " nfiles)))) 2053 (format "%s %d files? "
2054 verb
2055 nfiles))))
2052 (cvs-bury-buffer tmpbuf cvs-buffer)))) 2056 (cvs-bury-buffer tmpbuf cvs-buffer))))
2053 (progn (message "Aborting") nil) 2057 (progn (message "Aborting") nil)
2054 (dolist (fi files) 2058 (dolist (fi files)
2055 (let* ((type (cvs-fileinfo->type fi)) 2059 (let* ((type (cvs-fileinfo->type fi))
2056 (file (cvs-fileinfo->full-path fi))) 2060 (file (cvs-fileinfo->full-path fi)))