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

6efbb10c · Dan Nicolaescu · 5a84a937 · 6efbb10c · 6efbb10c
Commit 6efbb10c authored Apr 04, 2008 by Dan Nicolaescu
Hide whitespace changes
Inline Side-by-side

Showing with 4 additions and 2 deletions

lisp/ChangeLog lisp/ChangeLog +2 -0

lisp/vc-bzr.el lisp/vc-bzr.el +2 -2

No files found.
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
 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.

--- 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)