From mboxrd@z Thu Jan  1 00:00:00 1970
From: Tim O'Callaghan <timo@dspsrv.com>
Subject: Re: Attention XEmacs users
Date: Thu, 22 Jun 2006 17:35:42 +0200
Message-ID: <20060622153542.GA3072@ELSAMSW37164>
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43)
	id 1FtRDg-0006sj-31
	for emacs-orgmode@gnu.org; Thu, 22 Jun 2006 11:35:48 -0400
Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43)
	id 1FtRDd-0006pS-HX
	for emacs-orgmode@gnu.org; Thu, 22 Jun 2006 11:35:47 -0400
Received: from [199.232.76.173] (helo=monty-python.gnu.org)
	by lists.gnu.org with esmtp (Exim 4.43) id 1FtRDd-0006pJ-AA
	for emacs-orgmode@gnu.org; Thu, 22 Jun 2006 11:35:45 -0400
Received: from [193.120.211.34] (helo=dspsrv.com)
	by monty-python.gnu.org with esmtp (Exim 4.52) id 1FtROd-0007Xu-5c
	for emacs-orgmode@gnu.org; Thu, 22 Jun 2006 11:47:07 -0400
Received: from [145.36.45.123] (helo=localhost)
	by dspsrv.com with asmtp (Exim 3.36 #1) id 1FtRDb-0008W8-00
	for emacs-orgmode@gnu.org; Thu, 22 Jun 2006 16:35:43 +0100
Content-Disposition: inline
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/pipermail/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <http://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: emacs-orgmode@gnu.org

Problem with XEMACS noutline mode. This backtrace happens when i try
and cycle from OVERVIEW. 

Debugger entered--Lisp error: (void-variable set-extent-endpoints)
  (if (> (extent-end-position ex) end) (progn (set-extent-endpoints ... ... beg) (set-extent-endpoints ex end ...)) set-extent-endpoints ex (extent-start-position ex) beg)
  (if (< (extent-start-position ex) beg) (if (> ... end) (progn ... ...) set-extent-endpoints ex (extent-start-position ex) beg))
  (lambda (ex ignored) (if (< ... beg) (if ... ... set-extent-endpoints ex ... beg)) (if (> ... end) (set-extent-endpoints ex end ...) (delete-extent ex)))(#<extent [29943, 30105) I isearch-open-invisible outline 0x29d0908 in buffer PROJECTS.ORG> nil)
  map-extents((lambda (ex ignored) (if (< ... beg) (if ... ... set-extent-endpoints ex ... beg)) (if (> ... end) (set-extent-endpoints ex end ...) (delete-extent ex))) #<buffer "PROJECTS.ORG"> 30056 30105 nil end-closed outline)
  (save-excursion (map-extents (function ...) (current-buffer) beg end nil (quote end-closed) (quote outline)))
  outline-discard-extents(30056 30105)
  outline-flag-region(30056 30105 nil)
  outline-show-heading()
  (if (<= (funcall outline-level) level) (outline-show-heading))
  (lambda nil (if (<= ... level) (outline-show-heading)))()
  funcall((lambda nil (if (<= ... level) (outline-show-heading))))
  (while (and (progn ... ...) (not ...)) (funcall fun))
  (progn (goto-char (match-beginning 0)) (funcall fun) (while (and ... ...) (funcall fun)))
  (if (re-search-forward (concat "^\\(?:" outline-regexp "\\)") end t) (progn (goto-char ...) (funcall fun) (while ... ...)))
  (when (re-search-forward (concat "^\\(?:" outline-regexp "\\)") end t) (goto-char (match-beginning 0)) (funcall fun) (while (and ... ...) (funcall fun)))
  (save-excursion (setq end (copy-marker end)) (goto-char beg) (when (re-search-forward ... end t) (goto-char ...) (funcall fun) (while ... ...)))
  outline-map-region((lambda nil (if (<= ... level) (outline-show-heading))) 29294 30105)
  (save-excursion (outline-back-to-heading) (setq level (+ level ...)) (outline-map-region (lambda nil ...) (point) (progn ... ...)))
  (let (outline-view-change-hook) (save-excursion (outline-back-to-heading) (setq level ...) (outline-map-region ... ... ...)))
  show-children(1000)
  show-branches()
  (while (and (progn ... t) (looking-at outline-regexp)) (show-branches) (if (bobp) (throw ... nil)))
  (catch (quote exit) (while (and ... ...) (show-branches) (if ... ...)))
  (save-excursion (goto-char (point-max)) (catch (quote exit) (while ... ... ...)))
  org-content()
  (cond ((and ... ...) (message "CONTENTS...") (org-content) (message "CONTENTS...done") (setq org-cycle-global-status ...) (run-hook-with-args ... ...)) ((and ... ...) (show-all) (message "SHOW ALL") (setq org-cycle-global-status ...) (run-hook-with-args ... ...)) (t (org-overview) (message "OVERVIEW") (setq org-cycle-global-status ...) (run-hook-with-args ... ...)))
  (cond ((org-at-table-p ...) (or ... ...)) ((eq arg t) (cond ... ... ...)) ((integerp arg) (save-excursion ... ... ...)) ((save-excursion ... ...) (org-back-to-heading) (let ... ... ...)) (buffer-read-only (org-back-to-heading)) ((if ... t ...) (if ... ...) (indent-relative)) (t (save-excursion ... ...)))
  (let* ((outline-regexp ...) (bob-special ...) (org-cycle-hook ...) (pos ...)) (if (or bob-special ...) (setq arg t)) (cond (... ...) (... ...) (... ...) (... ... ...) (buffer-read-only ...) (... ... ...) (t ...)))
  org-cycle((4))
  (if (integerp arg) (progn (show-all) (hide-sublevels arg) (setq org-cycle-global-status ...)) (org-cycle (quote ...)))
  org-global-cycle(nil)
  call-interactively(org-global-cycle)
  (cond ((org-at-table-p) (call-interactively ...)) (t (call-interactively ...)))
  org-shifttab(nil)
  call-interactively(org-shifttab)


Tim.