mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-02 11:21:42 +00:00
Code Issues Releases Activity

(kill-backward-up-list): New function.

Browse Source
This commit is contained in:
Eli Zaretskii 2004-09-04 12:56:54 +00:00
parent 0ad1044791
commit de6d64b22a
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lisp/emacs-lisp/lisp.el
View File

@ -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.