From b3dc23dd60896423f1a7ccbe5ab747f54599ea24 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 4 Jun 2022 13:57:08 +0200 Subject: [PATCH] Improve the raise-sexp doc string * lisp/emacs-lisp/lisp.el (raise-sexp): Try to explain what the command does (bug#55788). --- lisp/emacs-lisp/lisp.el | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) diff --git a/lisp/emacs-lisp/lisp.el b/lisp/emacs-lisp/lisp.el index ffca0dcf4f5..9d9ae41f301 100644 --- a/lisp/emacs-lisp/lisp.el +++ b/lisp/emacs-lisp/lisp.el @@ -858,7 +858,22 @@ The option `delete-pair-blink-delay' can disable blinking." (delete-char 1)))) (defun raise-sexp (&optional arg) - "Raise ARG sexps higher up the tree." + "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. + +For instance, if you have: + + (let ((foo 2)) + (progn + (setq foo 3) + (zot) + (+ foo 2))) + +and point is before (zot), `M-x raise-sexp' will give you + + (let ((foo 2)) + (zot))" (interactive "p") (let ((s (if (and transient-mark-mode mark-active) (buffer-substring (region-beginning) (region-end)) -- 2.39.2