Selaa lähdekoodia

babel: Fix bug in org-babel-get-inline-src-block-matches.

* lisp/ob-core.el (org-babel-get-inline-src-block-matches): Use
`org-looking-at-p' instead of `thing-at-point'.

The latter could give odd results depending on the syntax table.  In
particular, for me (thing-at-point 'word) was returning src_foo in
this context.
Aaron Ecay 10 vuotta sitten
vanhempi
commit
d45b5a7884
1 muutettua tiedostoa jossa 1 lisäystä ja 1 poistoa
  1. 1 1
      lisp/ob-core.el

+ 1 - 1
lisp/ob-core.el

@@ -230,7 +230,7 @@ not match KEY should be returned."
 Returns non-nil if match-data set"
   (let ((src-at-0-p (save-excursion
 		      (beginning-of-line 1)
-		      (string= "src" (thing-at-point 'word))))
+		      (org-looking-at-p "src")))
 	(first-line-p (= (line-beginning-position) (point-min)))
 	(orig (point)))
     (let ((search-for (cond ((and src-at-0-p first-line-p  "src_"))