| 
					
				 | 
			
			
				@@ -1831,16 +1831,19 @@ Also, store forcedalignment information found in such lines." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	nodesc) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (while (re-search-forward re-plain-link nil t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (goto-char (1- (match-end 0))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-      (org-if-unprotected-at (1+ (match-beginning 0)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-       (let* ((s (concat (match-string 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 "[[" (match-string 2) ":" (match-string 3) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 "][" (match-string 2) ":" (org-export-protect-sub-super 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-						    (match-string 3)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-			 "]]"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 ;; added 'org-link face to links 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (put-text-property 0 (length s) 'face 'org-link s) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (replace-match s t t)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+      (unless (org-string-match-p 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       "\\[\\[\\S+:\\S-*?\\<" 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (buffer-substring (point-at-bol) (match-beginning 0))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(goto-char (1- (match-end 0))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(org-if-unprotected-at (1+ (match-beginning 0)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	  (let* ((s (concat (match-string 1) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			    "[[" (match-string 2) ":" (match-string 3) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			    "][" (match-string 2) ":" (org-export-protect-sub-super 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+						       (match-string 3)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+			    "]]"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    ;; added 'org-link face to links 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (put-text-property 0 (length s) 'face 'org-link s) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	    (replace-match s t t))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (goto-char (point-min)) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (while (re-search-forward re-angle-link nil t) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (goto-char (1- (match-end 0))) 
			 |