mirror/org-mode
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-11-28 07:44:49 +00:00
Code

org-list.el (org-mark-list): Delete.

Browse Source 
* org-list.el (org-mark-list): Delete.
This commit is contained in:
Bastien Guerry 2012-07-31 17:15:07 +02:00
parent 97c7e9c88a
commit cbb7742d3b
1 changed files with 0 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/org-list.el
View File

@ -2202,20 +2202,6 @@ item is invisible."
(goto-char (match-end 0))
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 ()
"Fix indentation, bullets and checkboxes is the list at point."
(interactive)