From a2a413ad1a5a4bb36f20a163b83c16f7682ea47e Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Fri, 16 May 2008 08:36:17 +0000 Subject: [PATCH] (vc-sccs-create-tag): Fix typo in error message and pass backend arg. --- lisp/ChangeLog | 6 ++++++ lisp/vc-sccs.el | 12 ++++++------ 2 files changed, 12 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index a7e97b435d2..5d4de7adc65 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-05-16 Juanma Barranquero + + * 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 * net/tramp.el (tramp-file-name-for-operation): Add `make-temp-name'. diff --git a/lisp/vc-sccs.el b/lisp/vc-sccs.el index a5096da9643..5cf19064b59 100644 --- a/lisp/vc-sccs.el +++ b/lisp/vc-sccs.el @@ -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) -- 2.39.2