From 52fe733f8457f1da7576d5d4213feffb1c273052 Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 10 Nov 2009 17:27:40 +0100 Subject: [PATCH] Fix compiler issues with org-freemind.el --- lisp/org-freemind.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/org-freemind.el b/lisp/org-freemind.el index 2d0bed83d..81b597a7f 100644 --- a/lisp/org-freemind.el +++ b/lisp/org-freemind.el @@ -80,6 +80,7 @@ (require 'xml) (require 'org) +(require 'org-exp) (eval-when-compile (require 'cl)) ;; Fix-me: I am not sure these are useful: @@ -240,8 +241,11 @@ NOT READY YET." )))) fm-str)) + (defun org-freemind-unescape-str-to-org (fm-str) - (let ((org-str fm-str)) + (let ((org-str fm-str) + str) ; str is scoped into the lambda below by replace-regexp-in-string + ; We bind it anyway, to shut up compiler (setq org-str (replace-regexp-in-string """ "\"" org-str)) (setq org-str (replace-regexp-in-string "&" "&" org-str)) (setq org-str (replace-regexp-in-string "<" "<" org-str)) @@ -317,6 +321,7 @@ NOT READY YET." ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;; Org => FreeMind +(defvar drawers-regexp) ;; dynamically scoped (defun org-freemind-org-text-to-freemind-subnode/note (node-name start end) ;; fix-me: doc (let ((text (buffer-substring-no-properties start end)) @@ -395,6 +400,16 @@ NOT READY YET." ))) (list node-res note-res)))) +;; The following variables are all dynamically scoped within this module +(defvar next-node-start) +(defvar mm-buffer) +(defvar next-level) +(defvar current-level) +(defvar this-children-visible) +(defvar next-has-some-visible-child) +(defvar base-level) +(defvar num-left-nodes) + (defun org-freemind-write-node (this-m2 this-node-end) (let* (this-icons this-bg-color