(require 'riece-addon)
(require 'riece-signal)
-(autoload 'derived-mode-class "derived")
-
(defvar riece-channel-list-mode-map (make-sparse-keymap))
(defvar riece-user-list-mode-map (make-sparse-keymap))
(setq riece-command-mode-syntax-table
(copy-syntax-table (syntax-table)))
(set-syntax-table riece-command-mode-syntax-table)
- (mapcar
- (lambda (c) (modify-syntax-entry c "w"))
- "^[]{}'`"))
+ (let* ((chars "^[]{}'`")
+ (length (length chars))
+ (index 0))
+ (while (< index length)
+ (modify-syntax-entry (aref chars index) "w")
+ (setq index (1+ index)))))
(run-hooks 'riece-command-mode-hook))
riece-mode-line-buffer-identification)
truncate-lines t
buffer-read-only t)
- (make-local-hook 'riece-update-buffer-functions)
+ (riece-make-local-hook 'riece-update-buffer-functions)
(add-hook 'riece-update-buffer-functions
'riece-update-channel-list-buffer nil t)
(use-local-map riece-channel-list-mode-map)
buffer-read-only t)
(if (boundp 'transient-mark-mode)
(set (make-local-variable 'transient-mark-mode) t))
- (make-local-hook 'riece-update-buffer-functions)
+ (riece-make-local-hook 'riece-update-buffer-functions)
(add-hook 'riece-update-buffer-functions
'riece-update-user-list-buffer nil t)
(use-local-map riece-user-list-mode-map)