Mercurial > emacs
changeset 35707:1285b34a630d
(cvs-mark-fis-dead): New function.
(cvs-mode-add): Use it.
(cvs-mode-add-change-log-entry-other-window):
Rebind change-log-default-name to itself rather than to nil.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 29 Jan 2001 20:22:28 +0000 |
| parents | 952bdd6fb8e5 |
| children | 60d4d3e49275 |
| files | lisp/pcvs.el |
| diffstat | 1 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/pcvs.el Mon Jan 29 20:04:42 2001 +0000 +++ b/lisp/pcvs.el Mon Jan 29 20:22:28 2001 +0000 @@ -13,7 +13,7 @@ ;; (Jari Aalto+mail.emacs) jari.aalto@poboxes.com ;; Maintainer: (Stefan Monnier) monnier+lists/cvs/pcl@flint.cs.yale.edu ;; Keywords: CVS, version control, release management -;; Revision: $Id: pcvs.el,v 1.23 2000/12/18 03:17:40 monnier Exp $ +;; Revision: $Id: pcvs.el,v 1.24 2001/01/26 20:46:42 fx Exp $ ;; This file is part of GNU Emacs. @@ -1349,6 +1349,11 @@ (goto-char (ewoc-location last)) (ewoc-data last))) +(defun cvs-mark-fis-dead (fis) + ;; Helper function, introduced because of the need for macro-expansion. + (dolist (fi fis) + (setf (cvs-fileinfo->type fi) 'DEAD))) + (defun-cvs-mode (cvs-mode-add . SIMPLE) (flags) "Add marked files to the cvs repository. With prefix argument, prompt for cvs flags." @@ -1372,7 +1377,7 @@ `((cvs-run-process (list "-n" "update") ',dirs '(cvs-parse-process t)) - (dolist (fi ',dirs) (setf (cvs-fileinfo->type fi) 'DEAD)))))) + (cvs-mark-fis-dead ',dirs))))) (cvs-mode-run "add" flags fis :postproc postproc)))) (defun-cvs-mode (cvs-mode-diff . DOUBLE) (flags) @@ -1918,7 +1923,7 @@ (let* ((fi (cvs-mode-marked nil nil :one t)) (default-directory (cvs-expand-dir-name (cvs-fileinfo->dir fi))) (buffer-file-name (expand-file-name (cvs-fileinfo->file fi))) - change-log-default-name) + (change-log-default-name change-log-default-name)) (add-change-log-entry-other-window))) ;; interactive commands to set optional flags