diff options
Diffstat (limited to 'lisp/vc/vc-arch.el')
| -rw-r--r-- | lisp/vc/vc-arch.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/vc/vc-arch.el b/lisp/vc/vc-arch.el index afeab878f1e..2e20d97e21d 100644 --- a/lisp/vc/vc-arch.el +++ b/lisp/vc/vc-arch.el @@ -54,7 +54,7 @@ ;;; Code: -(eval-when-compile (require 'vc) (require 'cl)) +(eval-when-compile (require 'vc)) ;;; Properties of the backend @@ -391,9 +391,9 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see (if (string-match (car rule) rev) (setq rev (replace-match (cdr rule) t nil rev)))) (format "Arch%c%s" - (case (vc-state file) - ((up-to-date needs-update) ?-) - (added ?@) + (pcase (vc-state file) + ((or `up-to-date `needs-update) ?-) + (`added ?@) (t ?:)) rev))) |