tec/org-mode
tec/org-mode
1
0
Fork 0
forked from mirrors/org-mode
Code Pull requests Releases Activity

org.el (org-in-fixed-width-region-p): Rewrite using org-element.el.

Browse source 
* org.el (org-in-fixed-width-region-p): Rewrite using
org-element.el.

Thanks to Nicolas Goaziou for suggesting this.
This commit is contained in:
Bastien Guerry 2012-12-18 15:09:40 +01:00
parent 9d4dd69b30
commit 374efdd63e
1 changed files with 3 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/org.el
View file

@ -20253,12 +20253,9 @@ when point is at #+BEGIN_SRC or #+END_SRC."
(move-beginning-of-line 1) (move-beginning-of-line 1)
(looking-at ".*#\\+\\(BEGIN\\|END\\)_SRC"))))))) (looking-at ".*#\\+\\(BEGIN\\|END\\)_SRC")))))))
(defun org-in-fixed-width-region-p () (defsubst org-in-fixed-width-region-p ()
"Whether point is in a fixed-width region." "Is point in a fixed-width region?"
(save-match-data (eq 'fixed-width (org-element-type (org-element-at-point))))
(save-excursion
(beginning-of-line 1)
(looking-at "^: "))))
(defun org-context () (defun org-context ()
"Return a list of contexts of the current cursor position. "Return a list of contexts of the current cursor position.