Support XEmacs 21.1 & APEL 10.2.

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

diff --git a/lisp/liece-400.el b/lisp/liece-400.el
index ab16b3d..b56e3de 100644 (file)
--- a/lisp/liece-400.el
+++ b/lisp/liece-400.el
@@ -89,7 +89,7 @@
       (liece-message
        (_ "Erroneous nickname %s.  Choose a new one with %s.")
        nick (substitute-command-keys "\\[liece-command-nickname]"))
-      (beep))))
+      (liece-beep))))
 
 (defun liece-handle-433-message (prefix rest)
   "ERR_NICKNAMEINUSE \"<nickname> :Nickname is already in use\"."
@@ -109,7 +109,7 @@
        (liece-message
         (_ "Nickname %s already in use.  Choose a new one with %s.")
         nick (substitute-command-keys "\\[liece-command-nickname]"))
-       (beep))))))
+       (liece-beep))))))
 
 (defun liece-handle-442-message (prefix rest)
   "ERR_NOTONCHANNEL \"<channel> :You're not on that channel\"."