Mercurial > emacs

changeset 71001:95bd5a8f89a3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Change a lot of `(if .. (progn ..)' to `(when ..)'. (tumme-remove-tag): Fix bug.
author Mathias Dahl <mathias.dahl@gmail.com>
date Sat, 27 May 2006 14:19:47 +0000
parents 3792de4f359e
children 280984b0f4da
files lisp/tumme.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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."