Re: 7.01 & Xemacs 21.4.22: decompose-region is not known

From: Carsten Dominik <carsten.dominik@gmail.com>
To: "Dr. Volker Zell" <Dr.Volker.Zell@oracle.com>
Cc: Uwe Brauer <oub@mat.ucm.es>,
	emacs-orgmode@gnu.org, Michael Sperber <sperber@deinprogramm.de>
Subject: Re: 7.01 & Xemacs 21.4.22: decompose-region is not known
Date: Mon, 18 Oct 2010 14:39:44 +0200	[thread overview]
Message-ID: <21A5F466-0C93-41F3-9052-877CA82E6403@gmail.com> (raw)
In-Reply-To: <7z1v7rzm9l.fsf@vzell-de.de.oracle.com>

Applied, thanks.

- Carsten

On Oct 15, 2010, at 2:13 PM, Dr. Volker Zell wrote:

>>>>>> Uwe Brauer writes:
>
>> Hello
>> Since I can't submit a bug report I attach the error trace
>> when I try to open a file in org mode:
>
>
> Hi Uwe
>
> I'm also using 21.4.22.
>
> To send bug reports just copy org-colview-xemacs.el over org- 
> colview.el
>
> To get rid of the (void-function decompose-region) error message I
> copied the following definition from mule-composite.el from
> xemacs-21.5-b28:
>
> (defun decompose-region (start end)
>  "UNIMPLEMENTED.
> Decompose text in the current region.
>
> When called from a program, expects two arguments,
> positions (integers or markers) specifying the region."
>  (interactive "r")
>  (let ((modified-p (buffer-modified-p))
>        (buffer-read-only nil))
>    (remove-text-properties start end '(composition nil))
>    (set-buffer-modified-p modified-p)))
>
>
> Then org-mode started fine for me. But I had to do some other  
> changes in
> order to execute source blocks with babel and produce html and pdf
> output.
>
> --- ob.el.orig	2010-08-07 09:00:28.000000000 +0200
> +++ ob.el	2010-10-15 12:46:33.281250000 +0200
> @@ -258,7 +258,7 @@
>   '((:session . "none") (:results . "silent") (:exports . "results"))
>   "Default arguments to use when evaluating an inline source block.")
>
> -(defvar org-babel-current-buffer-properties)
> +(defvar org-babel-current-buffer-properties nil)
> (make-variable-buffer-local 'org-babel-current-buffer-properties)
>
> (defvar org-babel-result-regexp
> --- org-latex.el.orig	2010-08-07 09:00:28.000000000 +0200
> +++ org-latex.el	2010-10-15 12:17:53.328125000 +0200
> @@ -849,7 +849,7 @@
> 		     (save-match-data
> 		       (shell-quote-argument file))
> 		     t t cmd)))
> -	(shell-command cmd outbuf outbuf)))
> +	(shell-command cmd outbuf)))
>     (message "Processing LaTeX file...done")
>     (if (not (file-exists-p pdffile))
> 	(error "PDF file was not produced")
> --- ob-latex.el.orig	2010-08-07 09:00:28.000000000 +0200
> +++ ob-latex.el	2010-10-15 12:16:31.531250000 +0200
> @@ -137,7 +137,7 @@
>                      (save-match-data
>                        (shell-quote-argument tex-file))
>                      t t cmd)))
> -        (shell-command cmd outbuf outbuf)))
> +        (shell-command cmd outbuf)))
>     (if (not (file-exists-p pdffile))
>         (error "PDF file was not produced from %s" tex-file)
>       (set-window-configuration wconfig)
>
>
> These two patches are needed due to differences in the following
> function definitions:
>
> Emacs:  (defvar symbol &optional initvalue docstring)
> XEmacs: (defvar SYMBOL INITVALUE DOCSTRING)
>
>
> Emacs:  (shell-command command &optional output-buffer error-buffer)
> XEmacs: (shell-command COMMAND &optional OUTPUT-BUFFER)
>
>
> In addition the function number-sequence is not defined in XEmacs.  
> So I
> copied the definition from the emacs distribution (in subr.el):
>
> (defun number-sequence (from &optional to inc)
>  "Return a sequence of numbers from FROM to TO (both inclusive) as a  
> list.
> INC is the increment used between numbers in the sequence and  
> defaults to 1.
> So, the Nth element of the list is \(+ FROM \(* N INC)) where N  
> counts from
> zero.  TO is only included if there is an N for which TO = FROM + N  
> * INC.
> If TO is nil or numerically equal to FROM, return \(FROM).
> If INC is positive and TO is less than FROM, or INC is negative
> and TO is larger than FROM, return nil.
> If INC is zero and TO is neither nil nor numerically equal to
> FROM, signal an error.
>
> This function is primarily designed for integer arguments.
> Nevertheless, FROM, TO and INC can be integer or float.  However,
> floating point arithmetic is inexact.  For instance, depending on
> the machine, it may quite well happen that
> \(number-sequence 0.4 0.6 0.2) returns the one element list \(0.4),
> whereas \(number-sequence 0.4 0.8 0.2) returns a list with three
> elements.  Thus, if some of the arguments are floats and one wants
> to make sure that TO is included, one may have to explicitly write
> TO as \(+ FROM \(* N INC)) or use a variable whose value was
> computed with this exact expression.  Alternatively, you can,
> of course, also replace TO with a slightly larger value
> \(or a slightly more negative value if INC is negative)."
>  (if (or (not to) (= from to))
>      (list from)
>    (or inc (setq inc 1))
>    (when (zerop inc) (error "The increment can not be zero"))
>    (let (seq (n 0) (next from))
>      (if (> inc 0)
>          (while (<= next to)
>            (setq seq (cons next seq)
>                  n (1+ n)
>                  next (+ from (* n inc))))
>        (while (>= next to)
>          (setq seq (cons next seq)
>                n (1+ n)
>                next (+ from (* n inc)))))
>      (nreverse seq))))
>
>
> Right now with these changes the latest org-mode works fine for me (at
> least for my usage pattern).
>
>> Uwe Brauer
>
> Ciao
>  Volker
>
> _______________________________________________
> Emacs-orgmode mailing list
> Please use `Reply All' to send replies to the list.
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode