diff options
Diffstat (limited to 'evil-org.el')
| -rw-r--r-- | evil-org.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/evil-org.el b/evil-org.el index 296a13c..17bba19 100644 --- a/evil-org.el +++ b/evil-org.el @@ -414,7 +414,7 @@ Argument END, second column If ARG > 0, move column BEG to END. If ARG < 0, move column END to BEG" (let* ((text (buffer-substring beg end)) - (n-cells-selected (max 1 (count ?| text))) + (n-cells-selected (max 1 (cl-count ?| text))) (n-columns-to-move (* n-cells-selected (abs arg))) (move-left-p (< arg 0))) (goto-char (if move-left-p end beg)) @@ -591,7 +591,7 @@ Includes tables, list items and subtrees." (save-excursion (when beg (goto-char beg)) (let ((element (org-element-at-point))) - (when (or (not (memq (first element) org-element-greater-elements)) + (when (or (not (memq (cl-first element) org-element-greater-elements)) (and end (>= end (org-element-property :end element)))) (setq element (evil-org-parent element))) (dotimes (_ (1- count)) @@ -605,7 +605,7 @@ Includes tables, list items and subtrees." (save-excursion (when beg (goto-char beg)) (let ((element (org-element-at-point))) - (unless (memq (first element) org-element-greater-elements) + (unless (memq (cl-first element) org-element-greater-elements) (setq element (evil-org-parent element))) (dotimes (_ (1- count)) (setq element (evil-org-parent element))) @@ -657,7 +657,8 @@ Includes tables, list items and subtrees." org-insert-todo-heading-respect-content)) (evil-define-key '(normal visual) evil-org-mode-map (kbd "<tab>") 'org-cycle - (kbd "<S-tab>") 'org-shifttab + (kbd "g TAB") 'org-cycle + (kbd "<backtab>") 'org-shifttab (kbd "<") 'evil-org-< (kbd ">") 'evil-org->)) @@ -777,7 +778,7 @@ Includes tables, list items and subtrees." (defun evil-org-set-key-theme (&optional theme) "Select what keythemes to enable. -Optional argument THEME list of themes. See evil-org-keytheme for a list of values." +Optional argument THEME list of themes. See evil-org-key-theme for a list of values." (let ((theme (or theme evil-org-key-theme))) (setq evil-org-mode-map (make-sparse-keymap)) (evil-org--populate-base-bindings) |