mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-24 22:32:53 +00:00
Fix compiler issues with org-freemind.el
This commit is contained in:
parent
d5d6ff83bd
commit
52fe733f84
|
@ -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
|
||||
|
|
Loading…
Reference in a new issue