Browse Source

Merge branch 'maint'

Nicolas Goaziou 11 years ago
parent
commit
b8028c607d
1 changed files with 1 additions and 1 deletions
  1. 1 1
      lisp/ob-core.el

+ 1 - 1
lisp/ob-core.el

@@ -224,7 +224,7 @@ Returns non-nil if match-data set"
   (let ((src-at-0-p (save-excursion
 		      (beginning-of-line 1)
 		      (string= "src" (thing-at-point 'word))))
-	(first-line-p (= 1 (line-number-at-pos)))
+	(first-line-p (= (line-beginning-position) (point-min)))
 	(orig (point)))
     (let ((search-for (cond ((and src-at-0-p first-line-p  "src_"))
 			    (first-line-p "[[:punct:] \t]src_")