396 |
filename) |
filename) |
397 |
(setq filename (substring filename 0 (match-beginning 0)))) |
(setq filename (substring filename 0 (match-beginning 0)))) |
398 |
(setq format-cons (assoc filename preview-dumped-alist)) |
(setq format-cons (assoc filename preview-dumped-alist)) |
399 |
(when (cdr format-cons) |
(when (consp (cdr format-cons)) |
400 |
(preview-unwatch-preamble format-cons) |
(preview-unwatch-preamble format-cons) |
401 |
(preview-watch-preamble (current-buffer) |
(preview-watch-preamble (current-buffer) |
402 |
(cdr format-cons) |
(cadr format-cons) |
403 |
format-cons))))) |
format-cons))))) |
404 |
|
|
405 |
(defvar preview-marker (make-marker) |
(defvar preview-marker (make-marker) |