Updates/improvements -- riece-xfaceb

[riece] / lisp / riece-complete.el

diff --git a/lisp/riece-complete.el b/lisp/riece-complete.el
index 902d364..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>
@@ -19,11 +19,13 @@
 
 ;; You should have received a copy of the GNU General Public License
 ;; along with GNU Emacs; see the file COPYING.  If not, write to the
-;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
-;; Boston, MA 02111-1307, USA.
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
 
 ;;; Code:
 
+(eval-when-compile (require 'cl))      ;butlast
+
 (require 'riece-compat)
 
 (defvar riece-minibuffer-map
@@ -53,7 +55,7 @@
 ;;; stolen (and renamed) from crm.el.
 (defvar riece-completing-read-multiple-separator ",")
 (defvar riece-completing-read-multiple-table nil)
-  
+
 (defun riece-completing-read-multiple-1 (string predicate flag)
   "Function used by `riece-completing-read-multiple'.
 The value of STRING is the string to be completed.