1773 |
desktop-buffer-name |
desktop-buffer-name |
1774 |
desktop-buffer-misc) |
desktop-buffer-misc) |
1775 |
"Hook function for restoring persistent previews into a buffer." |
"Hook function for restoring persistent previews into a buffer." |
1776 |
(and (eq (car desktop-buffer-misc) 'preview) |
(when (and desktop-buffer-file-name |
1777 |
desktop-buffer-file-name |
(file-readable-p desktop-buffer-file-name)) |
1778 |
(file-readable-p desktop-buffer-file-name) |
(let ((buf (find-file-noselect desktop-buffer-file-name))) |
1779 |
(let ((buf (find-file-noselect desktop-buffer-file-name))) |
(if (eq (car desktop-buffer-misc) 'preview) |
1780 |
(with-current-buffer buf |
(with-current-buffer buf |
1781 |
(preview-buffer-restore desktop-buffer-misc) |
(preview-buffer-restore desktop-buffer-misc) |
1782 |
buf)))) |
buf) |
1783 |
|
buf)))) |
1784 |
|
|
1785 |
(eval-after-load "desktop" |
(eval-after-load "desktop" |
1786 |
'(if (boundp 'desktop-buffer-mode-handlers) |
'(if (boundp 'desktop-buffer-mode-handlers) |