Tiny refactoring
* lisp/org.el (org-edit-special): Tiny refactoring.
This commit is contained in:
parent
038c50a721
commit
5bc8492388
|
@ -20980,8 +20980,7 @@ On a link, call `ffap' to visit the link at point.
|
||||||
Otherwise, return a user error."
|
Otherwise, return a user error."
|
||||||
(interactive "P")
|
(interactive "P")
|
||||||
(let ((element (org-element-at-point)))
|
(let ((element (org-element-at-point)))
|
||||||
(cl-assert (not buffer-read-only) nil
|
(barf-if-buffer-read-only)
|
||||||
"Buffer is read-only: %s" (buffer-name))
|
|
||||||
(pcase (org-element-type element)
|
(pcase (org-element-type element)
|
||||||
(`src-block
|
(`src-block
|
||||||
(if (not arg) (org-edit-src-code)
|
(if (not arg) (org-edit-src-code)
|
||||||
|
|
Loading…
Reference in New Issue