emacs-orgmode@gnu.org archives
 help / color / mirror / code / Atom feed
* Attention XEmacs users
@ 2006-06-14 16:54 Carsten Dominik
  2006-06-15 13:21 ` Tim O'Callaghan
  0 siblings, 1 reply; 18+ messages in thread
From: Carsten Dominik @ 2006-06-14 16:54 UTC (permalink / raw)
  To: emacs-orgmode


If you are using XEmacs to run org-mode, the following is important for 
you:

Starting with the next release of Org-mode (4.38, only a few days 
away), Org-mode will require the use of noutline.el, a new 
implementation of outline mode on which Org-mode is based.  This new 
implementation uses text overlays with invisibility properties to hide 
text.  This new implementation is already standard on GNU Emacs, so 
nothing needs to be done if you are using GNU Emacs.

XEmacs currently still uses the old implementation which is based on 
selective display to hide text.  This works great, but is much harder 
to program for.  Since there is now a port of noutline.el for XEmacs 
which seems to work stably, I will enforce using it, to make things 
much easier for the Org-mode side, and thus for me.  Therefore, 
starting with the next version of Org-mode you need to install 
noutline.el.  In the near future, I will slowly but surely remove the 
code needed for compatibility with the old outline.el.

The only way to keep me from doing what I just said is to download 
noutline.el *now*, test it and report problems with it or with the 
combination noutline/Org-mode.

You may download it at

    http://www.astro.uva.nl/~dominik/Tools/org/noutline.el

and install it in the usual way:  byte-compile it, put both noutline.el 
and noutline.elc on your load path.  And put (for now) (require 
'noutline) somewhere early into your .xemacs/init.el file.

Thanks for your understanding.

- Carsten

P.S.  All credit for noutline.el for XEmacs goes to Greg Chernev for 
porting it and allowing me to make it available.  Thanks Greg!

- Carsten



--
Carsten Dominik
Sterrenkundig Instituut "Anton Pannekoek"
Universiteit van Amsterdam
Kruislaan 403
NL-1098SJ Amsterdam
phone: +31 20 525 7477

^ permalink raw reply	[flat|nested] 18+ messages in thread
* Re: Attention XEmacs users
@ 2006-06-22 15:35 Tim O'Callaghan
  2006-06-23  6:24 ` Carsten Dominik
  0 siblings, 1 reply; 18+ messages in thread
From: Tim O'Callaghan @ 2006-06-22 15:35 UTC (permalink / raw)
  To: emacs-orgmode

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.

^ permalink raw reply	[flat|nested] 18+ messages in thread

end of thread, other threads:[~2006-06-23  6:24 UTC | newest]

Thread overview: 18+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2006-06-14 16:54 Attention XEmacs users Carsten Dominik
2006-06-15 13:21 ` Tim O'Callaghan
2006-06-15 17:38   ` Carsten Dominik
2006-06-15 19:02     ` Tim O'Callaghan
2006-06-20 12:09   ` Tim O'Callaghan
2006-06-20 13:47     ` Carsten Dominik
2006-06-20 15:03       ` Tim O'Callaghan
2006-06-20 15:11         ` Carsten Dominik
2006-06-20 16:26           ` Carsten Dominik
     [not found]         ` <c55b018aaf03fc22cde44a33e739b86d@science.uva.nl>
     [not found]           ` <20060620162457.GE1132@ELSAMSW37164>
2006-06-20 16:36             ` Carsten Dominik
2006-06-20 16:53               ` Tim O'Callaghan
2006-06-20 17:13                 ` Carsten Dominik
2006-06-20 17:29                   ` Tim O'Callaghan
2006-06-20 17:33                     ` Carsten Dominik
2006-06-21  0:15                       ` Michael Olson
2006-06-21  4:55                         ` Carsten Dominik
  -- strict thread matches above, loose matches on Subject: below --
2006-06-22 15:35 Tim O'Callaghan
2006-06-23  6:24 ` Carsten Dominik

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).