Mercurial > emacs

changeset 93671:2b3d42806dcc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-bzr-state): Use when instead of if.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 04 Apr 2008 22:29:02 +0000
parents 80757ac2da77
children 94eba6d98635
files lisp/ChangeLog lisp/vc-bzr.el
diffstat 2 files changed, 4 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/ChangeLog	Fri Apr 04 22:27:26 2008 +0000
+++ b/lisp/ChangeLog	Fri Apr 04 22:29:02 2008 +0000
@@ -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.
--- a/lisp/vc-bzr.el	Fri Apr 04 22:27:26 2008 +0000
+++ b/lisp/vc-bzr.el	Fri Apr 04 22:29:02 2008 +0000
@@ -267,8 +267,8 @@
 (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)