diff options
Diffstat (limited to 'lisp/vc/vc-mtn.el')
| -rw-r--r-- | lisp/vc/vc-mtn.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index a3d5f09255e..67c0f985ae1 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -32,7 +32,7 @@ ;;; Code: -(eval-when-compile (require 'cl) (require 'vc)) +(eval-when-compile (require 'vc)) (defgroup vc-mtn nil "VC Monotone (mtn) backend." @@ -167,10 +167,10 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch)))) (format "Mtn%c%s" - (case (vc-state file) - ((up-to-date needs-update) ?-) - (added ?@) - (t ?:)) + (pcase (vc-state file) + ((or `up-to-date `needs-update) ?-) + (`added ?@) + (_ ?:)) branch))) (defun vc-mtn-register (files &optional _rev _comment) |