1 |
;;; cua-base.el --- emulate CUA key bindings |
;;; cua-base.el --- emulate CUA key bindings |
2 |
|
|
3 |
;; Copyright (C) 1997,98,99,200,01,02,03,04 Free Software Foundation, Inc. |
;; Copyright (C) 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004 |
4 |
|
;; Free Software Foundation, Inc. |
5 |
|
|
6 |
;; Author: Kim F. Storm <storm@cua.dk> |
;; Author: Kim F. Storm <storm@cua.dk> |
7 |
;; Keywords: keyboard emulation convenience cua |
;; Keywords: keyboard emulation convenience cua |
267 |
:group 'editing-basics |
:group 'editing-basics |
268 |
:group 'convenience |
:group 'convenience |
269 |
:group 'emulations |
:group 'emulations |
270 |
|
:version "21.4" |
271 |
:link '(emacs-commentary-link :tag "Commentary" "cua-base.el") |
:link '(emacs-commentary-link :tag "Commentary" "cua-base.el") |
272 |
:link '(emacs-library-link :tag "Lisp File" "cua-base.el")) |
:link '(emacs-library-link :tag "Lisp File" "cua-base.el")) |
273 |
|
|
1339 |
:set-after '(cua-enable-modeline-indications cua-use-hyper-key) |
:set-after '(cua-enable-modeline-indications cua-use-hyper-key) |
1340 |
:require 'cua-base |
:require 'cua-base |
1341 |
:link '(emacs-commentary-link "cua-base.el") |
:link '(emacs-commentary-link "cua-base.el") |
|
:version "21.4" |
|
1342 |
(setq mark-even-if-inactive t) |
(setq mark-even-if-inactive t) |
1343 |
(setq highlight-nonselected-windows nil) |
(setq highlight-nonselected-windows nil) |
1344 |
(make-variable-buffer-local 'cua--explicit-region-start) |
(make-variable-buffer-local 'cua--explicit-region-start) |