From: Carsten Dominik <carsten.dominik@gmail.com>
To: Tim O'Callaghan <timo@dspsrv.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Attention XEmacs users
Date: Fri, 23 Jun 2006 08:24:54 +0200 [thread overview]
Message-ID: <0416ea8cc6f845f978eccbd31e3861cd@science.uva.nl> (raw)
In-Reply-To: <20060622153542.GA3072@ELSAMSW37164>
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
next prev parent reply other threads:[~2006-06-23 6:24 UTC|newest]
Thread overview: 17+ messages / expand[flat|nested] mbox.gz Atom feed top
2006-06-22 15:35 Attention XEmacs users Tim O'Callaghan
2006-06-23 6:24 ` Carsten Dominik [this message]
-- strict thread matches above, loose matches on Subject: below --
2006-06-14 16:54 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
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=0416ea8cc6f845f978eccbd31e3861cd@science.uva.nl \
--to=carsten.dominik@gmail.com \
--cc=emacs-orgmode@gnu.org \
--cc=timo@dspsrv.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).