Re: Insert character pairs

[Kevin Rodgers <ihs_4664@yahoo.com>]

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