From mboxrd@z Thu Jan 1 00:00:00 1970 From: Carsten Dominik Subject: Re: Attention XEmacs users Date: Fri, 23 Jun 2006 08:24:54 +0200 Message-ID: <0416ea8cc6f845f978eccbd31e3861cd@science.uva.nl> References: <20060622153542.GA3072@ELSAMSW37164> Mime-Version: 1.0 (Apple Message framework v624) Content-Type: text/plain; charset=US-ASCII; format=flowed Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1Ftf67-0006IY-6y for emacs-orgmode@gnu.org; Fri, 23 Jun 2006 02:24:55 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1Ftf66-0006IM-Du for emacs-orgmode@gnu.org; Fri, 23 Jun 2006 02:24:54 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1Ftf66-0006IJ-9D for emacs-orgmode@gnu.org; Fri, 23 Jun 2006 02:24:54 -0400 Received: from [66.249.92.173] (helo=ug-out-1314.google.com) by monty-python.gnu.org with esmtp (Exim 4.52) id 1FtfHE-0001SJ-RC for emacs-orgmode@gnu.org; Fri, 23 Jun 2006 02:36:25 -0400 Received: by ug-out-1314.google.com with SMTP id y2so940840uge for ; Thu, 22 Jun 2006 23:24:53 -0700 (PDT) In-Reply-To: <20060622153542.GA3072@ELSAMSW37164> List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-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: Tim O'Callaghan Cc: emacs-orgmode@gnu.org 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)))(# [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))) # "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