procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

; * lisp/emacs-lisp/lisp.el (raise-sexp): Doc fix. (Bug#55788)

Browse source
This commit is contained in:
Eli Zaretskii 2022-06-06 17:10:21 +03:00
parent 7edf3d2902
commit f3062c4104
1 changed files with 9 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -857,10 +857,14 @@ The option `delete-pair-blink-delay' can disable blinking."
(delete-char -1)))
(delete-char 1))))
(defun raise-sexp (&optional arg)
"Raise ARG sexps higher up the tree.
This means that the ARGth enclosing form will be deleted and
replaced with the form that follows point.
(defun raise-sexp (&optional n)
"Raise N sexps one level higher up the tree.
This function removes the sexp enclosing the form which follows
point, and then re-inserts N sexps that originally followe point,
thus raising those N sexps one level up.
Interactively, N is the numeric prefix argument, and defaults to 1.
For instance, if you have:
@ -879,7 +883,7 @@ and point is before (zot), \\[raise-sexp] will give you
(buffer-substring (region-beginning) (region-end))
(buffer-substring
(point)
(save-excursion (forward-sexp arg) (point))))))
(save-excursion (forward-sexp n) (point))))))
(backward-up-list 1)
(delete-region (point) (save-excursion (forward-sexp 1) (point)))
(save-excursion (insert s))))