[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/hyperbole 77e7a36c93 4/4: Add new Koutline key bindings
From: |
ELPA Syncer |
Subject: |
[elpa] externals/hyperbole 77e7a36c93 4/4: Add new Koutline key bindings for [M-down] and [M-up] |
Date: |
Mon, 21 Mar 2022 09:57:37 -0400 (EDT) |
branch: externals/hyperbole
commit 77e7a36c9391c7bd621e9294368d67de40716be0
Author: Bob Weiner <rsw@gnu.org>
Commit: Bob Weiner <rsw@gnu.org>
Add new Koutline key bindings for [M-down] and [M-up]
---
kotl/kotl-mode.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/kotl/kotl-mode.el b/kotl/kotl-mode.el
index feec7988da..7b61253ce2 100644
--- a/kotl/kotl-mode.el
+++ b/kotl/kotl-mode.el
@@ -3,7 +3,7 @@
;; Author: Bob Weiner
;;
;; Orig-Date: 6/30/93
-;; Last-Mod: 20-Mar-22 at 15:36:24 by Bob Weiner
+;; Last-Mod: 20-Mar-22 at 22:34:26 by Bob Weiner
;;
;; Copyright (C) 1993-2021 Free Software Foundation, Inc.
;; See the "../HY-COPY" file for license information.
@@ -2424,9 +2424,9 @@ If arg is 0, make it 1; if arg is negative, move prior to
that number of trees."
(when (zerop n)
(setq to-tree (kcell-view:label)))))
(if to-tree
- (goto-char (+ (move-func from-tree to-tree nil)
+ (goto-char (+ (funcall move-func from-tree to-tree nil)
point-offset))
- (error "(kotl-mode:move-forward): Cannot move past %d trees at the same
level" num-trees))))
+ (error "(kotl-mode:move-tree): Cannot move past %d trees at the same
level" num-trees))))
(defun kotl-mode:promote-tree (arg)
"Move current tree a maximum of prefix ARG levels higher in current view.
@@ -3521,10 +3521,10 @@ Leave point at end of line now residing at START."
(define-key kotl-mode-map "\C-c\C-u" 'kotl-mode:up-level)
(define-key kotl-mode-map "\C-c\C-v" 'kvspec:activate)
(define-key kotl-mode-map "\C-x\C-w" 'kfile:write)
- (define-key kotl-mode-map [M-up] 'kotl-mode:transpose-lines-up)
- (define-key kotl-mode-map (kbd "ESC <up>") 'kotl-mode:transpose-lines-up)
- (define-key kotl-mode-map [M-down]
'kotl-mode:transpose-lines-down)
- (define-key kotl-mode-map (kbd "ESC <down>")
'kotl-mode:transpose-lines-down)
+ (define-key kotl-mode-map [M-up] 'kotl-mode:move-tree-backward)
+ (define-key kotl-mode-map (kbd "ESC <up>") 'kotl-mode:move-tree-backward)
+ (define-key kotl-mode-map [M-down] 'kotl-mode:move-tree-forward)
+ (define-key kotl-mode-map (kbd "ESC <down>") 'kotl-mode:move-tree-forward)
(mapc (lambda (key)
(define-key kotl-mode-map key 'kotl-mode:promote-tree))
(list (kbd "M-<left>") (kbd "ESC <left>") (kbd "C-c C-<") (kbd "C-c
C-,")))