Merge branch 'maint'
This commit is contained in:
commit
bbb451a7b6
|
@ -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.
|
||||||
|
|
Loading…
Reference in New Issue