[backspace] scroll-down
[return] scroll-up
" " scroll-up
+ [home] beginning-of-buffer
"$" end-of-buffer
+ [end] end-of-buffer
"/" riece-command-raw
">" end-of-buffer
"<" beginning-of-buffer
[delete] riece-command-scroll-down
[backspace] riece-command-scroll-down
" " riece-command-scroll-up
+ [home] riece-command-beginning-of-buffer
"$" 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
(delete-region start end)))))
(defun riece-exit ()
- (let ((pointer riece-addons))
- (while pointer
- (riece-disable-addon (car pointer) riece-debug)
- (setq pointer (cdr pointer))))
(if riece-save-variables-are-dirty
(riece-save-variables-files))
(while riece-buffer-list
"^[]{}'`"))
(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