From f3062c41048143e065a95d035e4a932f5457648a Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 6 Jun 2022 17:10:21 +0300 Subject: [PATCH] ; * lisp/emacs-lisp/lisp.el (raise-sexp): Doc fix. (Bug#55788) --- lisp/emacs-lisp/lisp.el | 14 +++++++++----- 1 file changed, 9 insertions(+), 5 deletions(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index d6086abe59e..641ce0d5c02 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -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)))) -- 2.39.2