Explorar o código

Merge branch 'maint'

Bastien Guerry %!s(int64=12) %!d(string=hai) anos
pai
achega
bbb451a7b6
Modificáronse 1 ficheiros con 3 adicións e 6 borrados
  1. 3 6
      lisp/org.el

+ 3 - 6
lisp/org.el

@@ -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 ()
-  "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 ()
 (defun org-context ()
   "Return a list of contexts of the current cursor position.
   "Return a list of contexts of the current cursor position.