diff options
| author | Miles Bader <miles@gnu.org> | 2004-09-09 09:36:36 +0000 |
|---|---|---|
| committer | Miles Bader <miles@gnu.org> | 2004-09-09 09:36:36 +0000 |
| commit | a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb (patch) | |
| tree | 06645beecd1ea81b98569d82ee5d486a95c3497f /lisp/emacs-lisp/lisp.el | |
| parent | dd6ab82fb5c85168043306deda1fa5a5010183c6 (diff) | |
| parent | 6cb4a8923202a1f00fcbd2f7e3b8e0ee9e9bd3f4 (diff) | |
| download | emacs-a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb.tar.gz emacs-a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb.tar.bz2 emacs-a37d67ddadebe7cbcf6d5c5d2f5f4004797a32eb.zip | |
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
Diffstat (limited to 'lisp/emacs-lisp/lisp.el')
| -rw-r--r-- | lisp/emacs-lisp/lisp.el | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index 46d3d2625a1..63d9f759ceb 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -149,6 +149,20 @@ With ARG, kill that many sexps before the cursor. Negative arg -N means kill N sexps after the cursor." (interactive "p") (kill-sexp (- (or arg 1)))) + +;; After Zmacs: +(defun kill-backward-up-list (&optional arg) + "Kill the form containing the current sexp, leaving the sexp itself. +A prefix argument ARG causes the relevant number of surrounding +forms to be removed." + (interactive "*p") + (let ((current-sexp (thing-at-point 'sexp))) + (if current-sexp + (save-excursion + (backward-up-list arg) + (kill-sexp) + (insert current-sexp)) + (error "Not at a sexp")))) (defvar beginning-of-defun-function nil "If non-nil, function for `beginning-of-defun-raw' to call. |