mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-13 09:32:47 +00:00
Code Issues Releases Activity

* lisp/emacs-lisp/lisp.el (delete-pair): Add optional prefix arg.

Browse Source 
(Bug#32896)
This commit is contained in:
Juri Linkov 2018-10-19 02:09:15 +03:00
parent e37825fe2a
commit 7aaf9d8a7d
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -723,11 +723,13 @@ This command assumes point is not in a string or comment."
(interactive "P") (interactive "P")
(insert-pair arg ?\( ?\))) (insert-pair arg ?\( ?\)))
(defun delete-pair () (defun delete-pair (&optional arg)
"Delete a pair of characters enclosing the sexp that follows point." "Delete a pair of characters enclosing ARG sexps following point.
(interactive) A negative ARG deletes a pair of characters around preceding ARG sexps."
(save-excursion (forward-sexp 1) (delete-char -1)) (interactive "p")
(delete-char 1)) (unless arg (setq arg 1))
(save-excursion (forward-sexp arg) (delete-char (if (> arg 0) -1 1)))
(delete-char (if (> arg 0) 1 -1)))
(defun raise-sexp (&optional arg) (defun raise-sexp (&optional arg)
"Raise ARG sexps higher up the tree." "Raise ARG sexps higher up the tree."