- 748 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/05/21(水) 06:01:26 ID:MR69jTp00]
- >747 ありがと。
TABに補完とインデントの両方の機能を持たせたったのだ。
この割り当てかなら、ミニバッファでのTAB補完も効くし。
(let ((keymap (make-sparse-keymap)))
(define-key keymap #\TAB 'my-dabbrev-expand)
(add-hook '*create-buffer-hook*
#'(lambda (buffer)
(set-minor-mode-map keymap buffer))))
(defun my-dabbrev-expand() "dabbrev-expand"
(interactive)
(if (or
(and (char>= (preceding-char) #\0)
(char<= (preceding-char) #\9))
(and (char>= (preceding-char) #\A)
(char<= (preceding-char) #\z)))
(dabbrev-expand))
(funcall mode-specific-indent-command))
|
 |
