Просмотр исходного кода

ob.el: Fix byte-compiler warning about free variable.

Bastien Guerry 14 лет назад
Родитель
Сommit
ecf5368afe
1 измененных файлов с 1 добавлено и 2 удалено
  1. 1 2
      lisp/ob.el

+ 1 - 2
lisp/ob.el

@@ -181,10 +181,10 @@ Returns non-nil if match-data set"
 	  (when (looking-at org-babel-inline-src-block-regexp)
 	  (when (looking-at org-babel-inline-src-block-regexp)
 	    t ))))))
 	    t ))))))
 
 
+(defvar org-babel-inline-lob-one-liner-regexp)
 (defun org-babel-get-lob-one-liner-matches()
 (defun org-babel-get-lob-one-liner-matches()
   "Set match data if on line of an lob one liner.
   "Set match data if on line of an lob one liner.
 Returns non-nil if match-data set"
 Returns non-nil if match-data set"
-
   (save-excursion
   (save-excursion
     (unless (= (point) (point-at-bol)) ;; move before inline block
     (unless (= (point) (point-at-bol)) ;; move before inline block
       (re-search-backward "[ \f\t\n\r\v]" nil t))
       (re-search-backward "[ \f\t\n\r\v]" nil t))
@@ -1490,7 +1490,6 @@ region is not active then the point is demarcated."
 	(goto-char start) (move-end-of-line 1)))))
 	(goto-char start) (move-end-of-line 1)))))
 
 
 (defvar org-babel-lob-one-liner-regexp)
 (defvar org-babel-lob-one-liner-regexp)
-(defvar org-babel-inline-lob-one-liner-regexp)
 (defun org-babel-where-is-src-block-result (&optional insert info hash indent)
 (defun org-babel-where-is-src-block-result (&optional insert info hash indent)
   "Find where the current source block results begin.
   "Find where the current source block results begin.
 Return the point at the beginning of the result of the current
 Return the point at the beginning of the result of the current