| 
					
				 | 
			
			
				@@ -308,7 +308,7 @@ MATCHED is the link just matched." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (let* ((link (match-string 1 matched)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (text (match-string 2 matched)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (ext (file-name-extension link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-         (col-pos (string-match-p ":" link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+         (col-pos (org-string-match-p ":" link)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				          (is-img (and (image-type-from-file-name link) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                       (let ((url-type (substring link 0 col-pos))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                         (member url-type '("file" "http" "https"))))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -414,7 +414,7 @@ MATCHED is the link just matched." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-freemind-convert-text-p (text) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Convert TEXT to html with <p> paragraphs." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   ;; (string-match-p "[^ ]" "  a") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (setq org-freemind-bol-helper-base-indent (string-match-p "[^ ]" text)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (setq org-freemind-bol-helper-base-indent (org-string-match-p "[^ ]" text)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (setq text (org-freemind-escape-str-from-org text)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (setq text (replace-regexp-in-string "\\([[:space:]]\\)\\(/\\)\\([^/]+\\)\\(/\\)\\([[:space:]]\\)" "\\1<i>\\3</i>\\5" text)) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -658,7 +658,7 @@ Otherwise give an error say the file exists." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-freemind-write-mm-buffer (org-buffer mm-buffer node-at-line) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   (with-current-buffer org-buffer 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (dolist (node-style org-freemind-node-styles) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (when (string-match-p (car node-style) buffer-file-name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (when (org-string-match-p (car node-style) buffer-file-name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (setq org-freemind-node-style (cadr node-style)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     ;;(message "org-freemind-node-style =%s" org-freemind-node-style) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (save-match-data 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -835,7 +835,7 @@ Otherwise give an error say the file exists." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (dolist (style-list org-freemind-node-style) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((node-regexp (car style-list))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				         (message "node-regexp=%s node-name=%s" node-regexp node-name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-        (when (string-match-p node-regexp node-name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+        (when (org-string-match-p node-regexp node-name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           ;;(setq node-style (org-freemind-do-apply-node-style style-list)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (setq node-style (cadr style-list)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (when node-style 
			 |