# HG changeset patch
# User Mathias Dahl <mathias.dahl@gmail.com>
# Date 1148739587 0
# Node ID 95bd5a8f89a34a0f8239f086657ae9d7ce62ddc3
# Parent  3792de4f359e5ec5b4a090db89201abf39bd6c41
Change a lot of `(if .. (progn ..)' to `(when ..)'.
(tumme-remove-tag): Fix bug.

diff -r 3792de4f359e -r 95bd5a8f89a3 lisp/tumme.el
--- a/lisp/tumme.el	Sat May 27 11:31:44 2006 +0000
+++ b/lisp/tumme.el	Sat May 27 14:19:47 2006 +0000
@@ -919,10 +919,10 @@
                ;; 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."