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

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

* 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)
(looking-at ".*#\\+\\(BEGIN\\|END\\)_SRC")))))))
(defun org-in-fixed-width-region-p ()
"Whether point is in a fixed-width region."
(save-match-data
(save-excursion
(beginning-of-line 1)
(looking-at "^: "))))
(defsubst org-in-fixed-width-region-p ()
"Is point in a fixed-width region?"
(eq 'fixed-width (org-element-type (org-element-at-point))))
(defun org-context ()
"Return a list of contexts of the current cursor position.