| 
					
				 | 
			
			
				@@ -66,7 +66,7 @@ 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				  
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-info-follow-link (name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Follow an Info file and node link specified by NAME." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (if (or (string-match "\\(.*\\)[#:]:?\\(.*\\)" name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (if (or (string-match "\\(.*\\)\\(:?#\\|::\\)\\(.*\\)" name) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				           (string-match "\\(.*\\)" name)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((filename (match-string 1 name)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (nodename-or-index (or (match-string 2 name) "Top"))) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -129,7 +129,7 @@ See `org-info-emacs-documents' and `org-info-other-documents' for details." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 (defun org-info-export (path desc format) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				   "Export an info link. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 See `org-link-parameters' for details about PATH, DESC and FORMAT." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-  (let* ((parts (split-string path "[#:]:?")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+  (let* ((parts (split-string path "#\\|::")) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (manual (car parts)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (node (or (nth 1 parts) "Top"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (pcase format 
			 |