Mercurial > emacs

comparison lisp/emacs-lisp/lisp.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 e694e0879463
comparison
equal deleted inserted replaced
806:d42e1151eed8 807:4f28bd14272c
1 ;;; lisp.el --- Lisp editing commands for Emacs 1 ;;; lisp.el --- Lisp editing commands for Emacs
2
3 ;; Maintainer: FSF
4 ;; Last-Modified: 12 Mar 1992
2 5
3 ;; Copyright (C) 1985, 1986 Free Software Foundation, Inc. 6 ;; Copyright (C) 1985, 1986 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 (defvar defun-prompt-regexp nil 26 (defvar defun-prompt-regexp nil
23 "Non-nil => regexp to ignore, before the `(' that starts a defun.") 27 "Non-nil => regexp to ignore, before the `(' that starts a defun.")
24 28
25 (defun forward-sexp (&optional arg) 29 (defun forward-sexp (&optional arg)