(vc-bzr-state): Use when instead of if.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4aa8cb329db91697cc255bdd419c29d2fcdd9bfd..866d101c41ee293adbe12a33fdd8a5ef57f7b3e3 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,7 @@
 2008-04-04  Dan Nicolaescu  <dann@ics.uci.edu>
 
+       * vc-bzr.el (vc-bzr-state): Use when instead of if.
+
        * vc.el (vc-default-status-fileinfo-extra): New function.
        (vc-status-mark-buffer-changed): Use it.
        (vc-update-vc-status-buffer): Allow for partial updates.

diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el
index c2a67091ec33f5d6f27ed1c494f4a65ed85ef5f2..47abf98c32ab904ec2c159f6193cf739ad1c3948 100644 (file)
--- a/lisp/vc-bzr.el
+++ b/lisp/vc-bzr.el
@@ -267,8 +267,8 @@ If any error occurred in running `bzr status', then return nil."
 (defun vc-bzr-state (file)
   (lexical-let ((result (vc-bzr-status file)))
     (when (consp result)
-      (if (cdr result)
-          (message "Warnings in `bzr' output: %s" (cdr result)))
+      (when (cdr result)
+       (message "Warnings in `bzr' output: %s" (cdr result)))
       (cdr (assq (car result)
                  '((added . added)
                    (kindchanged . edited)