Re: Insert character pairs

[Kevin Rodgers]

Juri Linkov wrote:
> BTW, I didn't find anywhere in Emacs a command that promotes
> a list up in the tree.  It would be useful to add this command
> to `emacs-lisp/lisp.el':
>
> (defun promote-list (&optional arg)
>   "Promote expressions higher up the tree."
>   (interactive "p")
>   (let ((str (if (and transient-mark-mode mark-active)
>                  (buffer-substring (region-beginning) (region-end))
>                (buffer-substring
>                 (point)
>                 (save-excursion (forward-sexp arg) (point))))))
>     (backward-up-list 1)
>     (delete-region (point) (save-excursion (forward-sexp 1) (point)))
>     (save-excursion (insert str))))
>
> Maybe, a better name is `move-up-list' (however, not good since
> the word `move' often means `move the point') or `lift-up-list'?

Yes, "move" would be misleading.

> The command `promote-list' is basically opposite to `insert-parentheses',
> so another possible name is `remove-parentheses', but it is misleading,
> because it removes more than only enclosing parentheses.

I don't find "delete" or "remove" misleading at all.

--
Kevin Rodgers