Mercurial > emacs
changeset 54104:640d878dae87
(vcursor-modifiers): New defcustom.
(vcursor-cs-binding): Use vcursor-modifiers instead of a hard-coded list.
| author | Eli Zaretskii <eliz@is.elta.co.il> |
|---|---|
| date | Sat, 21 Feb 2004 13:36:00 +0000 |
| parents | 7f9bfa8b7066 |
| children | 10f8365e0cf4 |
| files | lisp/vcursor.el |
| diffstat | 1 files changed, 7 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vcursor.el Sat Feb 21 13:30:42 2004 +0000 +++ b/lisp/vcursor.el Sat Feb 21 13:36:00 2004 +0000 @@ -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 @@ :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))))