Mercurial > emacs
changeset 30792:97c0caec0a32
fixed sds e-mail
| author | Sam Steingold <sds@gnu.org> |
|---|---|
| date | Mon, 14 Aug 2000 21:45:06 +0000 |
| parents | 72225a682ad2 |
| children | ea6025935730 |
| files | lisp/emulation/pc-select.el |
| diffstat | 1 files changed, 11 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/emulation/pc-select.el Mon Aug 14 21:42:58 2000 +0000 +++ b/lisp/emulation/pc-select.el Mon Aug 14 21:45:06 2000 +0000 @@ -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 @@ 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 @@ 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 @@ ;; 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 @@ (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 @@ ;; 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 @@ (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