diff options
| -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." | |||
| 1009 | (let ((old-buf (current-buffer)) | 1009 | (let ((old-buf (current-buffer)) |
| 1010 | (dired-buf (tumme-associated-dired-buffer)) | 1010 | (dired-buf (tumme-associated-dired-buffer)) |
| 1011 | (file-name (tumme-original-file-name))) | 1011 | (file-name (tumme-original-file-name))) |
| 1012 | (when (and dired-buf file-name) | 1012 | (when (and (buffer-live-p dired-buf) file-name) |
| 1013 | (setq file-name (file-name-nondirectory file-name)) | 1013 | (setq file-name (file-name-nondirectory file-name)) |
| 1014 | (set-buffer dired-buf) | 1014 | (set-buffer dired-buf) |
| 1015 | (goto-char (point-min)) | 1015 | (goto-char (point-min)) |
| @@ -1134,7 +1134,7 @@ comment." | |||
| 1134 | (format-spec | 1134 | (format-spec |
| 1135 | tumme-display-properties-format | 1135 | tumme-display-properties-format |
| 1136 | (list | 1136 | (list |
| 1137 | (cons ?b buf) | 1137 | (cons ?b (or buf "")) |
| 1138 | (cons ?f file) | 1138 | (cons ?f file) |
| 1139 | (cons ?t (or (princ props) "")) | 1139 | (cons ?t (or (princ props) "")) |
| 1140 | (cons ?c (or comment ""))))) | 1140 | (cons ?c (or comment ""))))) |