mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(vcursor-modifiers): New defcustom.

Browse Source 
(vcursor-cs-binding): Use vcursor-modifiers instead of a hard-coded list.
This commit is contained in:
Eli Zaretskii 2004-02-21 13:37:46 +00:00
parent 8bcfd13b54
commit 69e82404c0
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

9
lisp/vcursor.el
View File

@ -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))))