瀏覽代碼

Revert "org-element: Fix radio-target and radio link parsing"

This reverts commit 5174495ee6f8758109e6c009f8a351e79481d5b8.

Conflicts:
	lisp/org-element.el
Nicolas Goaziou 11 年之前
父節點
當前提交
0c4ab29d0a
共有 1 個文件被更改,包括 9 次插入13 次删除
  1. 9 13
      lisp/org-element.el

+ 9 - 13
lisp/org-element.el

@@ -3094,12 +3094,9 @@ Assume point is at the beginning of the link."
        ;; Type 1: Text targeted from a radio target.
        ((and org-target-link-regexp (looking-at org-target-link-regexp))
 	(setq type "radio"
-	      contents-begin (match-beginning 0)
-	      contents-end (match-end 0)
-	      link-end contents-end
-	      raw-link (org-match-string-no-properties 0)
-	      path (downcase raw-link)))
-       ;; Type 2: Standard link, e.g. [[http://orgmode.org][homepage]]
+	      link-end (match-end 0)
+	      path (org-match-string-no-properties 0)))
+       ;; Type 2: Standard link, i.e. [[http://orgmode.org][homepage]]
        ((looking-at org-bracket-link-regexp)
 	(setq contents-begin (match-beginning 3)
 	      contents-end (match-end 3)
@@ -3267,8 +3264,8 @@ beginning position."
   "Parse radio target at point.
 
 Return a list whose CAR is `radio-target' and CDR a plist with
-`:value', `:raw-value', `:begin', `:end', `:contents-begin',
-`:contents-end', and `:post-blank' as keywords.
+`:begin', `:end', `:contents-begin', `:contents-end', `:value'
+and `:post-blank' as keywords.
 
 Assume point is at the radio target."
   (save-excursion
@@ -3276,18 +3273,17 @@ Assume point is at the radio target."
     (let ((begin (point))
 	  (contents-begin (match-beginning 1))
 	  (contents-end (match-end 1))
-	  (raw-value (org-match-string-no-properties 1))
+	  (value (org-match-string-no-properties 1))
 	  (post-blank (progn (goto-char (match-end 0))
 			     (skip-chars-forward " \t")))
 	  (end (point)))
       (list 'radio-target
-	    (list :value (downcase raw-value)
-		  :raw-value raw-value
-		  :begin begin
+	    (list :begin begin
 		  :end end
 		  :contents-begin contents-begin
 		  :contents-end contents-end
-		  :post-blank post-blank)))))
+		  :post-blank post-blank
+		  :value value)))))
 
 (defun org-element-radio-target-interpreter (target contents)
   "Interpret TARGET object as Org syntax.