summaryrefslogtreecommitdiff
path: root/lisp/emulation/pc-select.el
diff options
context:
space:
mode:
authorSam Steingold <sds@gnu.org>2000-08-14 21:45:06 +0000
committerSam Steingold <sds@gnu.org>2000-08-14 21:45:06 +0000
commit13f5a20e255cb304667ead85eb882848bdee0c64 (patch)
tree11563f66b2bcf174c30540aee2741d00ce31994a /lisp/emulation/pc-select.el
parente2de1157822f98b67271ee0c8c13bef391066e99 (diff)
downloademacs-13f5a20e255cb304667ead85eb882848bdee0c64.tar.gz
fixed sds e-mail
Diffstat (limited to 'lisp/emulation/pc-select.el')
-rw-r--r--lisp/emulation/pc-select.el22
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/emulation/pc-select.el b/lisp/emulation/pc-select.el
index 5edd920176e..0c5e8ad3691 100644
--- a/lisp/emulation/pc-select.el
+++ b/lisp/emulation/pc-select.el
@@ -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