Re: emacs, автовставка парных символов

Вообще определены готовая функция для пар скобок (): insert-parentheses

Можно сделать такой макрос:

(defmacro set-key-bind-for-insert-pair-symbol (key begin-symbol end-symbol)
    `(global-set-key ,key (lambda (arg) (interactive "P") (insert-pair ,arg ,begin-symbol ,end-symbol))))

Использовать так:
(set-key-bind-for-insert-pair-symbol (kbd "\e(") ?\( ?\))
(set-key-bind-for-insert-pair-symbol (kbd "\e[") ?\[ ?\])
(set-key-bind-for-insert-pair-symbol (kbd "\e{") ?{ ?\})

И т.п. :)

Re: emacs, автовставка парных символов

Да, там немного веселое поведение (в начале может быть не привычно), она обводит вокруг слово последнее

Re: emacs, автовставка парных символов

Вот нормальный код, там ошибка была ;)

(defmacro set-key-bind-for-insert-pair-symbol (key begin-symbol end-symbol)
    `(global-set-key ,key (lambda (arg) (interactive "P") (insert-pair arg ,begin-symbol ,end-symbol))))

(set-key-bind-for-insert-pair-symbol (kbd "\e(") ?\( ?\))
(set-key-bind-for-insert-pair-symbol (kbd "\e[") ?\[ ?\])
(set-key-bind-for-insert-pair-symbol (kbd "\e{") ?{ ?\})

2moderator: а может просто замените код (defmacro) в верхнем сообщение и снесете это?

Re: emacs, автовставка парных символов

Спасибо, в общем-то всё неплохо, только раздражает следующее: если перед открывающим символом есть буквенно-цифровые символы, то перед открывающим символом вставляется пробел.

Re: emacs, автовставка парных символов

Теперь пробелы не вставляются ;)

(interactive "P")
(setq parens-require-spaces nil)
(insert-pair arg ,begin-symbol ,end-symbol)

Re: emacs, автовставка парных символов

О, спасибо, хотя я уже привык к ним :) gnu-стиль для си как раз эти пробелы требует.

Re: emacs, автовставка парных символов

А меня они раздражать сильно начали, пришлось читать документацию :)

Re: emacs, автовставка парных символов

А так еще лучше будет, правда? 



(defmacro set-key-bind-for-insert-pair-symbol (key begin-symbol end-symbol &optional space)
  `(global-set-key ,key (lambda (arg) (interactive "P") 
			  (let (parens-require-spaces (quote ,space))
			    (insert-pair arg ,begin-symbol ,end-symbol)))))