Merge branch 'master' into next
This commit is contained in:
commit
19a75de480
|
@ -10132,9 +10132,10 @@ a link."
|
||||||
(org-search-radio-target
|
(org-search-radio-target
|
||||||
(org-element-property :path context))
|
(org-element-property :path context))
|
||||||
(org-link-search
|
(org-link-search
|
||||||
(if (member type '("custom-id" "coderef"))
|
(pcase type
|
||||||
(org-element-property :raw-link context)
|
("custom-id" (concat "#" path))
|
||||||
path)
|
("coderef" (format "(%s)" path))
|
||||||
|
(_ path))
|
||||||
;; Prevent fuzzy links from matching
|
;; Prevent fuzzy links from matching
|
||||||
;; themselves.
|
;; themselves.
|
||||||
(and (equal type "fuzzy")
|
(and (equal type "fuzzy")
|
||||||
|
|
|
@ -2338,6 +2338,12 @@ SCHEDULED: <2014-03-04 tue.>"
|
||||||
"* H1\n:PROPERTIES:\n:CUSTOM_ID: custom\n:END:\n* H2\n[[#custom<point>]]"
|
"* H1\n:PROPERTIES:\n:CUSTOM_ID: custom\n:END:\n* H2\n[[#custom<point>]]"
|
||||||
(org-open-at-point)
|
(org-open-at-point)
|
||||||
(looking-at-p "\\* H1")))
|
(looking-at-p "\\* H1")))
|
||||||
|
;; Handle escape characters.
|
||||||
|
(should
|
||||||
|
(org-test-with-temp-text
|
||||||
|
"* H1\n:PROPERTIES:\n:CUSTOM_ID: [%]\n:END:\n* H2\n[[#%5B%25%5D<point>]]"
|
||||||
|
(org-open-at-point)
|
||||||
|
(looking-at-p "\\* H1")))
|
||||||
;; Throw an error on false positives.
|
;; Throw an error on false positives.
|
||||||
(should-error
|
(should-error
|
||||||
(org-test-with-temp-text
|
(org-test-with-temp-text
|
||||||
|
|
Loading…
Reference in New Issue