diff options
Diffstat (limited to 'lisp/seam.el')
| -rw-r--r-- | lisp/seam.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/seam.el b/lisp/seam.el index 9a4f744..d8e8138 100644 --- a/lisp/seam.el +++ b/lisp/seam.el @@ -505,10 +505,11 @@ Otherwise, it's nil." update-count))) (cl-defun seam-set-buffer-name (&optional (buffer (current-buffer))) - (with-current-buffer buffer - (rename-buffer - (seam-format-title (seam-get-title-from-buffer) - (seam-get-note-type (buffer-file-name buffer)))))) + (when-let ((title (seam-get-title-from-buffer))) + (with-current-buffer buffer + (rename-buffer + (seam-format-title title + (seam-get-note-type (buffer-file-name buffer))))))) (defun seam-setup-buffer () "Setup hooks when loading a Seam file." |