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

[Uwe Brauer <oub@mat.ucm.es>]

[-- Attachment #1: Type: text/plain, Size: 3071 bytes --]



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]"
 )



[-- Attachment #2: org-preview-region --]
[-- Type: text/plain, Size: 2741 bytes --]

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)