Merge branch 'maint'

This commit is contained in:
Bastien Guerry 2012-12-18 15:09:54 +01:00
commit bbb451a7b6
1 changed files with 3 additions and 6 deletions

View File

@ -20606,12 +20606,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.