diff options
| author | Mathias Dahl <mathias.dahl@gmail.com> | 2006-07-25 13:14:03 +0000 |
|---|---|---|
| committer | Mathias Dahl <mathias.dahl@gmail.com> | 2006-07-25 13:14:03 +0000 |
| commit | f2151145f53203e24533c7efb680ca9fa5c191ec (patch) | |
| tree | 1457343236f4e799c70d9beaeadcb4cdbecdf8f5 /lisp/tumme.el | |
| parent | 50e93433f760a8ff25878805f4437d9279728e21 (diff) | |
| download | emacs-f2151145f53203e24533c7efb680ca9fa5c191ec.tar.gz | |
(tumme-track-original-file): Add `buffer-live-p' check.
(tumme-format-properties-string): Handle empty `buf'.
Diffstat (limited to 'lisp/tumme.el')
| -rw-r--r-- | lisp/tumme.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/tumme.el b/lisp/tumme.el index c9f9b83ef32..1d313963d2a 100644 --- a/lisp/tumme.el +++ b/lisp/tumme.el @@ -1009,7 +1009,7 @@ use only useful if `tumme-track-movement' is nil." (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 @@ comment." (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 ""))))) |