(vcursor-modifiers): New defcustom.

(vcursor-cs-binding): Use vcursor-modifiers instead of a hard-coded list.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ee971eb1c07491754ad377cb4c1d940d4a547e7d..2894f660197d51da1dfc368c00c69513efbd900e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2004-02-21  Klaus Zeitler  <kzeitler@lucent.com>
+
+       * vcursor.el (vcursor-modifiers): New defcustom.
+       (vcursor-cs-binding): Use vcursor-modifiers instead of a
+       hard-coded list.
+
 2004-02-21  Masatake YAMATO  <jet@gyve.org>
 
        * play/animate.el (animate-birthday-present): Accept names other

diff --git a/lisp/vcursor.el b/lisp/vcursor.el
index 6d06dbdb9dc6a3deea049d85b267f31da2038615..4de92f02f0ba3e0469f725eedcc80f849318dc15 100644 (file)
--- 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))))