forked from mirrors/org-mode
org-list.el (org-mark-list): Delete.
* org-list.el (org-mark-list): Delete.
This commit is contained in:
parent
97c7e9c88a
commit
cbb7742d3b
|
@ -2202,20 +2202,6 @@ item is invisible."
|
||||||
(goto-char (match-end 0))
|
(goto-char (match-end 0))
|
||||||
t)))))
|
t)))))
|
||||||
|
|
||||||
(defun org-mark-list ()
|
|
||||||
"Mark the current list.
|
|
||||||
If this is a sublist, only mark the sublist."
|
|
||||||
(interactive)
|
|
||||||
(if (not (org-at-item-p))
|
|
||||||
(error "Not on a list")
|
|
||||||
(let* ((item (org-list-get-item-begin))
|
|
||||||
(struct (org-list-struct))
|
|
||||||
(prevs (org-list-prevs-alist struct))
|
|
||||||
(lbeg (org-list-get-list-begin item struct prevs))
|
|
||||||
(lend (org-list-get-list-end item struct prevs)))
|
|
||||||
(push-mark lend nil t)
|
|
||||||
(goto-char lbeg))))
|
|
||||||
|
|
||||||
(defun org-list-repair ()
|
(defun org-list-repair ()
|
||||||
"Fix indentation, bullets and checkboxes is the list at point."
|
"Fix indentation, bullets and checkboxes is the list at point."
|
||||||
(interactive)
|
(interactive)
|
||||||
|
|
Loading…
Reference in New Issue