# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 871258980 0
# Node ID 4e824f1fe62d1c4ec6456bcc83ea0cea2002b739
# Parent  bdc4b7818976e596b4b02d3d8ef70923a2ce53e5
Customized.

diff -r bdc4b7818976 -r 4e824f1fe62d lisp/emulation/pc-select.el
--- a/lisp/emulation/pc-select.el	Mon Aug 11 00:20:31 1997 +0000
+++ b/lisp/emulation/pc-select.el	Mon Aug 11 00:23:00 1997 +0000
@@ -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)
 
-(defvar pc-select-override-scroll-error t
+(defcustom 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)
 
-(defvar pc-select-selection-keys-only nil
+(defcustom 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 @@
   (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