procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(vc-sccs-create-tag): Fix typo in error message and pass backend arg.

Browse source
This commit is contained in:
Juanma Barranquero 2008-05-16 08:36:17 +00:00
parent 9e4423c550
commit a2a413ad1a
2 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lisp/ChangeLog
View file

@ -1,3 +1,9 @@
2008-05-16 Juanma Barranquero <lekktu@gmail.com>
* vc-rcs.el (vc-rcs-create-tag):
* vc-sccs.el (vc-sccs-create-tag):
Fix typo in error message and pass backend arg.
2008-05-15 Michael Albinus <michael.albinus@gmx.de>
* net/tramp.el (tramp-file-name-for-operation): Add `make-temp-name'.

12
lisp/vc-sccs.el
View file

@ -258,7 +258,7 @@ expanded if `vc-keep-workfiles' is non-nil, otherwise, delete the workfile."
If FILE is a directory, all version-controlled files beneath are checked out.
EDITABLE non-nil means that the file should be writable and
locked. REV is the revision to check out."
(if (file-directory-p file)
(if (file-directory-p file)
(mapc 'vc-sccs-checkout (vc-expand-dirs (list file)))
(let ((file-buffer (get-file-buffer file))
switches)
@ -293,7 +293,7 @@ are expanded to all version-controlled subfiles."
(error "SCCS backend doesn't support directory-level rollback."))
(dolist (file files)
(let ((discard (vc-working-revision file)))
(if (null (yes-or-no-p (format "Remove version %s from %s history? "
(if (null (yes-or-no-p (format "Remove version %s from %s history? "
discard file)))
(error "Aborted"))
(message "Removing revision %s from %s..." discard file)
@ -304,7 +304,7 @@ are expanded to all version-controlled subfiles."
(defun vc-sccs-revert (file &optional contents-done)
"Revert FILE to the version it was based on. If FILE is a directory,
revert all subfiles."
(if (file-directory-p file)
(if (file-directory-p file)
(mapc 'vc-sccs-revert (vc-expand-dirs (list file)))
(vc-sccs-do-command nil 0 "unget" (vc-name file))
(vc-sccs-do-command nil 0 "get" (vc-name file))
@ -315,7 +315,7 @@ revert all subfiles."
(defun vc-sccs-steal-lock (file &optional rev)
"Steal the lock on the current workfile for FILE and revision REV."
(if (file-directory-p file)
(if (file-directory-p file)
(mapc 'vc-sccs-steal-lock (vc-expand-dirs (list file)))
(vc-sccs-do-command nil 0 "unget"
(vc-name file) "-n" (if rev (concat "-r" rev)))
@ -325,7 +325,7 @@ revert all subfiles."
(defun vc-sccs-modify-change-comment (files rev comment)
"Modify (actually, append to) the change comments for FILES on a specified REV."
(dolist (file (vc-expand-dirs files))
(vc-sccs-do-command nil 0 "cdc" (vc-name file)
(vc-sccs-do-command nil 0 "cdc" (vc-name file)
(concat "-y" comment) (concat "-r" rev))))
@ -358,7 +358,7 @@ revert all subfiles."
(defun vc-sccs-create-tag (backend dir name branchp)
(when branchp
(error "SCCS backend %s does not support module branches."))
(error "SCCS backend %s does not support module branches" backend))
(let ((result (vc-tag-precondition dir)))
(if (stringp result)
(error "File %s is not up-to-date" result)