Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
10
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
83d1d58c
Commit
83d1d58c
authored
Aug 11, 1997
by
Richard M. Stallman
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Customized.
parent
65788bc2
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
31 additions
and
7 deletions
+31
-7
lisp/emulation/pc-select.el
lisp/emulation/pc-select.el
+31
-7
No files found.
lisp/emulation/pc-select.el
View file @
83d1d58c
...
...
@@ -55,7 +55,7 @@
;; for additional motif keybindings.
;; Thanks to jvromans@squirrel.nl (Johan Vromans) for a bug report
;; concerning setting of this-command.
;; Dan Nicolaescu <done@
nexus.sorostm
.ro> suggested suppressing the
;; Dan Nicolaescu <done@
ece.arizona
.ro> suggested suppressing the
;; scroll-up/scroll-down error.
;; Eli Barzilay (eli@cs.bgu.ac.il) suggested the sexps functions and
;; keybindings.
...
...
@@ -77,22 +77,32 @@
;;
;;;; Customization:
(
defgroup
pc-select
nil
"Emulate pc bindings."
:prefix
"pc-select"
:group
'editing-basics
)
(
def
var
pc-select-override-scroll-error
t
(
def
custom
pc-select-override-scroll-error
t
"*Non-nil means don't generate error on scrolling past edge of buffer.
This variable applies in PC Selection mode only.
The scroll commands normally generate an error if you try to scroll
past the top or bottom of the buffer. This is annoying when selecting
text with these commands. If you set this variable to non-nil, these
errors are suppressed."
)
errors are suppressed."
:type
'boolean
:group
'pc-select
)
(
def
var
pc-select-selection-keys-only
nil
(
def
custom
pc-select-selection-keys-only
nil
"*Non-nil means only bind the basic selection keys when started.
Other keys that emulate pc-behavior will be untouched.
This gives mostly Emacs-like behaviour with only the selection keys enabled."
)
This gives mostly Emacs-like behaviour with only the selection keys enabled."
:type
'boolean
:group
'pc-select
)
(
defvar
pc-select-meta-moves-sexps
nil
"*Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
)
(
defcustom
pc-select-meta-moves-sexps
nil
"*Non-nil means move sexp-wise with Meta key, otherwise move word-wise."
:type
'boolean
:group
'pc-select
)
;;;;
;; misc
...
...
@@ -750,4 +760,18 @@ but before calling pc-selection-mode):
(
setq
mark-even-if-inactive
t
)
(
delete-selection-mode
1
)
)
;;;###autoload
(
defcustom
pc-selection-mode
nil
"Toggle PC Selection mode.
Change mark behaviour to emulate Motif, MAC or MS-Windows cut and paste style,
and cursor movement commands.
This mode enables Delete Selection mode and Transient Mark mode.
You must modify via \\[customize] for this variable to have an effect."
:set
(
lambda
(
symbol
value
)
(
if
value
(
pc-selection-mode
)))
:type
'boolean
:group
'pc-select
:require
'pc-select
)
;;; pc-select.el ends here
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment