# HG changeset patch
# User Mathias Dahl <mathias.dahl@gmail.com>
# Date 1153833243 0
# Node ID c57307165d5ed59dce99bde0370b25195c3b51d3
# Parent  c5feedd6ca5e0832645df6fc4712d4c4421b9809
(tumme-track-original-file): Add `buffer-live-p' check.
(tumme-format-properties-string): Handle empty `buf'.

diff -r c5feedd6ca5e -r c57307165d5e lisp/tumme.el
--- a/lisp/tumme.el	Tue Jul 25 13:13:52 2006 +0000
+++ b/lisp/tumme.el	Tue Jul 25 13:14:03 2006 +0000
@@ -1009,7 +1009,7 @@
   (let ((old-buf (current-buffer))
         (dired-buf (tumme-associated-dired-buffer))
         (file-name (tumme-original-file-name)))
-    (when (and dired-buf file-name)
+    (when (and (buffer-live-p dired-buf) file-name)
       (setq file-name (file-name-nondirectory file-name))
       (set-buffer dired-buf)
       (goto-char (point-min))
@@ -1134,7 +1134,7 @@
   (format-spec
    tumme-display-properties-format
    (list
-    (cons ?b buf)
+    (cons ?b (or buf ""))
     (cons ?f file)
     (cons ?t (or (princ props) ""))
     (cons ?c (or comment "")))))