Mercurial > emacs
changeset 94882:c1be0d215c21
(with-vc-file, edit-vc-file): Remove unused macros.
| author | Dan Nicolaescu <dann@ics.uci.edu> |
|---|---|
| date | Mon, 12 May 2008 16:37:30 +0000 |
| parents | 301586398fc3 |
| children | b615f9b9d57e |
| files | lisp/ChangeLog lisp/vc.el |
| diffstat | 2 files changed, 1 insertions(+), 39 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon May 12 16:22:42 2008 +0000 +++ b/lisp/ChangeLog Mon May 12 16:37:30 2008 +0000 @@ -2,6 +2,7 @@ * vc.el (vc-annotate-show-diff-revision-at-line): Remove incorrect cons. Use vc-annotate-backend. + (with-vc-file, edit-vc-file): Remove unused macros. 2008-05-12 Teodor Zlatanov <tzz@lifelogs.com>
--- a/lisp/vc.el Mon May 12 16:22:42 2008 +0000 +++ b/lisp/vc.el Mon May 12 16:37:30 2008 +0000 @@ -922,45 +922,6 @@ (put (intern file vc-file-prop-obarray) property (cdr setting)))))))) -;; Two macros for elisp programming - -;;;###autoload -(defmacro with-vc-file (file comment &rest body) - "Check out a writable copy of FILE if necessary, then execute BODY. -Check in FILE with COMMENT (a string) after BODY has been executed. -FILE is passed through `expand-file-name'; BODY executed within -`save-excursion'. If FILE is not under version control, or you are -using a locking version-control system and the file is locked by -somebody else, signal error." - (declare (debug t) (indent 2)) - (let ((filevar (make-symbol "file"))) - `(let ((,filevar (expand-file-name ,file))) - (or (vc-backend ,filevar) - (error "File not under version control: `%s'" file)) - (unless (vc-editable-p ,filevar) - (let ((state (vc-state ,filevar))) - (if (stringp state) - (error "`%s' is locking `%s'" state ,filevar) - (vc-checkout ,filevar t)))) - (save-excursion - ,@body) - (vc-checkin (list ,filevar) nil ,comment)))) - -;;;###autoload -(defmacro edit-vc-file (file comment &rest body) - "Edit FILE under version control, executing body. -Checkin with COMMENT after executing BODY. -This macro uses `with-vc-file', passing args to it. -However, before executing BODY, find FILE, and after BODY, save buffer." - (declare (debug t) (indent 2)) - (let ((filevar (make-symbol "file"))) - `(let ((,filevar (expand-file-name ,file))) - (with-vc-file - ,filevar ,comment - (set-buffer (find-file-noselect ,filevar)) - ,@body - (save-buffer))))) - ;;; Code for deducing what fileset and backend to assume (defun vc-responsible-backend (file &optional register)