Change a lot of `(if .. (progn ..)' to `(when ..)'.

(tumme-remove-tag): Fix bug.

2 files changed, 5 insertions, 4 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 863881b3a40..cd99ecc3cdc 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,6 +1,7 @@
 2006-05-27  Mathias Dahl  <mathias.dahl@gmail.com>
 
         * tumme.el: Change a lot of `(if .. (progn ..)' to `(when ..)'.
+        (tumme-remove-tag): Fix bug.
 
 2006-05-27  Thien-Thi Nguyen  <ttn@gnu.org>
 
diff --git a/lisp/tumme.el b/lisp/tumme.el
index 8358986cca7..b770c292d35 100644
--- a/lisp/tumme.el
+++ b/lisp/tumme.el
@@ -919,10 +919,10 @@ displayed."
                ;; If on empty line at end of buffer
                (when (and (eobp)
                           (looking-at "^$"))
-                 (delete-backward-char 1)))))))
-      files)
-    (save-buffer)
-    (kill-buffer buf)))
+                 (delete-backward-char 1))))))
+       files)
+      (save-buffer)
+      (kill-buffer buf))))
 
 (defun tumme-list-tags (file)
   "Read all tags for image FILE from the image database."