# bind (standard-output stack-trace-on-signal debug-on-signal stack-trace-on-error debug-on-error)
  # (unwind-protect ...)
  file-name-nondirectory(nil)
  (file-name-sans-extension (file-name-nondirectory buffer-file-name))
  (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name)))
  (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name))) default-directory (quote overlays) msg at (quote forbuffer) (quote dvipng))
  # bind (msg at end beg)
  (let (beg end at msg) (cond ((or (equal subtree (quote (16))) (not (save-excursion (re-search-backward org-outline-regexp-bol nil t)))) (setq beg (point-min) end (point-max) msg "Creating images for buffer...%s")) ((equal subtree (quote (4))) (org-back-to-heading) (setq beg (point) end (org-end-of-subtree t) msg "Creating images for subtree...%s")) (t (if (setq at (org-inside-LaTeX-fragment-p)) (goto-char (max (point-min) (- (cdr at) 2))) (org-back-to-heading)) (setq beg (point) end (progn (outline-next-heading) (point)) msg (if at "Creating image...%s" "Creating images for entry...%s")))) (message msg "") (narrow-to-region beg end) (goto-char beg) (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name))) default-directory (quote overlays) 
 msg at (quote forbuffer) (quote dvipng)) (message msg "done.  Use `C-c C-c' to remove images."))
  # (unwind-protect ...)
  (save-restriction (let (beg end at msg) (cond ((or (equal subtree (quote (16))) (not (save-excursion (re-search-backward org-outline-regexp-bol nil t)))) (setq beg (point-min) end (point-max) msg "Creating images for buffer...%s")) ((equal subtree (quote (4))) (org-back-to-heading) (setq beg (point) end (org-end-of-subtree t) msg "Creating images for subtree...%s")) (t (if (setq at (org-inside-LaTeX-fragment-p)) (goto-char (max (point-min) (- (cdr at) 2))) (org-back-to-heading)) (setq beg (point) end (progn (outline-next-heading) (point)) msg (if at "Creating image...%s" "Creating images for entry...%s")))) (message msg "") (narrow-to-region beg end) (goto-char beg) (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name))) default-directory
  (quote overlays) msg at (quote forbuffer) (quote dvipng)) (message msg "done.  Use `C-c C-c' to remove images.")))
  # (unwind-protect ...)
  (save-excursion (save-restriction (let (beg end at msg) (cond ((or (equal subtree (quote (16))) (not (save-excursion (re-search-backward org-outline-regexp-bol nil t)))) (setq beg (point-min) end (point-max) msg "Creating images for buffer...%s")) ((equal subtree (quote (4))) (org-back-to-heading) (setq beg (point) end (org-end-of-subtree t) msg "Creating images for subtree...%s")) (t (if (setq at (org-inside-LaTeX-fragment-p)) (goto-char (max (point-min) (- (cdr at) 2))) (org-back-to-heading)) (setq beg (point) end (progn (outline-next-heading) (point)) msg (if at "Creating image...%s" "Creating images for entry...%s")))) (message msg "") (narrow-to-region beg end) (goto-char beg) (org-format-latex (concat "ltxpng/" (file-name-sans-extension (file-name-nondirectory buffer-file-name))) d
 efault-directory (quote overlays) msg at (quote forbuffer) (quote dvipng)) (message msg "done.  Use `C-c C-c' to remove images."))))
  # bind (subtree)
  org-preview-latex-fragment(nil)
  (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))
  # bind (inhibit-read-only)
  (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil)))
  (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))))
  (if (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil)))))
  (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil)))))
  (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))))))
  # (unwind-protect ...)
  (save-excursion (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil)))))))
  (edebug-after (edebug-before 0) 9 (save-excursion (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))))))))
  (lambda nil (edebug-after (edebug-before 0) 9 (save-excursion (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil)))))))))()
  # bind (edebug-offset-indices edebug-stack edebug-buffer edebug-coverage edebug-freq-count edebug-def-mark edebug-data edebug-body edebug-args edebug-function)
  edebug-enter(article-treat-org-preview nil (lambda nil (edebug-after (edebug-before 0) 9 (save-excursion (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))))))))))
  # bind (executing-kbd-macro overriding-local-map overriding-terminal-local-map signal-hook-function pre-command-hook post-command-hook)
  # (unwind-protect ...)
  # bind (edebug-entered max-lisp-eval-depth max-specpdl-size debugger edebug-outside-debug-on-error edebug-outside-debug-on-quit debug-on-error debug-on-quit cl-lexical-debug edebug-outside-overriding-local-map edebug-outside-overriding-terminal-local-map edebug-outside-executing-macro edebug-outside-pre-command-hook edebug-outside-post-command-hook edebug-body edebug-args edebug-function)
  edebug-enter(article-treat-org-preview nil (lambda nil (edebug-after (edebug-before 0) 9 (save-excursion (edebug-after (edebug-before 1) 8 (when (edebug-after (edebug-before 2) 3 (article-goto-body)) (edebug-after (edebug-before 4) 7 (let ((inhibit-read-only t)) (edebug-after (edebug-before 5) 6 (org-preview-latex-fragment nil))))))))))
  article-treat-org-preview()
  eval((article-treat-org-preview))
  # bind (form history form prompt)
  edit-and-eval-command("Redo: " (switch-to-buffer "*Article nndraft:drafts*") (command-history . 1))
  # bind (print-level arg)
  repeat-complex-command(1)
  # bind (command-debug-status)
  call-interactively(repeat-complex-command)
  # (condition-case ... . error)
  # (catch top-level ...)