equal
deleted
inserted
replaced
2117 (when (featurep 'fsm) |
2117 (when (featurep 'fsm) |
2118 (setq fsm-debug nil)) ; Disable *fsm-debug* buffer. |
2118 (setq fsm-debug nil)) ; Disable *fsm-debug* buffer. |
2119 ;; Handle Emacs exit. |
2119 ;; Handle Emacs exit. |
2120 (add-hook 'kill-emacs-hook 'jabber-disconnect)) |
2120 (add-hook 'kill-emacs-hook 'jabber-disconnect)) |
2121 |
2121 |
2122 (setq my-chat-prompt "[%t] %n>\n") |
2122 (defvar my-chat-prompt "[%t] %n>\n") |
2123 (setq |
2123 (setq |
2124 jabber-chat-foreign-prompt-format my-chat-prompt |
2124 jabber-chat-foreign-prompt-format my-chat-prompt |
2125 jabber-chat-local-prompt-format my-chat-prompt |
2125 jabber-chat-local-prompt-format my-chat-prompt |
2126 jabber-groupchat-prompt-format my-chat-prompt |
2126 jabber-groupchat-prompt-format my-chat-prompt |
2127 jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n") |
2127 jabber-muc-private-foreign-prompt-format "[%t] %g/%n>\n") |
2158 ) |
2158 ) |
2159 ) |
2159 ) |
2160 ) |
2160 ) |
2161 |
2161 |
2162 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send) |
2162 (global-set-key (kbd "C-x C-j C-s") 'my-jabber-send) |
2163 |
|
2164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
|
2165 (message "rcirc") |
|
2166 |
|
2167 (eval-when 'compile (require 'rcirc)) |
|
2168 |
|
2169 ;; Turn on logging everything to a special buffer, for debugging. |
|
2170 ;; (setq rcirc-debug-flag t) |
|
2171 |
|
2172 (add-hook 'rcirc-mode-hook (lambda () (rcirc-track-minor-mode 1))) |
|
2173 (setq rcirc-time-format "%H:%M ") |
|
2174 (defun rcirc-handler-301 (process cmd sender args) |
|
2175 "/away message handler.") |
|
2176 |
|
2177 (setq rcirc-default-server "irc.freenode.net") |
|
2178 (setq rcirc-default-port 6667) |
|
2179 (setq rcirc-default-nick user-nick) |
|
2180 (setq rcirc-default-user-full-name user-full-name) |
|
2181 |
2163 |
2182 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2164 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2183 (message "erc") |
2165 (message "erc") |
2184 |
2166 |
2185 (eval-when 'compile |
2167 (eval-when 'compile |
2434 (add-to-list 'auto-mode-alist '("SConscript\\'" . python-mode)) |
2416 (add-to-list 'auto-mode-alist '("SConscript\\'" . python-mode)) |
2435 |
2417 |
2436 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2418 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2437 (message "gdb, gud") |
2419 (message "gdb, gud") |
2438 ;; Use C-x SPACE to set breakpoint in source file. |
2420 ;; Use C-x SPACE to set breakpoint in source file. |
|
2421 |
|
2422 (eval-when 'compile (require 'gdb-mi nil t)) |
2439 |
2423 |
2440 (setq gdb-show-main t) ; See also (gdb-many-windows) |
2424 (setq gdb-show-main t) ; See also (gdb-many-windows) |
2441 |
2425 |
2442 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2426 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; |
2443 (message "completion, abbrev") |
2427 (message "completion, abbrev") |