Mercurial > emacs

comparison lisp/emacs-lisp/lisp.el @ 89971:cce1c0ee76ee

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2004/emacs--unicode--0--patch-36 Merge from emacs--cvs-trunk--0, emacs--gnus--5.10, gnus--rel--5.10 Patches applied: * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-523 Merge from emacs--gnus--5.10, gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-524 - miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-534 Update from CVS * miles@gnu.org--gnu-2004/emacs--gnus--5.10--base-0 tag of miles@gnu.org--gnu-2004/emacs--cvs-trunk--0--patch-464 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-1 Import from CVS branch gnus-5_10-branch * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-2 Merge from lorentey@elte.hu--2004/emacs--multi-tty--0, emacs--cvs-trunk--0 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-3 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/emacs--gnus--5.10--patch-4 Merge from gnus--rel--5.10 * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-18 Update from CVS * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-19 Remove autoconf-generated files from archive * miles@gnu.org--gnu-2004/gnus--rel--5.10--patch-20 Update from CVS
author Miles Bader <miles@gnu.org>
date Thu, 09 Sep 2004 09:36:36 +0000
parents 3219f94257bc bca93997a4d7
children ff0e824afa37
comparison
equal deleted inserted replaced
89970:a849e5779b8c 89971:cce1c0ee76ee
147 "Kill the sexp (balanced expression) preceding the cursor. 147 "Kill the sexp (balanced expression) preceding the cursor.
148 With ARG, kill that many sexps before the cursor. 148 With ARG, kill that many sexps before the cursor.
149 Negative arg -N means kill N sexps after the cursor." 149 Negative arg -N means kill N sexps after the cursor."
150 (interactive "p") 150 (interactive "p")
151 (kill-sexp (- (or arg 1)))) 151 (kill-sexp (- (or arg 1))))
152
153 ;; After Zmacs:
154 (defun kill-backward-up-list (&optional arg)
155 "Kill the form containing the current sexp, leaving the sexp itself.
156 A prefix argument ARG causes the relevant number of surrounding
157 forms to be removed."
158 (interactive "*p")
159 (let ((current-sexp (thing-at-point 'sexp)))
160 (if current-sexp
161 (save-excursion
162 (backward-up-list arg)
163 (kill-sexp)
164 (insert current-sexp))
165 (error "Not at a sexp"))))
152 166
153 (defvar beginning-of-defun-function nil 167 (defvar beginning-of-defun-function nil
154 "If non-nil, function for `beginning-of-defun-raw' to call. 168 "If non-nil, function for `beginning-of-defun-raw' to call.
155 This is used to find the beginning of the defun instead of using the 169 This is used to find the beginning of the defun instead of using the
156 normal recipe (see `beginning-of-defun'). Major modes can define this 170 normal recipe (see `beginning-of-defun'). Major modes can define this