[O] Bug: org-preview-latex-fragment-region fails [7.8.03] [Xemacs 21.5.31 Mule]

[Uwe Brauer]

Hello

A while ago I could make org-preview-latex-fragment work for
Xemacs and I also sent a corresponding patch. I never
bothered to check the corresponding `region' function, but
when I did I received an error. I debugged the function and
when I reached  (narrow-to-region beg end)
I obtained an error, whose backtrace I attach.

I thought narrow-to-region works similar in both Emacsen.

Thanks

Uwe Brauer 

------------------------------------------------------------------------



Emacs  : XEmacs 21.5  (beta31) "ginger" [Lucid] (i686-pc-linux, Mule) of Thu 
Dec  1 2011 on gilgamesch.quim.ucm.es
Package: Org-mode version 7.8.03

current state:
==============
(setq
 org-src-mode-hook '(org-src-babel-configure-edit-buffer 
org-src-mode-configure-edit-buffer)
 org-metaup-hook '(org-babel-load-in-session-maybe)
 outline-mode-hook '(hide-body)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point 
org-babel-execute-safely-maybe)
 org-export-preprocess-before-selecting-backend-code-hook 
'(org-beamer-select-beamer-code)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers 
org-cycle-show-empty-lines
                                  org-optimize-window-after-visibility-change)
 org-agenda-include-diary t
 outline-minor-mode-hook '(my-outline-keys)
 org-babel-pre-tangle-hook '(save-buffer)
 org-mode-hook '(#<compiled-function (from 
"/home/oub/xemacs/site-lisp/packages/org-7.8.03/lisp/org.elc") nil
                                 "...(7)" [org-add-hook change-major-mode-hook 
org-show-block-all append local] 5 0x47fa>
                                 org-babel-hide-all-hashes my-org-keys 
turn-on-flyspell iso-accents-mode
                                 turn-on-auto-capitalize-mode)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-speed-command-hook '(org-speed-command-default-hook 
org-babel-speed-command-hook)
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src 
org-babel-exp-inline-src-blocks))
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-blank-before-new-entry nil
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-export-with-LaTeX-fragments 'dvipng
 org-export-preprocess-before-normalizing-links-hook 
'(org-remove-file-link-modifiers)
 org-confirm-shell-link-function 'yes-or-no-p
 org-table-default-size "3x3"
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-tab-first-hook '(org-hide-block-toggle-maybe 
org-src-native-tab-command-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (comment 
org-export-blocks-format-comment t)
                                         (ditaa org-export-blocks-format-ditaa 
nil) (dot org-export-blocks-format-dot nil))
 org-occur-hook '(org-first-headline-recenter)
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc 
org-beamer-auto-fragile-frames
                                                           
org-beamer-place-default-actions-for-lists)
 outline-regexp ";;; \\|(...."
 outline-heading-end-regexp "[\n]"
 )


Debugger entered--Lisp error: (wrong-type-argument integer-or-marker-p nil)
  apply(debug error (wrong-type-argument integer-or-marker-p nil))
  edebug(error (wrong-type-argument integer-or-marker-p nil))
  narrow-to-region(nil nil)
  (edebug-after (edebug-before 55) 58 (narrow-to-region (edebug-after 0 56 beg) 
(edebug-after 0 57 end)))
  (let (beg end at msg) (edebug-after (edebug-before 5) 51 (cond ... ... ...)) 
(edebug-after (edebug-before 52) 54 (message ... "")) (edebug-after 
(edebug-before 55) 58 (narrow-to-region ... ...)) (edebug-after (edebug-before 
59) 61 (goto-char ...)) (edebug-after (edebug-before 62) 73 (org-format-latex 
... ... ... ... ... ... ...)) (edebug-after (edebug-before 74) 76 (message ... 
"done.  Use `C-c C-c' to remove images.")))
  (edebug-after (edebug-before 4) 77 (let (beg end at msg) (edebug-after ... 51 
...) (edebug-after ... 54 ...) (edebug-after ... 58 ...) (edebug-after ... 61 
...) (edebug-after ... 73 ...) (edebug-after ... 76 ...)))
  (save-restriction (edebug-after (edebug-before 4) 77 (let ... ... ... ... ... 
... ...)))
  (edebug-after (edebug-before 3) 78 (save-restriction (edebug-after ... 77 
...)))
  (save-excursion (edebug-after (edebug-before 3) 78 (save-restriction ...)))
  (edebug-after (edebug-before 2) 79 (save-excursion (edebug-after ... 78 ...)))
  (lambda nil (edebug-after (edebug-before 0) 1 
(org-remove-latex-fragment-image-overlays)) (edebug-after (edebug-before 2) 79 
(save-excursion ...)))()
  edebug-enter(org-preview-latex-fragment-region (1 9 nil) (lambda nil 
(edebug-after (edebug-before 0) 1 (org-remove-latex-fragment-image-overlays)) 
(edebug-after (edebug-before 2) 79 (save-excursion ...))))
  edebug-enter(org-preview-latex-fragment-region (1 9 nil) (lambda nil 
(edebug-after (edebug-before 0) 1 (org-remove-latex-fragment-image-overlays)) 
(edebug-after (edebug-before 2) 79 (save-excursion ...))))
  org-preview-latex-fragment-region(1 9)
  call-interactively(org-preview-latex-fragment-region)
  command-execute(org-preview-latex-fragment-region t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)
  recursive-edit()
  byte-code("..." [buffer-read-only noninteractive debugger-buffer middlestart 
debugger-args debugger-batch-max-lines pop-to-buffer debugger-mode 
debugger-setup-buffer count-lines 2 "...\n" message buffer-string kill-emacs 
debug backtrace-debug 3 t debugger-reenable "" nil recursive-edit 
standard-output] 3)
  debug(error (wrong-type-argument integer-or-marker-p nil))
  org-preview-latex-fragment-region(1855 1873)
  call-interactively(org-preview-latex-fragment-region)
  command-execute(org-preview-latex-fragment-region t)
  execute-extended-command(nil)
  call-interactively(execute-extended-command)