Catch up with the changes incorporated in XEmacs package.

[elisp/liece.git] / lisp / liece-commands.el

diff --git a/lisp/liece-commands.el b/lisp/liece-commands.el
index 5062929..e6884a9 100644 (file)
--- a/lisp/liece-commands.el
+++ b/lisp/liece-commands.el
@@ -600,7 +600,7 @@ With - as argument, list all channels."
 (defun liece-command-nickname (nick)
   "Set your nickname to NICK."
   (interactive "sEnter your nickname: ")
-  (let ((nickname (truncate-string nick liece-nick-max-length)))
+  (let ((nickname (truncate-string-to-width nick liece-nick-max-length)))
     (if (zerop (length nickname))
        (liece-message (_ "illegal nickname \"%s\"; not changed") nickname)
       (liece-send "NICK %s" nick))))