diff options
| author | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-04 22:29:02 +0000 |
|---|---|---|
| committer | Dan Nicolaescu <dann@ics.uci.edu> | 2008-04-04 22:29:02 +0000 |
| commit | 6efbb10c5b3062d957b935a5382cc0670d755c29 (patch) | |
| tree | e57a7ee315ece17f43cd2ed17999841ef74fb938 | |
| parent | 5a84a937140c3ec0cdf7e53e626b5dcdb74e5bc7 (diff) | |
| download | emacs-6efbb10c5b3062d957b935a5382cc0670d755c29.tar.gz | |
(vc-bzr-state): Use when instead of if.
| -rw-r--r-- | lisp/ChangeLog | 2 | ||||
| -rw-r--r-- | 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 <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 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) |