Mercurial > emacs

comparison lisp/emulation/cua-base.el @ 57804:0b3a265b0a9c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(group cua): Add :version keyword. (cua-mode): Remove :version keyword.
author Kim F. Storm <storm@cua.dk>
date Sat, 30 Oct 2004 22:38:12 +0000
parents c4ba14ad9689
children e1b2a6ac991b e24e2e78deda
comparison
equal deleted inserted replaced
57803:7af0e42e0e75 57804:0b3a265b0a9c
265 "Emulate CUA key bindings including C-x and C-c." 265 "Emulate CUA key bindings including C-x and C-c."
266 :prefix "cua" 266 :prefix "cua"
267 :group 'editing-basics 267 :group 'editing-basics
268 :group 'convenience 268 :group 'convenience
269 :group 'emulations 269 :group 'emulations
270 :version "21.4"
270 :link '(emacs-commentary-link :tag "Commentary" "cua-base.el") 271 :link '(emacs-commentary-link :tag "Commentary" "cua-base.el")
271 :link '(emacs-library-link :tag "Lisp File" "cua-base.el")) 272 :link '(emacs-library-link :tag "Lisp File" "cua-base.el"))
272 273
273 (defcustom cua-enable-cua-keys t 274 (defcustom cua-enable-cua-keys t
274 "*Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste. 275 "*Enable using C-z, C-x, C-c, and C-v for undo, cut, copy, and paste.
1336 paste (in addition to the normal emacs bindings)." 1337 paste (in addition to the normal emacs bindings)."
1337 :global t 1338 :global t
1338 :set-after '(cua-enable-modeline-indications cua-use-hyper-key) 1339 :set-after '(cua-enable-modeline-indications cua-use-hyper-key)
1339 :require 'cua-base 1340 :require 'cua-base
1340 :link '(emacs-commentary-link "cua-base.el") 1341 :link '(emacs-commentary-link "cua-base.el")
1341 :version "21.4"
1342 (setq mark-even-if-inactive t) 1342 (setq mark-even-if-inactive t)
1343 (setq highlight-nonselected-windows nil) 1343 (setq highlight-nonselected-windows nil)
1344 (make-variable-buffer-local 'cua--explicit-region-start) 1344 (make-variable-buffer-local 'cua--explicit-region-start)
1345 (make-variable-buffer-local 'cua--status-string) 1345 (make-variable-buffer-local 'cua--status-string)
1346 1346