/[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.252 by dak, Tue Apr 12 15:12:39 2005 UTC revision 1.253 by dak, Mon Apr 18 11:36:44 2005 UTC
# Line 3424  If not a regular release, CVS revision o Line 3424  If not a regular release, CVS revision o
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)
# Line 3457  In the form of yyyy.mmdd") Line 3474  In the form of yyyy.mmdd")
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))

Legend:
Removed from v.1.252  
changed lines
  Added in v.1.253

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