ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fix org-at-TBLFM-p 

* lisp/org.el (org-at-TBLFM-p): Make sure match is case-insensitive.
  Improve speed in the general case.
This commit is contained in:
Nicolas Goaziou 2015-07-29 23:06:28 +02:00
parent 84d5986cdf
commit 57883f7957
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/org.el
View File

@ -4570,8 +4570,8 @@ is nil, return nil unconditionally."
(save-excursion (save-excursion
(goto-char (or pos (point))) (goto-char (or pos (point)))
(beginning-of-line) (beginning-of-line)
(and (eq (org-element-type (org-element-at-point)) 'table) (and (let ((case-fold-search t)) (looking-at org-TBLFM-regexp))
(looking-at org-TBLFM-regexp)))) (eq (org-element-type (org-element-at-point)) 'table))))
(defvar org-clock-start-time) (defvar org-clock-start-time)
(defvar org-clock-marker (make-marker) (defvar org-clock-marker (make-marker)