Mercurial > emacs

comparison lisp/misc.el @ 807:4f28bd14272c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Eric S. Raymond <esr@snark.thyrsus.com>
date Thu, 16 Jul 1992 21:47:34 +0000
parents 505130d1ddf8
children 213978acbc1e
comparison
equal deleted inserted replaced
806:d42e1151eed8 807:4f28bd14272c
1 ;;; misc.el --- basic editing commands for Emacs 1 ;;; misc.el --- basic editing commands for Emacs
2
3 ;; Maintainer: FSF
4 ;; Last-Modified: 31 Oct 1989
2 5
3 ;; Copyright (C) 1989 Free Software Foundation, Inc. 6 ;; Copyright (C) 1989 Free Software Foundation, Inc.
4 7
5 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
6 9
7 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
8 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
9 ;; the Free Software Foundation; either version 1, or (at your option) 12 ;; the Free Software Foundation; either version 2, or (at your option)
10 ;; any later version. 13 ;; any later version.
11 14
12 ;; GNU Emacs is distributed in the hope that it will be useful, 15 ;; GNU Emacs is distributed in the hope that it will be useful,
13 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of 16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 19
17 ;; You should have received a copy of the GNU General Public License 20 ;; You should have received a copy of the GNU General Public License
18 ;; along with GNU Emacs; see the file COPYING. If not, write to 21 ;; along with GNU Emacs; see the file COPYING. If not, write to
19 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 22 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
20 23
24 ;;; Code:
21 25
22 (defun copy-from-above-command (&optional arg) 26 (defun copy-from-above-command (&optional arg)
23 "Copy characters from previous nonblank line, starting just above point. 27 "Copy characters from previous nonblank line, starting just above point.
24 Copy ARG characters, but not past the end of that line. 28 Copy ARG characters, but not past the end of that line.
25 If no argument given, copy the entire rest of the line. 29 If no argument given, copy the entire rest of the line.