X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/573228ae6c50007b3fbacc3ff97a94d1754347f3..0924e3f6e1b5749019ac7f69765af355623c9db8:/lisp/s-region.el diff --git a/lisp/s-region.el b/lisp/s-region.el index fa2f855b71..6bc4b481d7 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, 2002, 2003, 2004, +;; 2005, 2006 Free Software Foundation, Inc. + +;; Author: Morten Welinder ;; Keywords: terminals ;; Favourite-brand-of-beer: None, I hate beer. @@ -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