Re: [Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)
Lennart Borgman lennart.borg...@gmail.com writes: Thanks, I have seen this. Is not rx available at all in XEmacs? It isn't AFAIK. What I don't understand: As rx is not available I had put rx.el from Emacs into my path and require it in my init.el. With freemind.el 0.58 this worked under org-mode 6.21b and for freemind-to-org-mode also under 6.32trans and 6.33trans. With the org-freemind.el included in org-mode 6.32trans and 6.33trans it doesn't work. Unfortunately thinks do not stop here: Neither freemind-from-org-mode nor org-freemind-from-org-mode work now under 6.33trans. I get an error I had with freemind.el 0.57: Debugger entered--Lisp error: (wrong-type-argument stringp nil) string-match(TODO nil) (if (string-match TODO this-m2) (progn (setq this-m2 ...) (add-to-list ... button_cancel) (setq this-bg-color #88) (when ... ...))) (when (string-match TODO this-m2) (setq this-m2 (replace-match nil nil this-m2)) (add-to-list (quote this-icons) button_cancel) (setq this-bg-color #88) (when (string-match \\[#\\(.\\)\\] this-m2) (let ... ... ...))) (let* (this-icons this-bg-color this-m2-escaped this-rich-node this-rich-note) (when (string-match TODO this-m2) (setq this-m2 ...) (add-to-list ... button_cancel) (setq this-bg-color #88) (when ... ...)) (setq this-m2 (org-trim this-m2)) (setq this-m2-escaped (freemind-escape-str-from-org this-m2)) (let (...) (setq this-rich-node ...) (setq this-rich-note ...)) (with-current-buffer mm-buffer (insert node text=\ this-m2-escaped \) (freemind-get-node-style this-m2) (when ... ...) (when ... ... ...) (when this-bg-color ...) (insert \n) (when this-icons ...)) (with-current-buffer mm-buffer (when this-rich-note ...) (when this-rich-node ...))) freemind-write-node() (let (this-m2 this-node-end this-children-visible next-m2 next-level next-has-some-visible-child next-children-visible) (while (and ... ...) (let* ... ... ... ... ... ... ... ... ... ... ... ... ...)) (setq this-m2 next-m2) (setq current-level next-level) (setq next-node-start (if node-at-line-last ... ...)) (freemind-write-node) (with-current-buffer mm-buffer (insert /node\n))) (save-excursion (goto-char (point-min)) (while (re-search-forward ... nil t) (let ... ...)) (setq drawers-regexp (concat ... ... ...)) (if node-at-line (progn ... ... ... ... ... ... ... ...) (goto-char ...) (while ... ...) (goto-char ...) (when ... ... ... ...)) (setq num-left-nodes (floor num-top2-nodes 2)) (setq base-level current-level) (let (this-m2 this-node-end this-children-visible next-m2 next-level next-has-some-visible-child next-children-visible) (while ... ...) (setq this-m2 next-m2) (setq current-level next-level) (setq next-node-start ...) (freemind-write-node) (with-current-buffer mm-buffer ...)) (with-current-buffer mm-buffer (while ... ... ...)) (with-current-buffer mm-buffer (insert /map) (delete-trailing-whitespace) (goto-char ...))) (let* ((drawers ...) drawers-regexp (node-pattern ...) (num-top1-nodes 0) (num-top2-nodes 0) num-left-nodes (unclosed-nodes 0) (first-time t) (current-level 1) base-level prev-node-end rich-text unfinished-tag node-at-line-level node-at-line-last) (with-current-buffer mm-buffer (erase-buffer) (insert ?xml version=\1.0\ encoding=\utf-8\?\n) (insert map version=\0.9.0\\n) (insert !-- To view this file, download free mind mapping software FreeMind from http://freemind.sourceforge.net --\n)) (save-excursion (goto-char ...) (while ... ...) (setq drawers-regexp ...) (if node-at-line ... ... ... ... ...) (setq num-left-nodes ...) (setq base-level current-level) (let ... ... ... ... ... ... ...) (with-current-buffer mm-buffer ...) (with-current-buffer mm-buffer ... ... ...))) (progn (let* (... drawers-regexp ... ... ... num-left-nodes ... ... ... base-level prev-node-end rich-text unfinished-tag node-at-line-level node-at-line-last) (with-current-buffer mm-buffer ... ... ... ...) (save-excursion ... ... ... ... ... ... ... ... ...))) (unwind-protect (progn (let* ... ... ...)) (store-match-data match-data)) (let ((match-data ...)) (unwind-protect (progn ...) (store-match-data match-data))) (save-match-data (let* (... drawers-regexp ... ... ... num-left-nodes ... ... ... base-level prev-node-end rich-text unfinished-tag node-at-line-level node-at-line-last) (with-current-buffer mm-buffer ... ... ... ...) (save-excursion ... ... ... ... ... ... ... ... ...))) (save-current-buffer (set-buffer org-buffer) (dolist (node-style freemind-node-styles) (when ... ...)) (save-match-data (let* ... ... ...))) (with-current-buffer org-buffer (dolist (node-style freemind-node-styles) (when ... ...)) (save-match-data (let* ... ... ...))) freemind-write-mm-buffer(#buffer Testnote22.mm.org #buffer Testnote22.mm.org.mm nil) (let ((org-buffer ...) (mm-buffer ...)) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-buffer mm-buffer (basic-save-buffer) (when ... ... ...))) (if
Re: [Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)
Hi Andreas, thanks for the additional information. It seems that Lennart is using calls to `rx' to make his regular expressions, and that function does not seem to exist in your XEmacs installation. I believe all these rx calls could be just substituted by a regexp string. Maybe you can contact Lennart about this issue? I am putting him into the CC. And I have no idea if there will be additional issues with XEmacs compatibility with this new module. - Carsten On Nov 14, 2009, at 12:36 AM, Andreas Gösele wrote: Carsten Dominik carsten.dominik at gmail.com writes: I don't know what you are missing, but your Email is missing a backtrace. Well, xemacs -debug-init didn't give one. But I now tried manually to evaluate the org-mode related lines in my init.el and the offending line was: (require 'org-freemind) Debugger entered--Lisp error: (void-variable bol) byte-code(... [eol nonl space bol current-load-list org-freemind-node-pattern default-boundp set-default rx submatch * *\?] 9) load-internal(org-freemind nil t nil binary) load(org-freemind nil t nil) require(org-freemind) eval((require (quote org-freemind))) eval-interactive((require (quote org-freemind))) eval-last-sexp(nil) call-interactively(eval-last-sexp) I think I don't need that line in my init.el. But without it, trying to use for instance org-freemind-to-org-mode gives: Debugger entered--Lisp error: (void-variable bol) byte-code(... [eol nonl space bol current-load-list org-freemind-node-pattern default-boundp set-default rx submatch * *\?] 9) load-internal(org-freemind nil nil nil binary) load(org-freemind nil nil nil) command-execute(org-freemind-to-org-mode t) execute-extended-command(nil) call-interactively(execute-extended-command) Thanks again! Andreas Gösele ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode - Carsten ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode
[Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)
Carsten Dominik carsten.dominik at gmail.com writes: I don't know what you are missing, but your Email is missing a backtrace. Well, xemacs -debug-init didn't give one. But I now tried manually to evaluate the org-mode related lines in my init.el and the offending line was: (require 'org-freemind) Debugger entered--Lisp error: (void-variable bol) byte-code(... [eol nonl space bol current-load-list org-freemind-node-pattern default-boundp set-default rx submatch * *\?] 9) load-internal(org-freemind nil t nil binary) load(org-freemind nil t nil) require(org-freemind) eval((require (quote org-freemind))) eval-interactive((require (quote org-freemind))) eval-last-sexp(nil) call-interactively(eval-last-sexp) I think I don't need that line in my init.el. But without it, trying to use for instance org-freemind-to-org-mode gives: Debugger entered--Lisp error: (void-variable bol) byte-code(... [eol nonl space bol current-load-list org-freemind-node-pattern default-boundp set-default rx submatch * *\?] 9) load-internal(org-freemind nil nil nil binary) load(org-freemind nil nil nil) command-execute(org-freemind-to-org-mode t) execute-extended-command(nil) call-interactively(execute-extended-command) Thanks again! Andreas Gösele ___ Emacs-orgmode mailing list Remember: use `Reply All' to send replies to the list. Emacs-orgmode@gnu.org http://lists.gnu.org/mailman/listinfo/emacs-orgmode