[return] scroll-up
" " scroll-up
"$" end-of-buffer
+ [end] end-of-buffer
"/" riece-command-raw
">" end-of-buffer
"<" beginning-of-buffer
[backspace] riece-command-scroll-down
" " riece-command-scroll-up
"$" riece-command-end-of-buffer
+ [end] riece-command-end-of-buffer
">" riece-command-next-channel
"<" riece-command-previous-channel
"\C-j" riece-command-next-channel
(setq server-list (cdr server-list))))
(let ((pointer riece-addons))
(while pointer
- (riece-enable-addon (car pointer) riece-debug)
+ (unless (get (car pointer) 'riece-addon-default-disabled)
+ (riece-enable-addon (car pointer) riece-debug))
(setq pointer (cdr pointer))))
(run-hooks 'riece-startup-hook)
(message "%s" (substitute-command-keys
"^[]{}'`"))
(run-hooks 'riece-command-mode-hook))
-
+
(defun riece-dialogue-mode ()
"Major mode for displaying the IRC dialogue.
All normal editing commands are turned off.
All normal editing commands are turned off.
Instead, these commands are available:
\\{riece-channel-mode-map}"
+ (make-local-variable 'riece-channel-buffer-window-point)
(setq mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: "
(kill-all-local-variables)
(buffer-disable-undo)
(setq major-mode 'riece-channel-list-mode
- mode-name "Channels"
+ mode-name "Channels"
mode-line-buffer-identification
(riece-mode-line-buffer-identification '("Riece: "))
truncate-lines t
(kill-all-local-variables)
(buffer-disable-undo)
(setq major-mode 'riece-user-list-mode
- mode-name "Users"
+ mode-name "Users"
mode-line-buffer-identification
(riece-mode-line-buffer-identification
'("Riece: " riece-long-channel-indicator " "))
(eq major-mode (nth 2 (car alist))))
(funcall (nth 2 (car alist))))
(setq alist (cdr alist))))))
-
+
(provide 'riece)
;;; riece.el ends here