Re: [Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)
Lennart Borgman 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 "\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
"\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 "")
(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 "\n") (insert
"\n") (insert "\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(# # 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 (freemind-check-overwrite mm-file (called-interactively-p)) (let (...
...) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-buffer
mm-buffer ... ...)))
(when (freemind-check-overwrite mm-file (called-interactively-p)) (let (...
...) (freemind-write-mm-buffer org-buffer mm-buffer nil) (with-current-buffer
mm-buffer ... ...)))
(lambda (org-file
Re: [Orgmode] Re: Howto install from git under XEmacs (org-freemind problem)
Thanks, I have seen this. Is not rx available at all in XEmacs?
On Sun, Nov 15, 2009 at 12:17 PM, Carsten Dominik
wrote:
>
> 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 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
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 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 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
