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

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

[Uwe Brauer]

[-- 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)

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

[Bastien]

Hi Uwe,

Uwe Brauer <oub@mat.ucm.es> writes:

> 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 don't see any backtrace, did you forgot to attached it?

In any case, I don't use XEmacs so please send a patch for this
if you can.

Thanks,

-- 
 Bastien

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

[Uwe Brauer]

>> On Fri, 25 May 2012 23:19:52 +0200, Bastien <bzg@gnu.org> wrote:
Hi Bastien,

   > I don't see any backtrace, did you forgot to attached it?


This is very odd, I just checked my outgoing mail (I have a
copy in gmail) and there I can see the backtrace in form of
an attachment, while indeed when I read my email in gmane I
cannot see it. 

Is there any filter on the mailing list which
removes attachment?? That would be good to know for the
future.

I resend the backtrace  at the end of the message
but not an attachment.

   > In any case, I don't use XEmacs so please send a patch
   > for this if you can.
Yes I know :'(  however I thought it might be one of these
standard incompatiblies between GNU emacs and Xemacs. In any
case meanwhile I found a workaround, it is however an ugly
kludge. (I have to replace 
(narrow-to-region beg end)
by (narrow-to-region (point) (mark)), that is rather odd.
I also still use 7.8.03; would that  be problem concerning a
patch?


Just one question more: I see in the function 
org-preview-latex-fragment-region various `setq'
I thought one should use `let' instead; anyhow.

Uwe 

,----
|  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)
`----

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

[Achim Gratz]

Uwe Brauer writes:
> Just one question more: I see in the function 
> org-preview-latex-fragment-region various `setq'
> I thought one should use `let' instead; anyhow.

They are let-bound to nil initially.  The cond form should bind them to
whatever is appropriate, but that doesn't seem to be happening as the
call to narrow-region still sees them as "nil".  What output was
produced by message?

Could you supply an example document and how to trigger the bug from
'xemacs -q -vanilla --eval '(add-to-list '"'"'load-path "./lisp")' -l org'?


Regards,
Achim.
-- 
+<[Q+ Matrix-12 WAVE#46+305 Neuron microQkb Andromeda XTk Blofeld]>+

SD adaptation for Waldorf Blofeld V1.15B11:
http://Synth.Stromeko.net/Downloads.html#WaldorfSDada