X-Git-Url: https://cgit.sxemacs.org/?p=riece;a=blobdiff_plain;f=lisp%2Friece-complete.el;h=2354a1e5278d4b3f959aa40860197357400ad31e;hp=902d3640e6867d91b1aa03fef365344bd947a3f4;hb=f4afafd208d3c89b60c3d18674980aa0becec949;hpb=fe7ce5e9a344721b1ecdd4d9ec1adce5dc908a49

diff --git a/lisp/riece-complete.el b/lisp/riece-complete.el
index 902d364..2354a1e 100644
--- a/lisp/riece-complete.el
+++ b/lisp/riece-complete.el
@@ -24,6 +24,8 @@
 
 ;;; 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.