Thanks for the report, I have fixed this. Please find the modified
version at
http://www.astro.uva.nl/~dominik/Tools/org/noutline.el
- Carsten
On Jun 22, 2006, at 17:35, Tim O'Callaghan wrote:
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.
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477
_______________________________________________
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode
