From cbb7742d3bfc461b5bca1fd30b209c19f87617ee Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Tue, 31 Jul 2012 17:15:07 +0200 Subject: [PATCH] org-list.el (org-mark-list): Delete. * org-list.el (org-mark-list): Delete. --- lisp/org-list.el | 14 -------------- 1 file changed, 14 deletions(-) diff --git a/lisp/org-list.el b/lisp/org-list.el index c6dcb79c4..4768c8f75 100644 --- a/lisp/org-list.el +++ b/lisp/org-list.el @@ -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)