comparison lisp/emulation/pc-select.el @ 19289:4e824f1fe62d

Customized.

19288:bdc4b7818976

;; David Biesack <[e-mail]> suggested some more cleanup.
;; Thanks to Pete Forman <[e-mail]>
;; for additional motif keybindings.
;; Thanks to [e-mail] (Johan Vromans) for a bug report
;; concerning setting of this-command.
;; Dan Nicolaescu <[e-mail]> suggested suppressing the
;; scroll-up/scroll-down error.
;; Eli Barzilay ([e-mail]) suggested the sexps functions and
;; keybindings. 
;;
;; Ok, some details about the idea of pc-selection-mode:

;;    S-insert (paste) and C-insert (copy). These keys do the same in many
;;    other programs.
;;

;;;; Customization:

(defvar 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.")

(defvar 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.")

(defvar pc-select-meta-moves-sexps nil
  "*Non-nil means move sexp-wise with Meta key, otherwise move word-wise.")

;;;;
;; misc
;;;;

  (setq highlight-nonselected-windows nil)
  (setq transient-mark-mode t)
  (setq mark-even-if-inactive t)
  (delete-selection-mode 1)
)
;;; pc-select.el ends here

19289:4e824f1fe62d

;; David Biesack <[e-mail]> suggested some more cleanup.
;; Thanks to Pete Forman <[e-mail]>
;; for additional motif keybindings.
;; Thanks to [e-mail] (Johan Vromans) for a bug report
;; concerning setting of this-command.
;; Dan Nicolaescu <[e-mail]> suggested suppressing the
;; scroll-up/scroll-down error.
;; Eli Barzilay ([e-mail]) suggested the sexps functions and
;; keybindings. 
;;
;; Ok, some details about the idea of pc-selection-mode:

;;    S-insert (paste) and C-insert (copy). These keys do the same in many
;;    other programs.
;;

;;;; Customization:
(defgroup pc-select nil
  "Emulate pc bindings."
  :prefix "pc-select"
  :group 'editing-basics)

(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."
  :type 'boolean
  :group 'pc-select)

(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."
  :type 'boolean
  :group 'pc-select)

(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
;;;;

  (setq highlight-nonselected-windows nil)
  (setq transient-mark-mode t)
  (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