Re: Crazy idea for M-(: surround region

[Sandip Chitale]

kai.grossjohann@gmx.net (Kai Großjohann) wrote in message 
news:<843chbzdtv.fsf@lucy.is.informatik.uni-duisburg.de>...
> If transient-mark-mode is active, M-( should surround the region with
> parens, ie do like C-w M-( C-y.
> 
> WDYT?

I have this: (works based on the syntax of the char in the files mode.
Also leaves the cursor after first delim or before second delim based
on arg).

(defun electric-open-delimeter (arg)
  "Automatically insert matching delimeter."
  (interactive "*P")
  (let (
        (mark-was-active mark-active)
        (beg)
        (end)
        (syntax (char-syntax last-command-char))
        (key-match (assoc last-command-char '(
                                              (?\( . ?\))
                                              (?\{ . ?\})
                                              (?\[ . ?\])
                                              (?\" . ?\")
                                              (?\' . ?\')
                                              (?\` . ?\')
                                              (?\< . ?\>)
                                              )
                          )
                   )
        )

    (if (or
         (eq syntax 40)
         (eq syntax 34)
         (eq syntax 47)
         (eq syntax 36)
         )
        (progn
          (if mark-was-active
              (progn
                (setq beg (region-beginning))
                (setq end (+ (region-end) 1))
                (goto-char beg)
                )
              )
          (self-insert-command 1)
          (if mark-was-active
              (goto-char end)
              )
          (if key-match
              (progn (insert (cdr key-match))
                     (backward-char)
                     )
              )
          (if mark-was-active
              (progn
                (indent-region beg (+ end 1) nil)
                (if (not arg)
                    (if (or
                         (eq syntax 40)
                         (eq syntax 36)
                         )
                        (goto-char (1+ beg))
                        (goto-char (1+ end))
                        )
                    )
                )
              )
          )
        (self-insert-command 1)
        )
    )
  )

(global-set-key (kbd "(")                   'electric-open-delimeter)
(global-set-key (kbd "{")                   'electric-open-delimeter)
(global-set-key (kbd "[")                   'electric-open-delimeter)
(global-set-key (kbd "\"")                  'electric-open-delimeter)
(global-set-key (kbd "'")                   'electric-open-delimeter)
(global-set-key (kbd "<")                   'electric-open-delimeter)