From 57883f79570dc2aea9a1b79012530f0223fe9e82 Mon Sep 17 00:00:00 2001 From: Nicolas Goaziou Date: Wed, 29 Jul 2015 23:06:28 +0200 Subject: [PATCH] Fix org-at-TBLFM-p * lisp/org.el (org-at-TBLFM-p): Make sure match is case-insensitive. Improve speed in the general case. --- lisp/org.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lisp/org.el b/lisp/org.el index 4703536cd..1f7d4568b 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)