3424 |
"Preview release date. |
"Preview release date. |
3425 |
In the form of yyyy.mmdd") |
In the form of yyyy.mmdd") |
3426 |
|
|
3427 |
|
(defun preview-dump-state (buffer) |
3428 |
|
(condition-case nil |
3429 |
|
(progn |
3430 |
|
(unless (local-variable-p 'TeX-command-buffer) |
3431 |
|
(setq buffer (with-current-buffer buffer (TeX-active-buffer)))) |
3432 |
|
(when (bufferp buffer) |
3433 |
|
(insert "\nRun buffer contents:\n\n") |
3434 |
|
(if (< (buffer-size buffer) 5000) |
3435 |
|
(insert-buffer-substring buffer) |
3436 |
|
(insert-buffer-substring buffer 1 2500) |
3437 |
|
(insert "...\n\n[...]\n\n\t...") |
3438 |
|
(insert-buffer-substring buffer |
3439 |
|
(- (buffer-size buffer) 2500) |
3440 |
|
(buffer-size buffer))) |
3441 |
|
(insert "\n"))) |
3442 |
|
(error nil))) |
3443 |
|
|
3444 |
;;;###autoload |
;;;###autoload |
3445 |
(defun preview-report-bug () "Report a bug in the preview-latex package." |
(defun preview-report-bug () "Report a bug in the preview-latex package." |
3446 |
(interactive) |
(interactive) |
3474 |
preview-dump-replacements |
preview-dump-replacements |
3475 |
preview-undump-replacements |
preview-undump-replacements |
3476 |
preview-auto-cache-preamble) |
preview-auto-cache-preamble) |
3477 |
nil |
`(lambda () (preview-dump-state ,(current-buffer))) |
3478 |
(lambda () |
(lambda () |
3479 |
(insert (format "\nOutput from running `%s -h':\n" |
(insert (format "\nOutput from running `%s -h':\n" |
3480 |
preview-gs-command)) |
preview-gs-command)) |