From: Gustav Hållberg Date: Mon, 29 Dec 2008 14:32:58 +0000 (+0100) Subject: stgit.el: Canonicalize some error messages X-Git-Tag: v0.15-rc1~63 X-Git-Url: https://git.distorted.org.uk/~mdw/stgit/commitdiff_plain/df283a8bfffb8145e71817ee240797356847821e?hp=47271f41095413278e8a7482dd22c0606856617d stgit.el: Canonicalize some error messages Signed-off-by: Gustav Hållberg Signed-off-by: Karl Hasselström --- diff --git a/contrib/stgit.el b/contrib/stgit.el index b66a1ca..21ef28a 100644 --- a/contrib/stgit.el +++ b/contrib/stgit.el @@ -25,7 +25,7 @@ (cd dir) (unless (eq 0 (call-process "git" nil t nil "rev-parse" "--show-cdup")) - (error "cannot find top-level git tree for %s." dir)))))) + (error "Cannot find top-level git tree for %s" dir)))))) (expand-file-name (concat (file-name-as-directory dir) (car (split-string cdup "\n"))))))) @@ -406,7 +406,7 @@ find copied files." "Show status using `git-status'." (interactive) (unless (fboundp 'git-status) - (error "stgit-git-status requires git-status")) + (error "The stgit-git-status command requires git-status")) (let ((dir default-directory)) (save-selected-window (pop-to-buffer nil) @@ -849,9 +849,9 @@ With prefix argument, refresh the marked patch or the patch under point." (let ((patchargs (if arg (let ((patches (stgit-patches-marked-or-at-point))) (cond ((null patches) - (error "no patch to update")) + (error "No patch to update")) ((> (length patches) 1) - (error "too many patches selected")) + (error "Too many patches selected")) (t (cons "-p" patches)))) nil)))