mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-22 18:35:09 +00:00
Code Issues Releases Activity

fixed sds e-mail

Browse Source
This commit is contained in:
Sam Steingold 2000-08-14 21:45:06 +00:00
parent e2de115782
commit 13f5a20e25
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/emulation/pc-select.el
View File

@ -5,7 +5,7 @@
;; Copyright (C) 1995, 1996, 1997, 2000 Free Software Foundation, Inc.
;; Author: Michael Staats <michael@thp.Uni-Duisburg.DE>
;; Keywords: convenience
;; Keywords: convenience
;; Created: 26 Sep 1995
;; This file is part of GNU Emacs.
@ -36,7 +36,7 @@
;; This package uses transient-mark-mode and
;; delete-selection-mode.
;;
;; In addition to that all key-bindings from the pc-mode are
;; In addition to that all key-bindings from the pc-mode are
;; done here too (as suggested by RMS).
;;
;; As I found out after I finished the first version, s-region.el tries
@ -59,7 +59,7 @@
;; 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.
;; keybindings.
;;
;; Ok, some details about the idea of pc-selection-mode:
;;
@ -229,7 +229,7 @@ If scan reaches end of buffer, stop there without error."
A near full screen is `next-screen-context-lines' less than a full screen.
Negative ARG means scroll upward.
When calling from a program, supply a number as argument or nil."
(interactive "P")
(interactive "P")
(ensure-mark)
(cond (pc-select-override-scroll-error
(condition-case nil (scroll-down arg)
@ -494,7 +494,7 @@ of the accessible part of the buffer.
Don't use this command in Lisp programs!
\(goto-char (p\oint-min)) is faster and avoids clobbering the mark."
(interactive "P")
(ensure-mark)
(ensure-mark)
(let ((size (- (point-max) (point-min))))
(goto-char (if arg
(+ (point-min)
@ -664,8 +664,8 @@ but before calling pc-selection-mode):
;; will be deleted on the next keypress. IMHO especially for
;; copy-region-as-kill this is confusing.
;; The same goes for exchange-point-and-mark
(define-key global-map "\M-w" 'copy-region-as-kill-nomark)
(define-key global-map "\C-x\C-x" 'exchange-point-and-mark-nomark)
(define-key global-map "\M-w" 'copy-region-as-kill-nomark)
(define-key global-map "\C-x\C-x" 'exchange-point-and-mark-nomark)
;; The following keybindings are for standard ISO keyboards
;; as they are used with IBM compatible PCs, IBM RS/6000,
;; MACs, many X-Stations and probably more
@ -723,10 +723,10 @@ but before calling pc-selection-mode):
(global-set-key [C-down] 'forward-paragraph-nomark) ; KNextPara cDn
(global-set-key [C-up] 'backward-paragraph-nomark) ; KPrevPara cUp
(global-set-key [S-C-down] 'forward-paragraph-mark)
(global-set-key [S-C-up] 'backward-paragraph-mark)
(global-set-key [S-C-up] 'backward-paragraph-mark)
(or pc-select-selection-keys-only
(progn
(progn
(define-key global-map [S-insert] 'yank)
(define-key global-map [C-insert] 'copy-region-as-kill)
(define-key global-map [S-delete] 'kill-region)
@ -734,7 +734,7 @@ but before calling pc-selection-mode):
;; The following bindings are useful on Sun Type 3 keyboards
;; They implement the Get-Delete-Put (copy-cut-paste)
;; functions from sunview on the L6, L8 and L10 keys
;; Sam Steingold <sds@ptc.com> says that f16 is copy and f18 is paste.
;; Sam Steingold <sds@gnu.org> says that f16 is copy and f18 is paste.
(define-key global-map [f16] 'copy-region-as-kill)
(define-key global-map [f18] 'yank)
(define-key global-map [f20] 'kill-region)
@ -753,7 +753,7 @@ but before calling pc-selection-mode):
(global-set-key [C-backspace] 'backward-kill-word)
;; Next line proposed by Eli Barzilay
(global-set-key [C-escape] 'electric-buffer-list)))
;;
;;
;; setup
;;
;; Next line proposed by Eli Barzilay