mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-24 22:32:53 +00:00
Code Releases Activity

Fix compiler issues with org-freemind.el

Browse source
This commit is contained in:
Carsten Dominik 2009-11-10 17:27:40 +01:00
parent d5d6ff83bd
commit 52fe733f84
1 changed files with 16 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
lisp/org-freemind.el
View file

@ -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 "&lt;" "<" 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