Re: [Emacs-orgmode] org-publish error

2006-06-22 Thread David O'Toole

Looking at the backtrace, I'd say the error occurs inside
org.el. Carsten, perhaps you could look at this? 

Leon <[EMAIL PROTECTED]> writes:

> Hi all,
>
> org 4.38
>
> When I delete the published html file, sequent publish will fail with
> error. Here is the backbrace.
>
> Debugger entered--Lisp error: (error "File ~/Desktop/studyplan.html no longer 
> exists!")
>   signal(error ("File ~/Desktop/studyplan.html no longer exists!"))
>   error("File %s no longer exists!" "~/Desktop/studyplan.html")
>   find-file-noselect("./studyplan.html")
>   (let* ((opt-plist ...) (style ...) (link-validate ...) valid (odd 
> org-odd-levels-only) (region-p ...) (region ...) (all_lines ...) (lines ...) 
> (level 0) (line "") (origline "") txt todo (umax nil) (filename ...) 
> (current-dir ...) (buffer ...) (levels-open ...) (date ...) (time ...) 
> (author ...) (title ...) (quote-re0 ...) (quote-re ...) (inquote nil) 
> (infixed nil) (in-local-list nil) (local-list-num nil) (local-list-indent 
> nil) (llt org-plain-list-ordered-item-terminator) (email ...) (language ...) 
> (text ...) (lang-words nil) (target-alist nil) tg (head-count 0) cnt (start 
> 0) (coding-system ...) (coding-system-for-write ...) 
> (save-buffer-coding-system ...) (charset ...) table-open type table-buffer 
> table-orig-buffer ind start-is-num ...) (message "Exporting...") (setq 
> org-last-level 1) (org-init-section-numbers) (setq lang-words (or ... ...)) 
> (if (or hidden ...) (set-buffer buffer) (switch-to-buffer-other-window 
> buffer)) (erase-buffer) (fundamental-mode) (let (... ...) (mapcar ... 
> org-export-plist-vars) (setq umax ...) (insert ...) (insert ...) (when ... 
> ... ...) (if org-export-with-toc ...) (setq head-count 0) 
> (org-init-section-numbers) (while ... ...) (when inquote ...) (when 
> in-local-list ... ...) (org-html-level-start 1 nil umax ... head-count) (when 
> ... ... ...) (if org-export-html-with-timestamp ...) (insert ...) (insert 
> "\n\n") (normal-mode) (goto-char ...) (while ... ...) 
> (goto-char ...) (while ... ...) (save-buffer) (goto-char ...)))
>   org-export-as-html(nil)
>   call-interactively(org-export-as-html)
>   (if (setq ass (assq r2 cmds)) (call-interactively (cdr ass)) (error "No 
> command associated with key %c" r1))
>   (let ((help "[t]   insert the export option template\n[v]   limit export to 
> visible part of outline tree\n\n[a] export as ASCII\n[h] export as HTML\n[b] 
> export as HTML and browse immediately\n[x] export as XOXO\n\n[i] export 
> current file as iCalendar file\n[I] export all agenda files as iCalendar 
> files\n[c] export agenda files into combined iCalendar file\n\n[F] publish 
> current file\n[P] publish current project\n[X] publish... (project will be 
> prompted for)\n[A] publish all projects") (cmds ...) r1 r2 ass) 
> (save-window-excursion (delete-other-windows) (with-output-to-temp-buffer 
> "*Org Export/Publishing Help*" ...) (message "Select command: ") (setq r1 
> ...)) (setq r2 (if ... ... r1)) (if (setq ass ...) (call-interactively ...) 
> (error "No command associated with key %c" r1)))
>   org-export()
>   call-interactively(org-export)
>
> -- 
> Leon
>
>
>
> ___
> Emacs-orgmode mailing list
> Emacs-orgmode@gnu.org
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode

-- 
David O'Toole 
[EMAIL PROTECTED]
http://dto.freeshell.org/notebook/


___
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


Re: [Emacs-orgmode] Attention XEmacs users

2006-06-22 Thread Tim O'Callaghan
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)))(# nil)
  map-extents((lambda (ex ignored) (if (< ... beg) (if ... ... 
set-extent-endpoints ex ... beg)) (if (> ... end) (set-extent-endpoints ex end 
...) (delete-extent ex))) # 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


Re: [Emacs-orgmode] Attention XEmacs users

2006-06-22 Thread Carsten Dominik
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



___
Emacs-orgmode mailing list
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode