X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/573228ae6c50007b3fbacc3ff97a94d1754347f3..1ffe7343fab7ee85cddc7ebf6d0abe0bfc0b90aa:/lisp/s-region.el?ds=sidebyside

diff --git a/lisp/s-region.el b/lisp/s-region.el
index fa2f855b71..92e992bc61 100644
--- a/lisp/s-region.el
+++ b/lisp/s-region.el
@@ -1,7 +1,9 @@
-;;; s-region.el --- set region using shift key.
-;;; Copyright (C) 1994, 1995 Free Software Foundation, Inc.
+;;; s-region.el --- set region using shift key
 
-;; Author: Morten Welinder (terra@diku.dk)
+;; Copyright (C) 1994, 1995, 2001, 2002, 2003, 2004,
+;;   2005, 2006, 2007 Free Software Foundation, Inc.
+
+;; Author: Morten Welinder <terra@diku.dk>
 ;; Keywords: terminals
 ;; Favourite-brand-of-beer: None, I hate beer.
 
@@ -9,7 +11,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 2, or (at your option)
+;; the Free Software Foundation; either version 3, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,19 +20,20 @@
 ;; GNU General Public License for more details.
 
 ;; You should have received a copy of the GNU General Public License
-;; along with GNU Emacs; see the file COPYING.  If not, write to
-;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Commentary:
 
 ;; Having loaded this code you can set the region by holding down the
 ;; shift key and move the cursor to the other end of the region.  The
-;; functionallity provided by this code is similar to that provided by
+;; functionality provided by this code is similar to that provided by
 ;; the editors of Borland International's compilers for ms-dos.
 
 ;; Currently, s-region-move may be bound only to events that are vectors
 ;; of length one and whose last element is a symbol.  Also, the functions
-;; that are given this kind of overlay should be (interactive "p") 
+;; that are given this kind of overlay should be (interactive "p")
 ;; functions.
 
 ;; If the following keys are not already bound then...
@@ -61,12 +64,12 @@
     (error "Non-vector key: %S" key)))
 
 (defun s-region-move-p1 (&rest arg)
-  "This is an overlay function to point-moving keys that are interactive \"p\""
+  "This is an overlay function to point-moving keys that are interactive \"p\"."
   (interactive "p")
   (apply (function s-region-move) arg))
 
 (defun s-region-move-p2 (&rest arg)
-  "This is an overlay function to point-moving keys that are interactive \"P\""
+  "This is an overlay function to point-moving keys that are interactive \"P\"."
   (interactive "P")
   (apply (function s-region-move) arg))
 
@@ -81,10 +84,10 @@
   (delete-overlay s-region-overlay))
 
 (defun s-region-bind (keylist &optional map)
-  "Bind shifted keys in KEYLIST to s-region-move-p1 or s-region-move-p2.
-Each key in KEYLIST is shifted and bound to one of the s-region-move
+  "Bind shifted keys in KEYLIST to `s-region-move-p1' or `s-region-move-p2'.
+Each key in KEYLIST is shifted and bound to one of the `s-region-move'
 functions provided it is already bound to some command or other.
-Optional third argument MAP specifies keymap to add binding to, defaulting
+Optional second argument MAP specifies keymap to add binding to, defaulting
 to global keymap."
   (let ((p2 (list 'scroll-up 'scroll-down
 		  'beginning-of-buffer 'end-of-buffer)))
@@ -119,4 +122,5 @@ to global keymap."
 
 (provide 's-region)
 
-;; s-region.el ends here.
+;;; arch-tag: a471e912-18d7-4247-a29b-2100bca180ff
+;;; s-region.el ends here