mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-15 22:10:24 +00:00
New function org-mark-list' bound to
C-c C-@'.
* org-list.el (org-mark-list): New function. * org.el (org-mode-map): Add a keybinding for the new function.
This commit is contained in:
parent
c4fad02b06
commit
aee6f9008a
|
@ -2177,6 +2177,18 @@ 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)
|
||||||
|
(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)
|
||||||
|
|
|
@ -17366,6 +17366,7 @@ BEG and END default to the buffer boundaries."
|
||||||
(org-defkey org-mode-map "\C-c\C-x\C-mg" 'org-mobile-pull)
|
(org-defkey org-mode-map "\C-c\C-x\C-mg" 'org-mobile-pull)
|
||||||
(org-defkey org-mode-map "\C-c\C-x\C-mp" 'org-mobile-push)
|
(org-defkey org-mode-map "\C-c\C-x\C-mp" 'org-mobile-push)
|
||||||
(org-defkey org-mode-map "\C-c@" 'org-mark-subtree)
|
(org-defkey org-mode-map "\C-c@" 'org-mark-subtree)
|
||||||
|
(org-defkey org-mode-map "\C-c\C-@" 'org-mark-list)
|
||||||
(org-defkey org-mode-map [?\C-c (control ?*)] 'org-list-make-subtree)
|
(org-defkey org-mode-map [?\C-c (control ?*)] 'org-list-make-subtree)
|
||||||
;;(org-defkey org-mode-map [?\C-c (control ?-)] 'org-list-make-list-from-subtree)
|
;;(org-defkey org-mode-map [?\C-c (control ?-)] 'org-list-make-list-from-subtree)
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue