08/06/12 12:43:01 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))))