/[auctex]/auctex/preview/preview.el
ViewVC logotype

Diff of /auctex/preview/preview.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.247 by angeli, Wed Mar 30 13:36:01 2005 UTC revision 1.248 by angeli, Tue Apr 5 10:09:37 2005 UTC
# Line 1773  BUFFER-MISC is the appropriate data to b Line 1773  BUFFER-MISC is the appropriate data to b
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)

Legend:
Removed from v.1.247  
changed lines
  Added in v.1.248

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26