From 13f5a20e255cb304667ead85eb882848bdee0c64 Mon Sep 17 00:00:00 2001 From: Sam Steingold Date: Mon, 14 Aug 2000 21:45:06 +0000 Subject: [PATCH] fixed sds e-mail --- lisp/emulation/pc-select.el | 22 +++++++++++----------- 1 file 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 -;; 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 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 says that f16 is copy and f18 is paste. + ;; Sam Steingold 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 -- 2.39.2