From 6efbb10c5b3062d957b935a5382cc0670d755c29 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 4 Apr 2008 22:29:02 +0000 Subject: [PATCH] (vc-bzr-state): Use when instead of if. --- lisp/ChangeLog | 2 ++ lisp/vc-bzr.el | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4aa8cb329db..866d101c41e 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2008-04-04 Dan Nicolaescu + * 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 c2a67091ec3..47abf98c32a 100644 --- 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) -- 2.39.2