[AUCTeX-diffs] Changes to auctex/preview/preview.el

[David Kastrup]

Index: auctex/preview/preview.el
diff -u auctex/preview/preview.el:1.252 auctex/preview/preview.el:1.253
--- auctex/preview/preview.el:1.252     Tue Apr 12 15:12:39 2005
+++ auctex/preview/preview.el   Mon Apr 18 11:36:44 2005
@@ -22,7 +22,7 @@
 
 ;;; Commentary:
 
-;; $Id: preview.el,v 1.252 2005/04/12 15:12:39 dak Exp $
+;; $Id: preview.el,v 1.253 2005/04/18 11:36:44 dak Exp $
 ;;
 ;; This style is for the "seamless" embedding of generated images
 ;; into LaTeX source code.  Please see the README and INSTALL files
@@ -3404,7 +3404,7 @@
 
 (defconst preview-version (eval-when-compile
   (let ((name "$Name:  $")
-       (rev "$Revision: 1.252 $"))
+       (rev "$Revision: 1.253 $"))
     (or (if (string-match "\\`[$]Name: *\\([^ ]+\\) *[$]\\'" name)
            (match-string 1 name))
        (if (string-match "\\`[$]Revision: *\\([^ ]+\\) *[$]\\'" rev)
@@ -3415,7 +3415,7 @@
 
 (defconst preview-release-date
   (eval-when-compile
-    (let ((date "$Date: 2005/04/12 15:12:39 $"))
+    (let ((date "$Date: 2005/04/18 11:36:44 $"))
       (string-match
        "\\`[$]Date: *\\([0-9]+\\)/\\([0-9]+\\)/\\([0-9]+\\)"
        date)
@@ -3424,6 +3424,23 @@
   "Preview release date.
 In the form of yyyy.mmdd")
 
+(defun preview-dump-state (buffer)
+  (condition-case nil
+      (progn
+       (unless (local-variable-p 'TeX-command-buffer)
+         (setq buffer (with-current-buffer buffer (TeX-active-buffer))))
+       (when (bufferp buffer)
+         (insert "\nRun buffer contents:\n\n")
+         (if (< (buffer-size buffer) 5000)
+             (insert-buffer-substring buffer)
+           (insert-buffer-substring buffer 1 2500)
+           (insert "...\n\n[...]\n\n\t...")
+           (insert-buffer-substring buffer
+                                    (- (buffer-size buffer) 2500)
+                                    (buffer-size buffer)))
+         (insert "\n")))
+    (error nil)))
+
 ;;;###autoload
 (defun preview-report-bug () "Report a bug in the preview-latex package."
   (interactive)
@@ -3457,7 +3474,7 @@
        preview-dump-replacements
        preview-undump-replacements
        preview-auto-cache-preamble)
-     nil
+     `(lambda () (preview-dump-state ,(current-buffer)))
      (lambda ()
        (insert (format "\nOutput from running `%s -h':\n"
                       preview-gs-command))