diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-07-29 23:06:28 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2015-08-02 17:56:12 +0200 |
commit | 57883f79570dc2aea9a1b79012530f0223fe9e82 (patch) | |
tree | a703c14479e567db54b928c100abad8f552cae24 | |
parent | 84d5986cdfbbb64bec00380589c564608eb65958 (diff) | |
download | org-mode-57883f79570dc2aea9a1b79012530f0223fe9e82.tar.gz |
Fix org-at-TBLFM-p
* lisp/org.el (org-at-TBLFM-p): Make sure match is case-insensitive.
Improve speed in the general case.
-rwxr-xr-x | lisp/org.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/org.el b/lisp/org.el index 4703536..1f7d456 100755 --- a/lisp/org.el +++ b/lisp/org.el @@ -4570,8 +4570,8 @@ is nil, return nil unconditionally." (save-excursion (goto-char (or pos (point))) (beginning-of-line) - (and (eq (org-element-type (org-element-at-point)) 'table) - (looking-at org-TBLFM-regexp)))) + (and (let ((case-fold-search t)) (looking-at org-TBLFM-regexp)) + (eq (org-element-type (org-element-at-point)) 'table)))) (defvar org-clock-start-time) (defvar org-clock-marker (make-marker) |