Commit de6d64b2 authored by Eli Zaretskii's avatar Eli Zaretskii
Browse files

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

parent 0ad10447
......@@ -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
(backward-up-list arg)
(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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment