From 69e82404c092d8dbe35e618da04b5bc423f5ef61 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 21 Feb 2004 13:37:46 +0000 Subject: [PATCH] (vcursor-modifiers): New defcustom. (vcursor-cs-binding): Use vcursor-modifiers instead of a hard-coded list. --- lisp/ChangeLog | 6 ++++++ lisp/vcursor.el | 9 +++++++-- 2 files changed, 13 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ee971eb1c07..2894f660197 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2004-02-21 Klaus Zeitler + + * vcursor.el (vcursor-modifiers): New defcustom. + (vcursor-cs-binding): Use vcursor-modifiers instead of a + hard-coded list. + 2004-02-21 Masatake YAMATO * play/animate.el (animate-birthday-present): Accept names other diff --git a/lisp/vcursor.el b/lisp/vcursor.el index 6d06dbdb9dc..4de92f02f0b 100644 --- a/lisp/vcursor.el +++ b/lisp/vcursor.el @@ -314,7 +314,7 @@ ;; - The logic in vcursor-find-window is rather complicated and ;; therefore bug-prone, though in practice it seems to work OK. ;; -;; Possible enhnacements: +;; Possible enhancements: ;; It would be easy to implement vcursor-push (save vcursor position ;; as mark and deactivate) and vcursor-pop (deactivate vcursor and ;; move to last pushed position) functions. @@ -342,9 +342,14 @@ disable the vcursor." :type '(choice (const t) (const nil) (const copy)) :group 'vcursor) +(defcustom vcursor-modifiers (list 'control 'shift) + "*A list of modifiers that are used to define vcursor key bindings." + :type '(repeat symbol) + :group 'vcursor) + ;; Needed for defcustom, must be up here (defun vcursor-cs-binding (base &optional meta) - (vector (let ((key (list 'control 'shift (intern base)))) + (vector (let ((key (append vcursor-modifiers (list (intern base))))) (if meta (cons 'meta key) key))))