Use lexical binding.

author Daiki Ueno <ueno@unixuser.org>

Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)

committer Daiki Ueno <ueno@unixuser.org>

Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)
author Daiki Ueno <ueno@unixuser.org>
Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)
committer Daiki Ueno <ueno@unixuser.org>
Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)
diff --git a/lisp/ChangeLog b/lisp/ChangeLog

index cb75d22..faea2ca 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+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.
  2011-03-25  Daiki Ueno  <ueno@unixuser.org>
  
         * riece-url.el (riece-url-regexp): Update the default value.
diff --git a/lisp/riece-000.el b/lisp/riece-000.el

index bd26fb6..eb867eb 100644 (file)
--- a/lisp/riece-000.el
+++ b/lisp/riece-000.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -35,7 +35,7 @@
    (riece-default-handle-numeric-reply
     riece-info-prefix prefix number name string))
  
    (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")))
    "RPL_WELCOME \"Welcome to the Internet Relay Network <nick>!<user>@<host>\""
    (if riece-real-server-name
        (error (riece-mcat "Already registered")))
@@ -64,7 +64,7 @@
           (riece-command-join-channel identity (nth 1 entry)))
        (setq channel-list (cdr channel-list)))))
  
           (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
    "RPL_MYINFO \"<umodes> <chnlmodes>\""
    (if (string-match "^[^ ]+ +[^ ]+ +\\([^ ]+\\) +" string)
        (setq riece-supported-user-modes
diff --git a/lisp/riece-200.el b/lisp/riece-200.el

index 47256d2..279e7d0 100644 (file)
--- a/lisp/riece-200.el
+++ b/lisp/riece-200.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-300.el b/lisp/riece-300.el

index ad43b24..62e2f64 100644 (file)
--- a/lisp/riece-300.el
+++ b/lisp/riece-300.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -35,7 +35,7 @@
    (riece-default-handle-numeric-reply
     riece-info-prefix prefix number name string))
  
    (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)
    "RPL_USERHOST \":*1<reply> *( \" \" <reply> )\""
    (let ((replies (split-string (if (eq (aref string 0) ?:)
                                    (substring string 1)
@@ -76,7 +76,7 @@
               "\n"))))
        (setq replies (cdr replies)))))
  
               "\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
    (riece-insert-info
     (list riece-dialogue-buffer riece-others-buffer)
     (concat
@@ -94,7 +94,7 @@
               "")))
      "\n")))
  
               "")))
      "\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))))
    (if (string-match (concat "^\\([^ ]+\\) :?") string)
        (let ((user (match-string 1 string))
             (message (substring string (match-end 0))))
@@ -113,21 +113,21 @@
                    message))
           "\n")))))
  
                    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))
  
    (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))
  
    (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)
    (if (string-match
         (concat "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\* :?")
         string)
@@ -147,7 +147,7 @@
                    user-at-host))
           "\n")))))
  
                    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)
    (if (string-match
         (concat "^\\([^ ]+\\) \\([^ ]+\\) :?")
         string)
@@ -160,7 +160,7 @@
                  (substring string (match-end 0))))
         "\n"))))
  
                  (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
    (if (string-match "^[^ ]+" string)
        (let ((user (match-string 0 string)))
         (riece-insert-info
@@ -173,7 +173,7 @@
                     t)))
           "\n")))))
  
                     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)
    (if (string-match
         (concat "^\\([^ ]+\\) \\([0-9]+\\) ")
         string)
@@ -203,7 +203,7 @@
                               " ")))
           "\n")))))
  
                               " ")))
           "\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
    (if (string-match (concat "^\\([^ ]+\\) :?") string)
        (let ((user (match-string 1 string))
             (channels
@@ -231,7 +231,7 @@
                    channels))
           "\n")))))
  
                    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)
    (if (string-match "\\([^ ]+\\.[^ ]+\\) \\([^ ]+\\) :?" string)
        (riece-insert-info
         (list riece-dialogue-buffer riece-others-buffer)
@@ -244,7 +244,7 @@
         "\n"))))
  
  (defvar riece-353-message-alist nil)
         "\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)
    "RPL_NAMREPLY        \"[=\*@] <channel> :[[@|+]<nick> [[@|+]<nick> [...]]]\"."
    (make-local-variable 'riece-353-message-alist)      
    (if (string-match "^[=\*@] *\\([^ ]+\\) +:?" string)
@@ -259,7 +259,7 @@
                             (concat (substring string (match-end 0)) " "))
                       riece-353-message-alist))))))
  
                             (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))
    (let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
          (channel (car parameters))
          (visible (nth 1 parameters))
@@ -284,7 +284,7 @@
                (riece-format-identity channel-identity t) visible topic))
        "\n"))))
  
                (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)))
    (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) " string)
        (let* ((channel (match-string 1 string))
              (mode-string (match-string 2 string)))
@@ -307,7 +307,7 @@
                      mode-string))
             "\n"))))))
  
                      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
    (let* ((parameters (riece-split-parameters (riece-decoded-string decoded)))
          (channel (car parameters))
          topic
@@ -340,7 +340,7 @@
  (defun riece-handle-332-message (prefix number name string)
    (riece-handle-set-topic prefix number name string nil))
  
  (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))
    (if (string-match "^\\([^ ]+\\) " string)
        (let* ((channel (substring string (match-end 0)))
              (user (match-string 1 string))
@@ -358,7 +358,7 @@
                    (riece-format-identity channel-identity t)))
           "\n")))))
  
                    (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))
    (if (string-match "^\\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([^ ]+\\) \\([HG]\\)\\(\\*\\)?\\([@+]\\)? :\\([0-9]+\\) " string)
        (let* ((channel (match-string 1 string))
              (user (match-string 2 string))
@@ -423,11 +423,11 @@
              info)))
           "\n")))))
  
              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))
    "RPL_ENDOFNAMES \"<channel> :End of NAMES list\""
    (if (string-match "^\\([^ ]+\\) " string)
        (let* ((channel (match-string 1 string))
diff --git a/lisp/riece-400.el b/lisp/riece-400.el

index 02ded58..960ecaa 100644 (file)
--- a/lisp/riece-400.el
+++ b/lisp/riece-400.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -42,7 +42,7 @@
      (quit
       (ignore (message "%s" (concat prompt "Quit"))))))
  
      (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
    "ERR_ERRONEUSNICKNAME        \"<nick> :Erroneous nickname\"."
    (let ((nickname
          (riece-handle-read-string
@@ -51,7 +51,7 @@
      (if nickname
         (riece-send-string (format "NICK %s\r\n" nickname)))))
  
      (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
    "ERR_NICKNAMEINUSE \"<nick> :Nickname is already in use\"."
    (let ((nickname
          (riece-handle-read-string
@@ -60,12 +60,12 @@
      (if nickname
         (riece-send-string (format "NICK %s\r\n" nickname)))))
  
      (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))
  
    "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)
    "ERR_BADCHANNELKEY \"<channel> :Cannot join channel (+k)\"."
    (let* ((parameters (riece-split-parameters string))
          (channel-identity (riece-make-identity (car parameters)
diff --git a/lisp/riece-500.el b/lisp/riece-500.el

index 0bf715c..769c145 100644 (file)
--- a/lisp/riece-500.el
+++ b/lisp/riece-500.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-addon.el b/lisp/riece-addon.el

index 61e30f9..f7dab98 100644 (file)
--- a/lisp/riece-addon.el
+++ b/lisp/riece-addon.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-alias.el b/lisp/riece-alias.el

index f2bb695..be37d7b 100644 (file)
--- a/lisp/riece-alias.el
+++ b/lisp/riece-alias.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-async.el b/lisp/riece-async.el

index 5d143c4..8b84a74 100644 (file)
--- a/lisp/riece-async.el
+++ b/lisp/riece-async.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -68,7 +68,7 @@ assumed that the file is in the same directory of this file.")
    "Connect to IRC server via async proxy.")
  
  ;;;###autoload
    "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
    (let* (process-connection-type
          (process
           (apply #'start-process name buffer riece-ruby-command
diff --git a/lisp/riece-biff.el b/lisp/riece-biff.el

index 63c5dff..36953a3 100644 (file)
--- a/lisp/riece-biff.el
+++ b/lisp/riece-biff.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2004 OHASHI Akira
  
  ;; Author: OHASHI Akira <bg66@koka-in.org>
@@ -65,7 +65,7 @@
                       riece-biff-check-channels))
        (setq riece-biff-mode-string 'riece-biff-biff-mode-string))))
  
                       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)))
  
    (when (get 'riece-biff 'riece-addon-enabled)
      (setq riece-biff-mode-string 'riece-biff-default-mode-string)))
  
diff --git a/lisp/riece-button.el b/lisp/riece-button.el

index a04d576..90b4375 100644 (file)
--- a/lisp/riece-button.el
+++ b/lisp/riece-button.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -56,7 +56,7 @@
    "A channel button."
    :action 'riece-button-switch-to-identity
    :help-echo
    "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)
      ;; Needed to properly clear the message due to a bug in
      ;; wid-edit (XEmacs only).
      (if (boundp 'help-echo-owns-message)
@@ -71,7 +71,7 @@
                    (widget-value (widget-at (riece-overlay-start overlay))))
                (widget-value widget/window))))))
  
                    (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)))
    "Switch to identity stored in WIDGET.
  This function is used as a callback for a channel button."
    (let ((channel (widget-value widget)))
@@ -142,7 +142,7 @@ This function is used as a callback for a channel button."
           (riece-scan-property-region
            'riece-identity
            (region-beginning) (region-end)
           (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))))
              (setq group (cons (get-text-property start 'riece-identity)
                                group)))))
        (setq group (list (get-text-property (point) 'riece-identity))))
@@ -170,7 +170,7 @@ This function is used as a callback for a channel button."
           (riece-scan-property-region
            'riece-identity
            (region-beginning) (region-end)
           (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))))
              (setq group (cons (get-text-property start 'riece-identity)
                                group)))))
        (setq group (list (get-text-property (point) 'riece-identity))))
@@ -303,7 +303,7 @@ This function is used as a callback for a channel button."
         ;; On XEmacs, BUFFER arg of widget-map-buttons is ignored.
         (set-buffer (car pointer))
         (widget-map-buttons
         ;; 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))))))
  
            (widget-leave-text widget)))
         (setq pointer (cdr pointer))))))
  
diff --git a/lisp/riece-cache.el b/lisp/riece-cache.el

index 859f26f..cd52d8f 100644 (file)
--- a/lisp/riece-cache.el
+++ b/lisp/riece-cache.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2005 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-channel.el b/lisp/riece-channel.el

index a4fc8bd..08f06c1 100644 (file)
--- a/lisp/riece-channel.el
+++ b/lisp/riece-channel.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -52,7 +52,7 @@
  Arguments are appropriate to channel users, topic, modes, banned
  users, invited users, uninvited users, and the channel key,
  respectively."
  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)
  
  (defun riece-get-channel (name)
    (let ((symbol (intern-soft (riece-identity-canonicalize-prefix name)
diff --git a/lisp/riece-coding.el b/lisp/riece-coding.el

index f6d9dda..b682e7f 100644 (file)
--- a/lisp/riece-coding.el
+++ b/lisp/riece-coding.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-commands.el b/lisp/riece-commands.el

index 1f47339..a6145cc 100644 (file)
--- a/lisp/riece-commands.el
+++ b/lisp/riece-commands.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -308,6 +308,8 @@ the layout to the selected layout-name."
                         "Really want to query LIST without argument? ")))
        (riece-send-string (format "LIST %s\r\n" pattern))))
  
                         "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)
  (defun riece-command-change-mode (channel change)
    (interactive
     (let* ((completion-ignore-case t)
@@ -341,7 +343,7 @@ the layout to the selected layout-name."
                                (riece-identity-prefix channel)
                                change))))
  
                                (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)
    (interactive
     (progn
       (riece-check-channel-commands-are-usable t)
@@ -376,7 +378,7 @@ the layout to the selected layout-name."
                  (mapconcat #'identity (nreverse group) " ")))
         (setq group nil)))))
  
                  (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)
    (interactive
     (progn
       (riece-check-channel-commands-are-usable t)
diff --git a/lisp/riece-compat.el b/lisp/riece-compat.el

index fe0547a..3c00cb5 100644 (file)
--- a/lisp/riece-compat.el
+++ b/lisp/riece-compat.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-complete.el b/lisp/riece-complete.el

index ac3366b..300bdc9 100644 (file)
--- a/lisp/riece-complete.el
+++ b/lisp/riece-complete.el
@@ -1,4 +1,4 @@
-;;; riece-complete.el --- completion
+;;; riece-complete.el --- completion -*- lexical-binding: t -*-
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-ctcp.el b/lisp/riece-ctcp.el

index 18eefdc..234a1fe 100644 (file)
--- a/lisp/riece-ctcp.el
+++ b/lisp/riece-ctcp.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -91,7 +91,7 @@
                                              message)))
             t)))))
  
                                              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)))
    (let* ((target-identity (riece-make-identity target riece-server-name))
          (buffer (if (riece-channel-p target)
                      (riece-channel-buffer target-identity)))
@@ -135,7 +135,7 @@
                (riece-format-identity target-identity t)))
        "\n"))))
  
                (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)))
    (let* ((target-identity (riece-make-identity target riece-server-name))
          (buffer (if (riece-channel-p target)
                      (riece-channel-buffer target-identity)))
@@ -187,10 +187,7 @@
       "\n")))
  
  (defun riece-handle-ctcp-action-request (prefix target string)
       "\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-display-message
       (riece-make-message (riece-make-identity user
                                               riece-server-name)
@@ -201,7 +198,7 @@
                          (riece-identity-equal-no-server
                           user riece-real-nickname)))))
  
                          (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)))
    (let* ((target-identity (riece-make-identity target riece-server-name))
          (buffer (if (riece-channel-p target)
                      (riece-channel-buffer target-identity)))
@@ -255,7 +252,7 @@
                                              message)))
             t)))))
  
                                              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
    (riece-insert-change
     (list riece-dialogue-buffer riece-others-buffer)
     (concat
@@ -266,7 +263,7 @@
              string))
      "\n")))
  
              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)))))
    (let* ((now (current-time))
          (elapsed (+ (* 65536 (- (car now) (car riece-ctcp-ping-time)))
                      (- (nth 1 now) (nth 1 riece-ctcp-ping-time)))))
@@ -280,7 +277,7 @@
                elapsed))
        "\n"))))
  
                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
    (riece-insert-change
     (list riece-dialogue-buffer riece-others-buffer)
     (concat
@@ -291,7 +288,7 @@
              string))
      "\n")))
  
              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-insert-change
     (list riece-dialogue-buffer riece-others-buffer)
     (concat
diff --git a/lisp/riece-ctlseq.el b/lisp/riece-ctlseq.el

index 5be24cc..6e4d4db 100644 (file)
--- a/lisp/riece-ctlseq.el
+++ b/lisp/riece-ctlseq.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-debug.el b/lisp/riece-debug.el

index 0cad7f4..3a9ede2 100644 (file)
--- a/lisp/riece-debug.el
+++ b/lisp/riece-debug.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2005 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-desktop-notify.el b/lisp/riece-desktop-notify.el

index ef4b771..da9a199 100644 (file)
--- a/lisp/riece-desktop-notify.el
+++ b/lisp/riece-desktop-notify.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2009 OHASHI Akira
  
  ;; Author: OHASHI Akira <bg66@koka-in.org>
@@ -145,7 +145,7 @@ This function must have only one message object as argument."
                   (symbol-name riece-desktop-notify-type)
                   (symbol-name symbol))))
  
                   (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))
    (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))
diff --git a/lisp/riece-develop.el b/lisp/riece-develop.el

index 6a5c02c..4084268 100644 (file)
--- a/lisp/riece-develop.el
+++ b/lisp/riece-develop.el
@@ -1,4 +1,4 @@
-(defun riece-insert-struct-template (prefix struct)
+(defun riece-insert-struct-template (prefix struct) -*- lexical-binding: t -*-
    (interactive "sPrefix: \nsStruct: ")
    (let (attributes
         optional-attributes
    (interactive "sPrefix: \nsStruct: ")
    (let (attributes
         optional-attributes
diff --git a/lisp/riece-display.el b/lisp/riece-display.el

index ecfe598..fb61458 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -51,13 +51,13 @@ Local to the buffer in `riece-buffer-list'.")
  (defun riece-display-connect-signals ()
    (riece-connect-signal
     'channel-list-changed
  (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
       (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)
       (with-current-buffer riece-user-list-buffer
         (run-hooks 'riece-update-buffer-functions)))
     (lambda (signal)
@@ -66,7 +66,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'channel-switched
                                 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-update-status-indicators)
       (riece-update-channel-status-indicator)
       (riece-update-channel-indicator)
@@ -78,7 +78,7 @@ Local to the buffer in `riece-buffer-list'.")
         (riece-redraw-layout))))
    (riece-connect-signal
     'user-joined-channel
         (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-emit-signal 'user-list-changed riece-current-channel))
     (lambda (signal)
       (and riece-current-channel
@@ -88,7 +88,7 @@ Local to the buffer in `riece-buffer-list'.")
                                      (riece-current-nickname))))))
    (riece-connect-signal
     'user-joined-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-join-channel (nth 1 (riece-signal-args signal)))
       (riece-switch-to-channel (nth 1 (riece-signal-args signal)))
       (setq riece-join-channel-candidate nil))
@@ -97,7 +97,7 @@ Local to the buffer in `riece-buffer-list'.")
                            (riece-current-nickname))))
    (riece-connect-signal
     'user-left-channel
                            (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-emit-signal 'user-list-changed riece-current-channel))
     (lambda (signal)
       (and riece-current-channel
@@ -107,14 +107,14 @@ Local to the buffer in `riece-buffer-list'.")
                                      (riece-current-nickname))))))
    (riece-connect-signal
     'user-left-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
       (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
       (riece-emit-signal 'user-list-changed riece-current-channel))
     (lambda (signal)
       (and riece-current-channel
@@ -131,7 +131,7 @@ Local to the buffer in `riece-buffer-list'.")
                t))))))
    (riece-connect-signal
     'user-renamed
                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-update-status-indicators)
       (riece-update-channel-indicator)
       (force-mode-line-update t))
@@ -140,7 +140,7 @@ Local to the buffer in `riece-buffer-list'.")
                            (riece-current-nickname))))
    (riece-connect-signal
     'user-renamed
                            (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-switch-to-channel (nth 1 (riece-signal-args signal))))
     (lambda (signal)
       (and riece-current-channel
@@ -148,7 +148,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'user-renamed
                                 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
       (let* ((old-identity (car (riece-signal-args signal)))
             (new-identity (nth 1 (riece-signal-args signal)))
             (pointer (riece-identity-member old-identity
@@ -165,7 +165,7 @@ Local to the buffer in `riece-buffer-list'.")
                              riece-channel-buffer-alist))))))))
    (riece-connect-signal
     'user-away-changed
                              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-update-status-indicators)
       (force-mode-line-update t))
     (lambda (signal)
@@ -173,7 +173,7 @@ Local to the buffer in `riece-buffer-list'.")
                            (riece-current-nickname))))
    (riece-connect-signal
     'user-operator-changed
                            (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-update-status-indicators)
       (force-mode-line-update t))
     (lambda (signal)
@@ -181,7 +181,7 @@ Local to the buffer in `riece-buffer-list'.")
                            (riece-current-nickname))))
    (riece-connect-signal
     'channel-topic-changed
                            (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-update-long-channel-indicator)
       (force-mode-line-update t))
     (lambda (signal)
@@ -190,7 +190,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'channel-modes-changed
                                 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-update-long-channel-indicator)
       (force-mode-line-update t))
     (lambda (signal)
@@ -199,7 +199,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'channel-operators-changed
                                 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-update-channel-status-indicator)
       (riece-emit-signal 'user-list-changed riece-current-channel))
     (lambda (signal)
@@ -208,7 +208,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'channel-speakers-changed
                                 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-update-channel-status-indicator)
       (riece-emit-signal 'user-list-changed riece-current-channel))
     (lambda (signal)
@@ -217,7 +217,7 @@ Local to the buffer in `riece-buffer-list'.")
                                 riece-current-channel))))
    (riece-connect-signal
     'buffer-freeze-changed
                                 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-update-status-indicators)
       (force-mode-line-update t))))
  
diff --git a/lisp/riece-doctor.el b/lisp/riece-doctor.el

index 0c75ace..ebb3652 100644 (file)
--- a/lisp/riece-doctor.el
+++ b/lisp/riece-doctor.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-emacs.el b/lisp/riece-emacs.el

index cc58b4c..c37a7ac 100644 (file)
--- a/lisp/riece-emacs.el
+++ b/lisp/riece-emacs.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1999 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -48,7 +48,7 @@
              (car (last (symbol-function function)))
            function)))))
  
              (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))))
    (let ((function (riece-popup-menu-bogus-filter-constructor menu)))
      (if function
         (funcall function))))
diff --git a/lisp/riece-epg.el b/lisp/riece-epg.el

index a33d8ad..2b8c415 100644 (file)
--- a/lisp/riece-epg.el
+++ b/lisp/riece-epg.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2006 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -191,7 +191,7 @@
             :notify #'riece-epg-encrypted-button-notify
             (get-text-property start 'riece-epg-encryption-target)))))))
  
             :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))
    (let* ((from (marker-position (widget-get widget :from)))
          (to (marker-position (widget-get widget :to)))
          (target (widget-get widget :value))
diff --git a/lisp/riece-eval-ruby.el b/lisp/riece-eval-ruby.el

index 8595a57..58682c9 100644 (file)
--- a/lisp/riece-eval-ruby.el
+++ b/lisp/riece-eval-ruby.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2005 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-eval.el b/lisp/riece-eval.el

index 4969bf5..7ffed3f 100644 (file)
--- a/lisp/riece-eval.el
+++ b/lisp/riece-eval.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2005 OHASHI Akira
  
  ;; Author: OHASHI Akira <bg66@koka-in.org>
diff --git a/lisp/riece-filter.el b/lisp/riece-filter.el

index 42900e9..74771f4 100644 (file)
--- a/lisp/riece-filter.el
+++ b/lisp/riece-filter.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-foolproof.el b/lisp/riece-foolproof.el

index 9f688d1..7e451b6 100644 (file)
--- a/lisp/riece-foolproof.el
+++ b/lisp/riece-foolproof.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2004 TAKAHASHI Kaoru
  
  ;; Author: TAKAHASHI Kaoru <kaoru@kaisei.org>
diff --git a/lisp/riece-globals.el b/lisp/riece-globals.el

index 3991229..50cec2c 100644 (file)
--- a/lisp/riece-globals.el
+++ b/lisp/riece-globals.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-google.el b/lisp/riece-google.el

index 465d068..d596a06 100644 (file)
--- a/lisp/riece-google.el
+++ b/lisp/riece-google.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2005 OHASHI Akira
  
  ;; Author: OHASHI Akira <bg66@koka-in.org>
@@ -210,7 +210,7 @@ end
                                   (buffer-substring (point-min) (point)))
         (delete-region (point-min) (progn (beginning-of-line 2) (point)))))))
  
                                   (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)
    (delete-process process))
  
  (defun riece-google-send-string (target message)
diff --git a/lisp/riece-guess.el b/lisp/riece-guess.el

index b6fc51e..4b08c09 100644 (file)
--- a/lisp/riece-guess.el
+++ b/lisp/riece-guess.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-handle.el b/lisp/riece-handle.el

index 9dc1cb7..f2cbf06 100644 (file)
--- a/lisp/riece-handle.el
+++ b/lisp/riece-handle.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -37,7 +37,7 @@
  (require 'riece-500)
  
  (defun riece-default-handle-numeric-reply
  (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
    (riece-insert
     (list riece-dialogue-buffer riece-others-buffer)
     (concat client-prefix
@@ -124,7 +124,7 @@
         (list riece-dialogue-buffer riece-others-buffer)
         (concat (riece-concat-server-name message) "\n")))))
  
         (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-send-string (format "PONG :%s\r\n"
                              (if (eq (aref string 0) ?:)
                                  (substring string 1)
diff --git a/lisp/riece-hangman.el b/lisp/riece-hangman.el

index 426935e..8740bf6 100644 (file)
--- a/lisp/riece-hangman.el
+++ b/lisp/riece-hangman.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-highlight.el b/lisp/riece-highlight.el

index f40638e..2c47a56 100644 (file)
--- a/lisp/riece-highlight.el
+++ b/lisp/riece-highlight.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -229,7 +229,7 @@
    (if (get 'riece-highlight 'riece-addon-enabled)
        (font-lock-mode 1)))
  
    (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)
    (save-excursion
      (goto-char start)
      (if (looking-at riece-prefix-regexp)
diff --git a/lisp/riece-history.el b/lisp/riece-history.el

index 25b8e7e..3f26a57 100644 (file)
--- a/lisp/riece-history.el
+++ b/lisp/riece-history.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-icon.el b/lisp/riece-icon.el

index a137fd0..81ffd13 100644 (file)
--- a/lisp/riece-icon.el
+++ b/lisp/riece-icon.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -195,7 +195,7 @@ static char * a_xpm[] = {
        (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)
         (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)
        (create-image data 'xpm t :ascent 'center))))
  
  (defun riece-icon-make-images (alist)
@@ -210,7 +210,7 @@ static char * a_xpm[] = {
    (if (featurep 'xemacs)
        (defun riece-icon-add-image-region (image start end)
         (map-extents
    (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)))
            (if (or (extent-property extent 'riece-icon-user-list-extent)
                    (extent-property extent 'riece-icon-user-list-annotation))
                (delete-extent extent)))
diff --git a/lisp/riece-identity.el b/lisp/riece-identity.el

index b1a2f34..7e266df 100644 (file)
--- a/lisp/riece-identity.el
+++ b/lisp/riece-identity.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-ignore.el b/lisp/riece-ignore.el

index 27fd4eb..70b383b 100644 (file)
--- a/lisp/riece-ignore.el
+++ b/lisp/riece-ignore.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -64,7 +64,7 @@ Otherwise, they are not removed from IRC buffers, but are hidden with
    "Ignore messages from some users.")
  (defvar riece-ignored-user-list nil)
  
    "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
    (let ((pointer (riece-identity-member (car (riece-signal-args signal))
                                         riece-ignored-user-list)))
      (if pointer
diff --git a/lisp/riece-irc.el b/lisp/riece-irc.el

index a2c158e..5b56993 100644 (file)
--- a/lisp/riece-irc.el
+++ b/lisp/riece-irc.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-kakasi.el b/lisp/riece-kakasi.el

index f51eb59..bdd45e1 100644 (file)
--- a/lisp/riece-kakasi.el
+++ b/lisp/riece-kakasi.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-keepalive.el b/lisp/riece-keepalive.el

index c0c25a6..9d32757 100644 (file)
--- a/lisp/riece-keepalive.el
+++ b/lisp/riece-keepalive.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-keyword.el b/lisp/riece-keyword.el

index 0e6b836..f80ac3d 100644 (file)
--- a/lisp/riece-keyword.el
+++ b/lisp/riece-keyword.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -48,7 +48,8 @@
    :group 'riece-keyword)
  
  (make-obsolete-variable 'riece-notify-keyword-functions
    :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.
  
  (defcustom riece-keyword-notify-functions nil
    "Functions used to notify keyword match.
diff --git a/lisp/riece-layout.el b/lisp/riece-layout.el

index bb06dc7..ed5897b 100644 (file)
--- a/lisp/riece-layout.el
+++ b/lisp/riece-layout.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-log.el b/lisp/riece-log.el

index 86b285c..c525d25 100644 (file)
--- a/lisp/riece-log.el
+++ b/lisp/riece-log.el
@@ -1,4 +1,4 @@
-;;; 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
  
  ;; Copyright (C) 2003 OHASHI Akira
  ;; Copyright (C) 2004 Daiki Ueno
  
diff --git a/lisp/riece-lsdb.el b/lisp/riece-lsdb.el

index 22bbbed..313e240 100644 (file)
--- a/lisp/riece-lsdb.el
+++ b/lisp/riece-lsdb.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -94,7 +94,7 @@
          (table lsdb-hash-table))
       (unless (vectorp table)
         (setq table (make-vector 29 0))
          (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
                        (intern key table))
                      lsdb-hash-table))
       (list (riece-completing-read-identity
diff --git a/lisp/riece-mcat-japanese.el b/lisp/riece-mcat-japanese.el

index bdf5efd..ef6199e 100644 (file)
--- a/lisp/riece-mcat-japanese.el
+++ b/lisp/riece-mcat-japanese.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2007 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-mcat.el b/lisp/riece-mcat.el

index f20f68b..ab94aa5 100644 (file)
--- a/lisp/riece-mcat.el
+++ b/lisp/riece-mcat.el
@@ -1,4 +1,4 @@
-;;; riece-mcat.el --- message catalog
+;;; riece-mcat.el --- message catalog -*- lexical-binding: t -*-
  ;; Copyright (C) 2007 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
  ;; Copyright (C) 2007 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-menu.el b/lisp/riece-menu.el

index 6e6a6c7..2b5e699 100644 (file)
--- a/lisp/riece-menu.el
+++ b/lisp/riece-menu.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -87,13 +87,13 @@
  (defconst riece-menu-description
    "Setup Riece's command menus.")
  
  (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))
  
    (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
    (delq nil
         (mapcar (lambda (channel)
                   (if channel
@@ -109,7 +109,7 @@
                                           (riece-identity-prefix channel)) t))))
                 riece-current-channels)))
  
                                           (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")
    (mapcar (lambda (entry)
             (list (car entry)
                   (vector (riece-mcat "Open Server")
diff --git a/lisp/riece-message.el b/lisp/riece-message.el

index ba156a4..05c6fff 100644 (file)
--- a/lisp/riece-message.el
+++ b/lisp/riece-message.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1999-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-mini.el b/lisp/riece-mini.el

index da62089..e332b29 100644 (file)
--- a/lisp/riece-mini.el
+++ b/lisp/riece-mini.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2003 OHASHI Akira
  
  ;; Author: OHASHI Akira <bg66@koka-in.org>
diff --git a/lisp/riece-misc.el b/lisp/riece-misc.el

index a23d2fc..6b8cd45 100644 (file)
--- a/lisp/riece-misc.el
+++ b/lisp/riece-misc.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-mode.el b/lisp/riece-mode.el

index b0ad76e..4256db8 100644 (file)
--- a/lisp/riece-mode.el
+++ b/lisp/riece-mode.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-naming.el b/lisp/riece-naming.el

index cb0e5a9..f8460dc 100644 (file)
--- a/lisp/riece-naming.el
+++ b/lisp/riece-naming.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-ndcc.el b/lisp/riece-ndcc.el

index 8213089..1cf4cb7 100644 (file)
--- a/lisp/riece-ndcc.el
+++ b/lisp/riece-ndcc.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-options.el b/lisp/riece-options.el

index af50da7..c886a1c 100644 (file)
--- a/lisp/riece-options.el
+++ b/lisp/riece-options.el
@@ -1,4 +1,4 @@
-;;; riece-options.el --- customization
+;;; riece-options.el --- customization -*- lexical-binding: t -*-
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-rdcc.el b/lisp/riece-rdcc.el

index cf602ff..7b34f28 100644 (file)
--- a/lisp/riece-rdcc.el
+++ b/lisp/riece-rdcc.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -117,7 +117,7 @@ end
  (defvar jka-compr-compression-info-list)
  (defvar jam-zcat-filename-list)
  
  (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)))
    (if (string-match "\\([0-9]+\\) \\([0-9]+\\)" output)
        (let ((address (match-string 1 output))
             (port (match-string 2 output)))
@@ -131,7 +131,7 @@ end
                  (riece-ruby-property name 'riece-rdcc-request-size)))))
    (riece-ruby-set-output-handler name #'riece-rdcc-output-handler-2))
  
                  (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)
    (message (riece-mcat "Sending %s...(%s/%d)")
            (riece-ruby-property name 'riece-rdcc-request-file)
            (string-to-number output)
@@ -195,7 +195,7 @@ end
      (if (= riece-rdcc-received-size riece-rdcc-request-size)
         (set-process-filter process nil))))
  
      (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"))
    (with-current-buffer (process-buffer process)
      (unless (= riece-rdcc-received-size riece-rdcc-request-size)
        (error "Premature end of file"))
diff --git a/lisp/riece-ruby.el b/lisp/riece-ruby.el

index 0b7ae64..ac8ab42 100644 (file)
--- a/lisp/riece-ruby.el
+++ b/lisp/riece-ruby.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2005 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -246,7 +246,7 @@ Use `riece-ruby-set-property' to set this variable.")
               (cons (list name (cons output time))
                     riece-ruby-output-queue-alist))))))
  
               (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)
    (kill-buffer (process-buffer process)))
  
  (defun riece-ruby-execute (program)
diff --git a/lisp/riece-server.el b/lisp/riece-server.el

index 46c8148..c189ae4 100644 (file)
--- a/lisp/riece-server.el
+++ b/lisp/riece-server.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-shrink-buffer.el b/lisp/riece-shrink-buffer.el

index 38091a0..ac89ec9 100644 (file)
--- a/lisp/riece-shrink-buffer.el
+++ b/lisp/riece-shrink-buffer.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2005 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-signal.el b/lisp/riece-signal.el

index d5fe870..9d8204c 100644 (file)
--- a/lisp/riece-signal.el
+++ b/lisp/riece-signal.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-skk-kakutei.el b/lisp/riece-skk-kakutei.el

index 63f29d2..ca003cd 100644 (file)
--- a/lisp/riece-skk-kakutei.el
+++ b/lisp/riece-skk-kakutei.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2003 TAKAHASHI Kaoru
  
  ;; Author: TAKAHASHI Kaoru <kaoru@kaisei.org>
diff --git a/lisp/riece-toolbar.el b/lisp/riece-toolbar.el

index 0f28319..74eac84 100644 (file)
--- a/lisp/riece-toolbar.el
+++ b/lisp/riece-toolbar.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2004 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -66,7 +66,7 @@
    (if (featurep 'xemacs)
        (if (featurep 'toolbar)
           (progn
    (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
               (let ((pointer items)
                     toolbar
                     file
@@ -104,7 +104,7 @@
         (defalias 'riece-make-toolbar-from-menu 'ignore)
         (defalias 'riece-set-toolbar 'ignore)
         (defalias 'riece-unset-toolbar 'ignore))
         (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
        (let ((pointer items)
             (tool-bar-map (make-sparse-keymap)))
         (while pointer
diff --git a/lisp/riece-twitter.el b/lisp/riece-twitter.el

index a227cbb..5cf7b6d 100644 (file)
--- a/lisp/riece-twitter.el
+++ b/lisp/riece-twitter.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2007 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -87,7 +87,7 @@
                                  "-d" "source=riece"))))))
      (set-process-sentinel process #'riece-twitter-sentinel)))
  
                                  "-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"
    (if (equal status "finished\n")
        (message "Sending to Twitter...done")
      (message "Sending to Twitter...failed: %s"
diff --git a/lisp/riece-unread.el b/lisp/riece-unread.el

index c07c840..3b1f84d 100644 (file)
--- a/lisp/riece-unread.el
+++ b/lisp/riece-unread.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -84,7 +84,7 @@
           (setq riece-unread-channels (cons target riece-unread-channels))
           (riece-emit-signal 'channel-list-changed)))))
  
           (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
    (if (get 'riece-unread 'riece-addon-enabled)
        (setq riece-unread-channels
             (delq (car (riece-identity-member riece-current-channel
diff --git a/lisp/riece-url.el b/lisp/riece-url.el

index 7256843..3e09af4 100644 (file)
--- a/lisp/riece-url.el
+++ b/lisp/riece-url.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -129,7 +129,7 @@ This maps a string \"Bug#12345\" to a URL
                           (mapcar #'list riece-urls))))
    (browse-url url))
  
                           (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))
    (mapcar (lambda (url)
             (vector url (list 'browse-url url)))
           riece-urls))
diff --git a/lisp/riece-user.el b/lisp/riece-user.el

index c780e61..9daf51a 100644 (file)
--- a/lisp/riece-user.el
+++ b/lisp/riece-user.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-version.el b/lisp/riece-version.el

index 49fb1fb..36130fe 100644 (file)
--- a/lisp/riece-version.el
+++ b/lisp/riece-version.el
@@ -1,4 +1,4 @@
-;;; 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
  ;; Copyright (C) 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
  ;;        Free Software Foundation, Inc.
  ;; Copyright (C) 1998-2003 Daiki Ueno
diff --git a/lisp/riece-xemacs.el b/lisp/riece-xemacs.el

index 4ebad2b..f0512ad 100644 (file)
--- a/lisp/riece-xemacs.el
+++ b/lisp/riece-xemacs.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-xface.el b/lisp/riece-xface.el

index d43cf5e..391490a 100644 (file)
--- a/lisp/riece-xface.el
+++ b/lisp/riece-xface.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
diff --git a/lisp/riece-xfaceb.el b/lisp/riece-xfaceb.el

index 18cd715..d504d2b 100644 (file)
--- a/lisp/riece-xfaceb.el
+++ b/lisp/riece-xfaceb.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2005 Daiki Ueno
  
  ;; Author: Steve Youngs <steve@sxemacs.org>
diff --git a/lisp/riece-yank.el b/lisp/riece-yank.el

index 914d05f..6c7aa37 100644 (file)
--- a/lisp/riece-yank.el
+++ b/lisp/riece-yank.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 2004 Masatake YAMATO
  
  ;; Author: Masatake YAMATO <jet@gyve.org>
diff --git a/lisp/riece.el b/lisp/riece.el

index bce18ad..0b99038 100644 (file)
--- a/lisp/riece.el
+++ b/lisp/riece.el
@@ -1,4 +1,4 @@
-;;; 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>
  ;; Copyright (C) 1998-2003 Daiki Ueno
  
  ;; Author: Daiki Ueno <ueno@unixuser.org>
@@ -245,6 +245,7 @@ If optional argument SAFE is nil, overwrite previous definitions."
  
  (defvar print-quoted)
  (defvar print-escape-multibyte)
  
  (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)
  (defun riece-save-variables-files ()
    "Save current settings to `riece-saved-variables-file'."
    (message (riece-mcat "Saving %s...") riece-saved-variables-file)
author	Daiki Ueno <ueno@unixuser.org>
	Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)
committer	Daiki Ueno <ueno@unixuser.org>
	Mon, 4 Apr 2011 06:49:01 +0000 (15:49 +0900)
lisp/ChangeLog		patch \| blob \| history
lisp/riece-000.el		patch \| blob \| history
lisp/riece-200.el		patch \| blob \| history
lisp/riece-300.el		patch \| blob \| history
lisp/riece-400.el		patch \| blob \| history
lisp/riece-500.el		patch \| blob \| history
lisp/riece-addon.el		patch \| blob \| history
lisp/riece-alias.el		patch \| blob \| history
lisp/riece-async.el		patch \| blob \| history
lisp/riece-biff.el		patch \| blob \| history
lisp/riece-button.el		patch \| blob \| history
lisp/riece-cache.el		patch \| blob \| history
lisp/riece-channel.el		patch \| blob \| history
lisp/riece-coding.el		patch \| blob \| history
lisp/riece-commands.el		patch \| blob \| history
lisp/riece-compat.el		patch \| blob \| history
lisp/riece-complete.el		patch \| blob \| history
lisp/riece-ctcp.el		patch \| blob \| history
lisp/riece-ctlseq.el		patch \| blob \| history
lisp/riece-debug.el		patch \| blob \| history
lisp/riece-desktop-notify.el		patch \| blob \| history
lisp/riece-develop.el		patch \| blob \| history
lisp/riece-display.el		patch \| blob \| history
lisp/riece-doctor.el		patch \| blob \| history
lisp/riece-emacs.el		patch \| blob \| history
lisp/riece-epg.el		patch \| blob \| history
lisp/riece-eval-ruby.el		patch \| blob \| history
lisp/riece-eval.el		patch \| blob \| history
lisp/riece-filter.el		patch \| blob \| history
lisp/riece-foolproof.el		patch \| blob \| history
lisp/riece-globals.el		patch \| blob \| history
lisp/riece-google.el		patch \| blob \| history
lisp/riece-guess.el		patch \| blob \| history
lisp/riece-handle.el		patch \| blob \| history
lisp/riece-hangman.el		patch \| blob \| history
lisp/riece-highlight.el		patch \| blob \| history
lisp/riece-history.el		patch \| blob \| history
lisp/riece-icon.el		patch \| blob \| history
lisp/riece-identity.el		patch \| blob \| history
lisp/riece-ignore.el		patch \| blob \| history
lisp/riece-irc.el		patch \| blob \| history
lisp/riece-kakasi.el		patch \| blob \| history
lisp/riece-keepalive.el		patch \| blob \| history
lisp/riece-keyword.el		patch \| blob \| history
lisp/riece-layout.el		patch \| blob \| history
lisp/riece-log.el		patch \| blob \| history
lisp/riece-lsdb.el		patch \| blob \| history
lisp/riece-mcat-japanese.el		patch \| blob \| history
lisp/riece-mcat.el		patch \| blob \| history
lisp/riece-menu.el		patch \| blob \| history
lisp/riece-message.el		patch \| blob \| history
lisp/riece-mini.el		patch \| blob \| history
lisp/riece-misc.el		patch \| blob \| history
lisp/riece-mode.el		patch \| blob \| history
lisp/riece-naming.el		patch \| blob \| history
lisp/riece-ndcc.el		patch \| blob \| history
lisp/riece-options.el		patch \| blob \| history
lisp/riece-rdcc.el		patch \| blob \| history
lisp/riece-ruby.el		patch \| blob \| history
lisp/riece-server.el		patch \| blob \| history
lisp/riece-shrink-buffer.el		patch \| blob \| history
lisp/riece-signal.el		patch \| blob \| history
lisp/riece-skk-kakutei.el		patch \| blob \| history
lisp/riece-toolbar.el		patch \| blob \| history
lisp/riece-twitter.el		patch \| blob \| history
lisp/riece-unread.el		patch \| blob \| history
lisp/riece-url.el		patch \| blob \| history
lisp/riece-user.el		patch \| blob \| history
lisp/riece-version.el		patch \| blob \| history
lisp/riece-xemacs.el		patch \| blob \| history
lisp/riece-xface.el		patch \| blob \| history
lisp/riece-xfaceb.el		patch \| blob \| history
lisp/riece-yank.el		patch \| blob \| history
lisp/riece.el		patch \| blob \| history