Mercurial > emacs

changeset 72119:c57307165d5e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tumme-track-original-file): Add `buffer-live-p' check. (tumme-format-properties-string): Handle empty `buf'.
author Mathias Dahl <mathias.dahl@gmail.com>
date Tue, 25 Jul 2006 13:14:03 +0000
parents c5feedd6ca5e
children 81a93f7bee3d
files lisp/tumme.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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 "")))))