+2011-04-04 Daiki Ueno <ueno@unixuser.org>
+
+ * Use lexical binding.
+
2011-03-25 Daiki Ueno <ueno@unixuser.org>
* riece-url.el (riece-url-regexp): Update the default value.
-;;; riece-000.el --- handlers for 000 replies
+;;; riece-000.el --- handlers for 000 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(riece-default-handle-numeric-reply
riece-info-prefix prefix number name string))
-(defun riece-handle-001-message (prefix number name string)
+(defun riece-handle-001-message (prefix _number name string)
"RPL_WELCOME \"Welcome to the Internet Relay Network <nick>!<user>@<host>\""
(if riece-real-server-name
(error (riece-mcat "Already registered")))
(riece-command-join-channel identity (nth 1 entry)))
(setq channel-list (cdr channel-list)))))
-(defun riece-handle-004-message (prefix number name string)
+(defun riece-handle-004-message (_prefix _number _name string)
"RPL_MYINFO \"<umodes> <chnlmodes>\""
(if (string-match "^[^ ]+ +[^ ]+ +\\([^ ]+\\) +" string)
(setq riece-supported-user-modes
-;;; riece-200.el --- handlers for 200 replies
+;;; riece-200.el --- handlers for 200 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-300.el --- handlers for 300 replies
+;;; riece-300.el --- handlers for 300 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(riece-default-handle-numeric-reply
riece-info-prefix prefix number name string))
-(defun riece-handle-302-message (prefix number name string)
+(defun riece-handle-302-message (_prefix _number _name string)
"RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
(let ((replies (split-string (if (eq (aref string 0) ?:)
(substring string 1)
"\n"))))
(setq replies (cdr replies)))))
-(defun riece-handle-303-message (prefix number name string)
+(defun riece-handle-303-message (_prefix _number _name string)
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
(concat
"")))
"\n")))
-(defun riece-handle-301-message (prefix number name string)
+(defun riece-handle-301-message (_prefix _number _name string)
(if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(message (substring string (match-end 0))))
message))
"\n")))))
-(defun riece-handle-305-message (prefix number name string)
+(defun riece-handle-305-message (_prefix _number _name _string)
(riece-user-toggle-away riece-real-nickname nil)
(riece-emit-signal 'user-away-changed
(riece-make-identity riece-real-nickname
riece-server-name)
nil))
-(defun riece-handle-306-message (prefix number name string)
+(defun riece-handle-306-message (_prefix _number _name _string)
(riece-user-toggle-away riece-real-nickname t)
(riece-emit-signal 'user-away-changed
(riece-make-identity riece-real-nickname
riece-server-name)
t))
-(defun riece-handle-311-message (prefix number name string)
+(defun riece-handle-311-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
string)
user-at-host))
"\n")))))
-(defun riece-handle-312-message (prefix number name string)
+(defun riece-handle-312-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([^ ]+\\) :?")
string)
(substring string (match-end 0))))
"\n"))))
-(defun riece-handle-313-message (prefix number name string)
+(defun riece-handle-313-message (_prefix _number _name string)
(if (string-match "^[^ ]+" string)
(let ((user (match-string 0 string)))
(riece-insert-info
t)))
"\n")))))
-(defun riece-handle-317-message (prefix number name string)
+(defun riece-handle-317-message (_prefix _number _name string)
(if (string-match
(concat "^\\([^ ]+\\) \\([0-9]+\\) ")
string)
" ")))
"\n")))))
-(defun riece-handle-319-message (prefix number name string)
+(defun riece-handle-319-message (_prefix _number _name string)
(if (string-match (concat "^\\([^ ]+\\) :?") string)
(let ((user (match-string 1 string))
(channels
channels))
"\n")))))
-(defun riece-handle-351-message (prefix number name string)
+(defun riece-handle-351-message (_prefix _number _name string)
(if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :?" string)
(riece-insert-info
(list riece-dialogue-buffer riece-others-buffer)
"\n"))))
(defvar riece-353-message-alist nil)
-(defun riece-handle-353-message (prefix number name string)
+(defun riece-handle-353-message (_prefix _number _name string)
"RPL_NAMREPLY \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
(make-local-variable 'riece-353-message-alist)
(if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
(concat (substring string (match-end 0)) " "))
riece-353-message-alist))))))
-(defun riece-handle-322-message (prefix number name decoded)
+(defun riece-handle-322-message (_prefix _number _name decoded)
(let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
(channel (car parameters))
(visible (nth 1 parameters))
(riece-format-identity channel-identity t) visible topic))
"\n"))))
-(defun riece-handle-324-message (prefix number name string)
+(defun riece-handle-324-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
(let* ((channel (match-string 1 string))
(mode-string (match-string 2 string)))
mode-string))
"\n"))))))
-(defun riece-handle-set-topic (prefix number name decoded remove)
+(defun riece-handle-set-topic (_prefix _number _name decoded remove)
(let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
(channel (car parameters))
topic
(defun riece-handle-332-message (prefix number name string)
(riece-handle-set-topic prefix number name string nil))
-(defun riece-handle-341-message (prefix number name string)
+(defun riece-handle-341-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) " string)
(let* ((channel (substring string (match-end 0)))
(user (match-string 1 string))
(riece-format-identity channel-identity t)))
"\n")))))
-(defun riece-handle-352-message (prefix number name string)
+(defun riece-handle-352-message (_prefix _number _name string)
(if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
(let* ((channel (match-string 1 string))
(user (match-string 2 string))
info)))
"\n")))))
-(defun riece-handle-315-message (prefix number name string))
-(defun riece-handle-318-message (prefix number name string))
-(defun riece-handle-323-message (prefix number name string))
+(defun riece-handle-315-message (_prefix _number _name _string))
+(defun riece-handle-318-message (_prefix _number _name _string))
+(defun riece-handle-323-message (_prefix _number _name _string))
-(defun riece-handle-366-message (prefix number name string)
+(defun riece-handle-366-message (_prefix _number _name string)
"RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
(if (string-match "^\\([^ ]+\\) " string)
(let* ((channel (match-string 1 string))
-;;; riece-400.el --- handlers for 400 replies
+;;; riece-400.el --- handlers for 400 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(quit
(ignore (message "%s" (concat prompt "Quit"))))))
-(defun riece-handle-432-message (prefix number name string)
+(defun riece-handle-432-message (_prefix _number _name string)
"ERR_ERRONEUSNICKNAME \"<nick> :Erroneous nickname\"."
(let ((nickname
(riece-handle-read-string
(if nickname
(riece-send-string (format "NICK %s\r\n" nickname)))))
-(defun riece-handle-433-message (prefix number name string)
+(defun riece-handle-433-message (_prefix _number _name string)
"ERR_NICKNAMEINUSE \"<nick> :Nickname is already in use\"."
(let ((nickname
(riece-handle-read-string
(if nickname
(riece-send-string (format "NICK %s\r\n" nickname)))))
-(defun riece-handle-464-message (prefix number name string)
+(defun riece-handle-464-message (prefix _number _name _string)
"ERR_PASSWDMISMATCH \":Password incorrect\"."
(message (riece-mcat "Password incorrect from %s.") prefix)
(setq riece-reconnect-with-password t))
-(defun riece-handle-475-message (prefix number name string)
+(defun riece-handle-475-message (_prefix _number _name string)
"ERR_BADCHANNELKEY \"<channel> :Cannot join channel (+k)\"."
(let* ((parameters (riece-split-parameters string))
(channel-identity (riece-make-identity (car parameters)
-;;; riece-500.el --- handlers for 500 replies
+;;; riece-500.el --- handlers for 500 replies -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-addon.el --- add-on management
+;;; riece-addon.el --- add-on management -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-alias.el --- define aliases for IRC names
+;;; riece-alias.el --- define aliases for IRC names -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-async.el --- connect to IRC server via async proxy
+;;; riece-async.el --- connect to IRC server via async proxy -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
"Connect to IRC server via async proxy.")
;;;###autoload
-(defun riece-async-open-network-stream (name buffer host service)
+(defun riece-async-open-network-stream (name buffer _host _service)
(let* (process-connection-type
(process
(apply #'start-process name buffer riece-ruby-command
-;;; riece-biff.el --- be notified if messages arrives
+;;; riece-biff.el --- be notified if messages arrives -*- lexical-binding: t -*-
;; Copyright (C) 2004 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
riece-biff-check-channels))
(setq riece-biff-mode-string 'riece-biff-biff-mode-string))))
-(defun riece-biff-clear (&optional dummy)
+(defun riece-biff-clear (&optional _dummy)
(when (get 'riece-biff 'riece-addon-enabled)
(setq riece-biff-mode-string 'riece-biff-default-mode-string)))
-;;; riece-button.el --- display useful buttons in IRC buffers
+;;; riece-button.el --- display useful buttons in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
"A channel button."
:action 'riece-button-switch-to-identity
:help-echo
- (lambda (widget/window &optional overlay pos)
+ (lambda (widget/window &optional overlay _pos)
;; Needed to properly clear the message due to a bug in
;; wid-edit (XEmacs only).
(if (boundp 'help-echo-owns-message)
(widget-value (widget-at (riece-overlay-start overlay))))
(widget-value widget/window))))))
-(defun riece-button-switch-to-identity (widget &optional event)
+(defun riece-button-switch-to-identity (widget &optional _event)
"Switch to identity stored in WIDGET.
This function is used as a callback for a channel button."
(let ((channel (widget-value widget)))
(riece-scan-property-region
'riece-identity
(region-beginning) (region-end)
- (lambda (start end)
+ (lambda (start _end)
(setq group (cons (get-text-property start 'riece-identity)
group)))))
(setq group (list (get-text-property (point) 'riece-identity))))
(riece-scan-property-region
'riece-identity
(region-beginning) (region-end)
- (lambda (start end)
+ (lambda (start _end)
(setq group (cons (get-text-property start 'riece-identity)
group)))))
(setq group (list (get-text-property (point) 'riece-identity))))
;; On XEmacs, BUFFER arg of widget-map-buttons is ignored.
(set-buffer (car pointer))
(widget-map-buttons
- (lambda (widget maparg)
+ (lambda (widget _maparg)
(widget-leave-text widget)))
(setq pointer (cdr pointer))))))
-;;; riece-cache.el --- LRU cache
+;;; riece-cache.el --- LRU cache -*- lexical-binding: t -*-
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-channel.el --- a channel object
+;;; riece-channel.el --- a channel object -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
Arguments are appropriate to channel users, topic, modes, banned
users, invited users, uninvited users, and the channel key,
respectively."
- (vector users topic modes banned invited uninvited))
+ (vector users topic modes banned invited uninvited key))
(defun riece-get-channel (name)
(let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
-;;; riece-coding.el --- converting string with coding system
+;;; riece-coding.el --- converting string with coding system -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-commands.el --- commands available in command buffer
+;;; riece-commands.el --- commands available in command buffer -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
"Really want to query LIST without argument? ")))
(riece-send-string (format "LIST %s\r\n" pattern))))
+(defvar riece-temp-minibuffer-message)
+(defvar riece-overriding-server-name)
(defun riece-command-change-mode (channel change)
(interactive
(let* ((completion-ignore-case t)
(riece-identity-prefix channel)
change))))
-(defun riece-command-set-operators (users &optional arg)
+(defun riece-command-set-operators (users)
(interactive
(progn
(riece-check-channel-commands-are-usable t)
(mapconcat #'identity (nreverse group) " ")))
(setq group nil)))))
-(defun riece-command-set-speakers (users &optional arg)
+(defun riece-command-set-speakers (users)
(interactive
(progn
(riece-check-channel-commands-are-usable t)
-;;; riece-compat.el --- compatibility functions
+;;; riece-compat.el --- compatibility functions -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-complete.el --- completion
+;;; riece-complete.el --- completion -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-ctcp.el --- CTCP (Client To Client Protocol) support
+;;; riece-ctcp.el --- CTCP (Client To Client Protocol) support -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
message)))
t)))))
-(defun riece-handle-ctcp-version-request (prefix target string)
+(defun riece-handle-ctcp-version-request (prefix target _string)
(let* ((target-identity (riece-make-identity target riece-server-name))
(buffer (if (riece-channel-p target)
(riece-channel-buffer target-identity)))
(riece-format-identity target-identity t)))
"\n"))))
-(defun riece-handle-ctcp-clientinfo-request (prefix target string)
+(defun riece-handle-ctcp-clientinfo-request (prefix target _string)
(let* ((target-identity (riece-make-identity target riece-server-name))
(buffer (if (riece-channel-p target)
(riece-channel-buffer target-identity)))
"\n")))
(defun riece-handle-ctcp-action-request (prefix target string)
- (let ((buffer (if (riece-channel-p target)
- (riece-channel-buffer (riece-make-identity
- target riece-server-name))))
- (user (riece-prefix-nickname prefix)))
+ (let ((user (riece-prefix-nickname prefix)))
(riece-display-message
(riece-make-message (riece-make-identity user
riece-server-name)
(riece-identity-equal-no-server
user riece-real-nickname)))))
-(defun riece-handle-ctcp-time-request (prefix target string)
+(defun riece-handle-ctcp-time-request (prefix target _string)
(let* ((target-identity (riece-make-identity target riece-server-name))
(buffer (if (riece-channel-p target)
(riece-channel-buffer target-identity)))
message)))
t)))))
-(defun riece-handle-ctcp-version-response (prefix target string)
+(defun riece-handle-ctcp-version-response (prefix _target string)
(riece-insert-change
(list riece-dialogue-buffer riece-others-buffer)
(concat
string))
"\n")))
-(defun riece-handle-ctcp-ping-response (prefix target string)
+(defun riece-handle-ctcp-ping-response (prefix _target _string)
(let* ((now (current-time))
(elapsed (+ (* 65536 (- (car now) (car riece-ctcp-ping-time)))
(- (nth 1 now) (nth 1 riece-ctcp-ping-time)))))
elapsed))
"\n"))))
-(defun riece-handle-ctcp-clientinfo-response (prefix target string)
+(defun riece-handle-ctcp-clientinfo-response (prefix _target string)
(riece-insert-change
(list riece-dialogue-buffer riece-others-buffer)
(concat
string))
"\n")))
-(defun riece-handle-ctcp-time-response (prefix target string)
+(defun riece-handle-ctcp-time-response (prefix _target string)
(riece-insert-change
(list riece-dialogue-buffer riece-others-buffer)
(concat
-;;; riece-ctlseq.el --- mark up control sequences in IRC buffers
+;;; riece-ctlseq.el --- mark up control sequences in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-debug.el --- debug support
+;;; riece-debug.el --- debug support -*- lexical-binding: t -*-
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-desktop-notify.el --- Display notification to desktop
+;;; riece-desktop-notify.el --- Display notification to desktop -*- lexical-binding: t -*-
;; Copyright (C) 2009 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
(symbol-name riece-desktop-notify-type)
(symbol-name symbol))))
-(defun riece-desktop-notify-keyword-notify-function (keyword message)
+(defun riece-desktop-notify-keyword-notify-function (_keyword message)
(let ((program-symbol (riece-desktop-notify-make-symbol 'program))
(args-symbol (riece-desktop-notify-make-symbol 'args)))
(when (and (boundp program-symbol) (boundp args-symbol))
-(defun riece-insert-struct-template (prefix struct)
+(defun riece-insert-struct-template (prefix struct) -*- lexical-binding: t -*-
(interactive "sPrefix: \nsStruct: ")
(let (attributes
optional-attributes
-;;; riece-display.el --- buffer arrangement
+;;; riece-display.el --- buffer arrangement -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defun riece-display-connect-signals ()
(riece-connect-signal
'channel-list-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(with-current-buffer riece-channel-list-buffer
(run-hooks 'riece-update-buffer-functions))
(riece-update-channel-list-indicator)))
(riece-connect-signal
'user-list-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(with-current-buffer riece-user-list-buffer
(run-hooks 'riece-update-buffer-functions)))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-switched
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(riece-update-channel-status-indicator)
(riece-update-channel-indicator)
(riece-redraw-layout))))
(riece-connect-signal
'user-joined-channel
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
(riece-current-nickname))))))
(riece-connect-signal
'user-joined-channel
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-join-channel (nth 1 (riece-signal-args signal)))
(riece-switch-to-channel (nth 1 (riece-signal-args signal)))
(setq riece-join-channel-candidate nil))
(riece-current-nickname))))
(riece-connect-signal
'user-left-channel
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
(riece-current-nickname))))))
(riece-connect-signal
'user-left-channel
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-part-channel (nth 1 (riece-signal-args signal))))
(lambda (signal)
(riece-identity-equal (car (riece-signal-args signal))
(riece-current-nickname))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
(and riece-current-channel
t))))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(riece-update-channel-indicator)
(force-mode-line-update t))
(riece-current-nickname))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (signal _handback)
(riece-switch-to-channel (nth 1 (riece-signal-args signal))))
(lambda (signal)
(and riece-current-channel
riece-current-channel))))
(riece-connect-signal
'user-renamed
- (lambda (signal handback)
+ (lambda (signal _handback)
(let* ((old-identity (car (riece-signal-args signal)))
(new-identity (nth 1 (riece-signal-args signal)))
(pointer (riece-identity-member old-identity
riece-channel-buffer-alist))))))))
(riece-connect-signal
'user-away-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))
(lambda (signal)
(riece-current-nickname))))
(riece-connect-signal
'user-operator-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))
(lambda (signal)
(riece-current-nickname))))
(riece-connect-signal
'channel-topic-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-long-channel-indicator)
(force-mode-line-update t))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-modes-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-long-channel-indicator)
(force-mode-line-update t))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-operators-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-channel-status-indicator)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'channel-speakers-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-channel-status-indicator)
(riece-emit-signal 'user-list-changed riece-current-channel))
(lambda (signal)
riece-current-channel))))
(riece-connect-signal
'buffer-freeze-changed
- (lambda (signal handback)
+ (lambda (_signal _handback)
(riece-update-status-indicators)
(force-mode-line-update t))))
-;;; riece-doctor.el --- pretend to be a psychotherapist
+;;; riece-doctor.el --- pretend to be a psychotherapist -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-emacs.el --- FSF Emacs specific functions
+;;; riece-emacs.el --- FSF Emacs specific functions -*- lexical-binding: t -*-
;; Copyright (C) 1999 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(car (last (symbol-function function)))
function)))))
-(defun riece-popup-menu-popup (menu event)
+(defun riece-popup-menu-popup (menu _event)
(let ((function (riece-popup-menu-bogus-filter-constructor menu)))
(if function
(funcall function))))
-;;; riece-epg.el --- Encrypt/decrypt messages add-on
+;;; riece-epg.el --- Encrypt/decrypt messages add-on -*- lexical-binding: t -*-
;; Copyright (C) 2006 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
:notify #'riece-epg-encrypted-button-notify
(get-text-property start 'riece-epg-encryption-target)))))))
-(defun riece-epg-encrypted-button-notify (widget &rest ignore)
+(defun riece-epg-encrypted-button-notify (widget &rest _ignore)
(let* ((from (marker-position (widget-get widget :from)))
(to (marker-position (widget-get widget :to)))
(target (widget-get widget :value))
-;;; riece-eval-ruby.el --- evaluate input string as a Ruby program
+;;; riece-eval-ruby.el --- evaluate input string as a Ruby program -*- lexical-binding: t -*-
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-eval.el --- evaluate input string as an elisp form
+;;; riece-eval.el --- evaluate input string as an elisp form -*- lexical-binding: t -*-
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
-;;; riece-filter.el --- process filter and sentinel
+;;; riece-filter.el --- process filter and sentinel -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-foolproof.el --- prevent miss-operation in the command buffer
+;;; riece-foolproof.el --- prevent miss-operation in the command buffer -*- lexical-binding: t -*-
;; Copyright (C) 2004 TAKAHASHI Kaoru
;; Author: TAKAHASHI Kaoru <kaoru@kaisei.org>
-;;; riece-globals.el --- global variables and constants.
+;;; riece-globals.el --- global variables and constants. -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-google.el --- search keywords by Google
+;;; riece-google.el --- search keywords by Google -*- lexical-binding: t -*-
;; Copyright (C) 2005 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
(buffer-substring (point-min) (point)))
(delete-region (point-min) (progn (beginning-of-line 2) (point)))))))
-(defun riece-google-sentinel (process string)
+(defun riece-google-sentinel (process _string)
(delete-process process))
(defun riece-google-send-string (target message)
-;;; riece-guess.el --- guess the next channel, using multiple methods
+;;; riece-guess.el --- guess the next channel, using multiple methods -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-handle.el --- basic message handlers
+;;; riece-handle.el --- basic message handlers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(require 'riece-500)
(defun riece-default-handle-numeric-reply
- (client-prefix prefix number name string)
+ (client-prefix _prefix _number _name string)
(riece-insert
(list riece-dialogue-buffer riece-others-buffer)
(concat client-prefix
(list riece-dialogue-buffer riece-others-buffer)
(concat (riece-concat-server-name message) "\n")))))
-(defun riece-handle-ping-message (prefix string)
+(defun riece-handle-ping-message (_prefix string)
(riece-send-string (format "PONG :%s\r\n"
(if (eq (aref string 0) ?:)
(substring string 1)
-;;; riece-hangman.el --- allow channel members to play the hangman game
+;;; riece-hangman.el --- allow channel members to play the hangman game -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-highlight.el --- highlight IRC buffers
+;;; riece-highlight.el --- highlight IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(if (get 'riece-highlight 'riece-addon-enabled)
(font-lock-mode 1)))
-(defun riece-highlight-hide-prefix (start end length)
+(defun riece-highlight-hide-prefix (start _end _length)
(save-excursion
(goto-char start)
(if (looking-at riece-prefix-regexp)
-;;; riece-history.el --- manage history of channel shifting
+;;; riece-history.el --- manage history of channel shifting -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-icon.el --- display icons in IRC buffers
+;;; riece-icon.el --- display icons in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defun riece-icon-make-image (data string)
(make-glyph (list (vector 'xpm :data data)
(vector 'string :data string))))
- (defun riece-icon-make-image (data string)
+ (defun riece-icon-make-image (data _string)
(create-image data 'xpm t :ascent 'center))))
(defun riece-icon-make-images (alist)
(if (featurep 'xemacs)
(defun riece-icon-add-image-region (image start end)
(map-extents
- (lambda (extent ignore)
+ (lambda (extent _ignore)
(if (or (extent-property extent 'riece-icon-user-list-extent)
(extent-property extent 'riece-icon-user-list-annotation))
(delete-extent extent)))
-;;; riece-identity.el --- an identity object
+;;; riece-identity.el --- an identity object -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-ignore.el --- ignore messages from some users
+;;; riece-ignore.el --- ignore messages from some users -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
"Ignore messages from some users.")
(defvar riece-ignored-user-list nil)
-(defun riece-ignore-user-rename-signal-function (signal handback)
+(defun riece-ignore-user-rename-signal-function (signal _handback)
(let ((pointer (riece-identity-member (car (riece-signal-args signal))
riece-ignored-user-list)))
(if pointer
-;;; riece-irc.el --- IRC protocol
+;;; riece-irc.el --- IRC protocol -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-kakasi.el --- convert Japanese to roman string by KAKASI
+;;; riece-kakasi.el --- convert Japanese to roman string by KAKASI -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-keepalive.el --- keep an IRC connection
+;;; riece-keepalive.el --- keep an IRC connection -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-keyword.el --- detect keywords in IRC buffers
+;;; riece-keyword.el --- detect keywords in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
:group 'riece-keyword)
(make-obsolete-variable 'riece-notify-keyword-functions
- 'riece-keyword-notify-functions)
+ 'riece-keyword-notify-functions
+ "2003-12-22")
(defcustom riece-keyword-notify-functions nil
"Functions used to notify keyword match.
-;;; riece-layout.el --- layout management
+;;; riece-layout.el --- layout management -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-log.el --- Save IRC logs
+;;; riece-log.el --- Save IRC logs -*- lexical-binding: t -*-
;; Copyright (C) 2003 OHASHI Akira
;; Copyright (C) 2004 Daiki Ueno
-;;; riece-lsdb.el --- help register nicknames in LSDB rolodex program
+;;; riece-lsdb.el --- help register nicknames in LSDB rolodex program -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(table lsdb-hash-table))
(unless (vectorp table)
(setq table (make-vector 29 0))
- (lsdb-maphash (lambda (key value)
+ (lsdb-maphash (lambda (key _value)
(intern key table))
lsdb-hash-table))
(list (riece-completing-read-identity
-;;; riece-mcat.el --- message catalog for Japanese -*- coding: iso-2022-jp -*-
+;;; riece-mcat.el --- message catalog for Japanese -*- coding: iso-2022-jp -*- -*- lexical-binding: t -*-
;; Copyright (C) 2007 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-mcat.el --- message catalog
+;;; riece-mcat.el --- message catalog -*- lexical-binding: t -*-
;; Copyright (C) 2007 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-menu.el --- setup menus
+;;; riece-menu.el --- setup menus -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defconst riece-menu-description
"Setup Riece's command menus.")
-(defun riece-menu-create-layouts-menu (menu)
+(defun riece-menu-create-layouts-menu (_menu)
(mapcar (lambda (entry)
(vector (car entry) (list 'riece-command-change-layout (car entry))
t))
riece-layout-alist))
-(defun riece-menu-create-channels-menu (menu)
+(defun riece-menu-create-channels-menu (_menu)
(delq nil
(mapcar (lambda (channel)
(if channel
(riece-identity-prefix channel)) t))))
riece-current-channels)))
-(defun riece-menu-create-servers-menu (menu)
+(defun riece-menu-create-servers-menu (_menu)
(mapcar (lambda (entry)
(list (car entry)
(vector (riece-mcat "Open Server")
-;;; riece-message.el --- generate and display message line
+;;; riece-message.el --- generate and display message line -*- lexical-binding: t -*-
;; Copyright (C) 1999-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-mini.el --- use Riece only on the minibuffer
+;;; riece-mini.el --- use Riece only on the minibuffer -*- lexical-binding: t -*-
;; Copyright (C) 2003 OHASHI Akira
;; Author: OHASHI Akira <bg66@koka-in.org>
-;;; riece-misc.el --- miscellaneous functions (not inlined)
+;;; riece-misc.el --- miscellaneous functions (not inlined) -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-mode.el --- functions for manipulating channel/user modes
+;;; riece-mode.el --- functions for manipulating channel/user modes -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-naming.el --- toplevel naming management
+;;; riece-naming.el --- toplevel naming management -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-ndcc.el --- DCC file sending protocol support (written in elisp)
+;;; riece-ndcc.el --- DCC file sending protocol support (written in elisp) -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-options.el --- customization
+;;; riece-options.el --- customization -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-rdcc.el --- DCC file sending protocol support (written in Ruby)
+;;; riece-rdcc.el --- DCC file sending protocol support (written in Ruby) -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defvar jka-compr-compression-info-list)
(defvar jam-zcat-filename-list)
-(defun riece-rdcc-output-handler (name output time)
+(defun riece-rdcc-output-handler (name output _time)
(if (string-match "\\([0-9]+\\) \\([0-9]+\\)" output)
(let ((address (match-string 1 output))
(port (match-string 2 output)))
(riece-ruby-property name 'riece-rdcc-request-size)))))
(riece-ruby-set-output-handler name #'riece-rdcc-output-handler-2))
-(defun riece-rdcc-output-handler-2 (name output time)
+(defun riece-rdcc-output-handler-2 (name output _time)
(message (riece-mcat "Sending %s...(%s/%d)")
(riece-ruby-property name 'riece-rdcc-request-file)
(string-to-number output)
(if (= riece-rdcc-received-size riece-rdcc-request-size)
(set-process-filter process nil))))
-(defun riece-rdcc-sentinel (process status)
+(defun riece-rdcc-sentinel (process _status)
(with-current-buffer (process-buffer process)
(unless (= riece-rdcc-received-size riece-rdcc-request-size)
(error "Premature end of file"))
-;;; riece-ruby.el --- interact with Ruby interpreter
+;;; riece-ruby.el --- interact with Ruby interpreter -*- lexical-binding: t -*-
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(cons (list name (cons output time))
riece-ruby-output-queue-alist))))))
-(defun riece-ruby-sentinel (process status)
+(defun riece-ruby-sentinel (process _status)
(kill-buffer (process-buffer process)))
(defun riece-ruby-execute (program)
-;;; riece-server.el --- functions to open and close servers
+;;; riece-server.el --- functions to open and close servers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-shrink-buffer.el --- free old IRC messages to save memory usage
+;;; riece-shrink-buffer.el --- free old IRC messages to save memory usage -*- lexical-binding: t -*-
;; Copyright (C) 1998-2005 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-signal.el --- "signal-slot" abstraction for routing display events
+;;; riece-signal.el --- "signal-slot" abstraction for routing display events -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-skk-kakutei.el --- remove SKK's preedit mark before sending messages
+;;; riece-skk-kakutei.el --- remove SKK's preedit mark before sending messages -*- lexical-binding: t -*-
;; Copyright (C) 2003 TAKAHASHI Kaoru
;; Author: TAKAHASHI Kaoru <kaoru@kaisei.org>
-;;; riece-toolbar.el --- display toolbar icons
+;;; riece-toolbar.el --- display toolbar icons -*- lexical-binding: t -*-
;; Copyright (C) 1998-2004 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(if (featurep 'xemacs)
(if (featurep 'toolbar)
(progn
- (defun riece-make-toolbar-from-menu (items menu-items map)
+ (defun riece-make-toolbar-from-menu (items _menu-items _map)
(let ((pointer items)
toolbar
file
(defalias 'riece-make-toolbar-from-menu 'ignore)
(defalias 'riece-set-toolbar 'ignore)
(defalias 'riece-unset-toolbar 'ignore))
- (defun riece-make-toolbar-from-menu (items menu-items map)
+ (defun riece-make-toolbar-from-menu (items _menu-items map)
(let ((pointer items)
(tool-bar-map (make-sparse-keymap)))
(while pointer
-;;; riece-twitter.el --- post your status to Twitter
+;;; riece-twitter.el --- post your status to Twitter -*- lexical-binding: t -*-
;; Copyright (C) 2007 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
"-d" "source=riece"))))))
(set-process-sentinel process #'riece-twitter-sentinel)))
-(defun riece-twitter-sentinel (process status)
+(defun riece-twitter-sentinel (_process status)
(if (equal status "finished\n")
(message "Sending to Twitter...done")
(message "Sending to Twitter...failed: %s"
-;;; riece-unread.el --- mark channels where new messages arrived
+;;; riece-unread.el --- mark channels where new messages arrived -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(setq riece-unread-channels (cons target riece-unread-channels))
(riece-emit-signal 'channel-list-changed)))))
-(defun riece-unread-after-switch-to-channel-function (last)
+(defun riece-unread-after-switch-to-channel-function (_last)
(if (get 'riece-unread 'riece-addon-enabled)
(setq riece-unread-channels
(delq (car (riece-identity-member riece-current-channel
-;;; riece-url.el --- collect URL in IRC buffers
+;;; riece-url.el --- collect URL in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(mapcar #'list riece-urls))))
(browse-url url))
-(defun riece-url-create-menu (menu)
+(defun riece-url-create-menu (_menu)
(mapcar (lambda (url)
(vector url (list 'browse-url url)))
riece-urls))
-;;; riece-user.el --- a user object
+;;; riece-user.el --- a user object -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-version.el --- version information handling
+;;; riece-version.el --- version information handling -*- lexical-binding: t -*-
;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
;; Free Software Foundation, Inc.
;; Copyright (C) 1998-2003 Daiki Ueno
-;;; riece-xemacs.el --- XEmacs specific functions
+;;; riece-xemacs.el --- XEmacs specific functions -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-xface.el --- display X-Face in IRC buffers
+;;; riece-xface.el --- display X-Face in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
-;;; riece-xfaceb.el --- display X-Face/Colour Face in IRC buffers
+;;; riece-xfaceb.el --- display X-Face/Colour Face in IRC buffers -*- lexical-binding: t -*-
;; Copyright (C) 2005 Daiki Ueno
;; Author: Steve Youngs <steve@sxemacs.org>
-;;; riece-yank.el --- enter the element of kill-ring
+;;; riece-yank.el --- enter the element of kill-ring -*- lexical-binding: t -*-
;; Copyright (C) 2004 Masatake YAMATO
;; Author: Masatake YAMATO <jet@gyve.org>
-;;; riece.el --- IRC client for Emacsen
+;;; riece.el --- IRC client for Emacsen -*- lexical-binding: t -*-
;; Copyright (C) 1998-2003 Daiki Ueno
;; Author: Daiki Ueno <ueno@unixuser.org>
(defvar print-quoted)
(defvar print-escape-multibyte)
+(defvar print-readably)
(defun riece-save-variables-files ()
"Save current settings to `riece-saved-variables-file'."
(message (riece-mcat "Saving %s...") riece-saved-variables-file)
projects / riece / commitdiff