Commit de6d64b2 authored by Eli Zaretskii's avatar Eli Zaretskii

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

parent 0ad10447
...@@ -149,6 +149,20 @@ With ARG, kill that many sexps before the cursor. ...@@ -149,6 +149,20 @@ With ARG, kill that many sexps before the cursor.
Negative arg -N means kill N sexps after the cursor." Negative arg -N means kill N sexps after the cursor."
(interactive "p") (interactive "p")
(kill-sexp (- (or arg 1)))) (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 (defvar beginning-of-defun-function nil
"If non-nil, function for `beginning-of-defun-raw' to call. "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