- 768 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/06/12(木) 12:43:01 ID:rmCnjOCm0]
- >>767
(defun ahk-electric-brace (&optional (arg 1))
"Insert character ARG and correct line's indentation."
(interactive "p")
(if (save-excursion
(skip-chars-backward " \t")
(bolp))
nil
(progn
(ahk-indent-line)
(newline)))
(self-insert-command arg)
(ahk-indent-line)
(newline)
(ahk-indent-line)
(let ((event *last-command-char*))
(setq event (if (featurep 'xemacs)
(event-to-character event)
(if (stringp event)
(aref event 0)
event)))
(when (equal event #\{)
(newline)
(ahk-indent-line)
(insert #\})
(ahk-indent-line)
(forward-line -1)
(ahk-indent-line))))
|
 |
