mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-19 10:22:27 +00:00
Code Issues Releases Activity

(with-vc-file, edit-vc-file): Remove unused macros.

Browse Source
This commit is contained in:
Dan Nicolaescu 2008-05-12 16:37:30 +00:00
parent b257def74f
commit 93614fc1f8
2 changed files with 1 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lisp/ChangeLog
View File

@ -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>

39
lisp/vc.el
View File

@ -922,45 +922,6 @@ been updated to their corresponding values."
(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)