(require 'riece-message)
(require 'riece-mcat)
-(autoload 'derived-mode-class "derived")
-
;;; Channel movement:
(defun riece-command-switch-to-channel (channel)
(interactive (list (riece-completing-read-identity
(riece-line-beginning-position)
(riece-line-end-position))
nil)
- (let ((next-line-add-newlines t))
- (next-line 1)))
+ (if (> (forward-line) 0)
+ (insert "\n")))
(defun riece-command-enter-message-as-notice ()
"Send the current line to the current channel as NOTICE."
(riece-line-beginning-position)
(riece-line-end-position))
t)
- (let ((next-line-add-newlines t))
- (next-line 1)))
+ (if (> (forward-line) 0)
+ (insert "\n")))
(defun riece-command-enter-message-to-user (user)
"Send the current line to USER."
user)
(riece-display-message
(riece-make-message (riece-current-nickname) user text nil t)))
- (let ((next-line-add-newlines t))
- (next-line 1)))
+ (if (> (forward-line) 0)
+ (insert "\n")))
(defun riece-command-join-channel (target key)
(unless (riece-server-opened (riece-identity-server target))
"Prevent automatic scrolling of the dialogue window.
If prefix argument ARG is non-nil, toggle frozen status."
(interactive "P")
- (with-current-buffer (if (eq (derived-mode-class major-mode)
- 'riece-dialogue-mode)
+ (with-current-buffer (if (riece-derived-mode-p 'riece-dialogue-mode)
(current-buffer)
(if (and riece-channel-buffer-mode
riece-channel-buffer)
The difference from `riece-command-freeze' is that your messages are hidden.
If prefix argument ARG is non-nil, toggle frozen status."
(interactive "P")
- (with-current-buffer (if (eq (derived-mode-class major-mode)
- 'riece-dialogue-mode)
+ (with-current-buffer (if (riece-derived-mode-p 'riece-dialogue-mode)
(current-buffer)
(if (and riece-channel-buffer-mode
riece-channel-buffer)