mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-09-29 19:37:52 +00:00
Code Releases Activity

Fix org-at-TBLFM-p

Browse source 
* 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
(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)