Commits

daiki  committed 954853f

2002-06-08 Adrian Aichner <adrian@xemacs.org>

* Makefile.lisp: Include XEmacs.rules.
* liece-commands.el (liece-command-nickname): Use
truncate-string-to-width instead of non-existent truncate-string.
* liece.el (liece-open-server): Ditto.

  • Participants
  • Parent commits df5c0c3

Comments (0)

Files changed (4)

File lisp/ChangeLog

+2002-06-08  Adrian Aichner  <adrian@xemacs.org>
+
+	* Makefile.lisp: Include XEmacs.rules.
+	* liece-commands.el (liece-command-nickname): Use
+	truncate-string-to-width instead of non-existent truncate-string.
+	* liece.el (liece-open-server): Ditto.
+
 2002-06-05  Steve Youngs  <youngs@xemacs.org>
 
 	* liece-inlines.el (string-equal-ignore-case): Don't try to use

File lisp/Makefile.lisp

 
 GOMI     = liece-setup.el *.elc
 
-all: elc
+include ../../../XEmacs.rules
+
+all:: elc
 
 elc: 
 	$(EMACS) $(FLAGS) -l ./liece-make.el -f autoload-liece \
 	$(XEMACS) $(FLAGS) -l ./liece-make.el -f install-liece-package \
 		$(PACKAGEDIR)
 
-clean:
+clean::
 	-rm -f $(GOMI)

File lisp/liece-commands.el

 (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))))

File lisp/liece.el

       ;; notify the real nickname to the user.
       (or liece-real-nickname
 	  (setq liece-real-nickname
-		(truncate-string liece-nickname liece-nick-max-length)))
+		(truncate-string-to-width liece-nickname liece-nick-max-length)))
       (setq liece-nickname-last liece-real-nickname
 	    liece-nick-accepted 'sent
 	    liece-after-registration t))))