* lisp/liece-menu.el (liece-menu-channel-menu): Move `liece-command-freeze'

from `liece-menu-IRC-menu'.
(liece-menu-channel-menu): Move `liece-command-own-freeze'
from 'liece-menu-IRC-menu'.
(liece-menu-channel-menu): New menu item `liece-dialogue-beep'.

* etc/Emacs.ad: Add and rewrite about them.

diff --git a/etc/Emacs.ad b/etc/Emacs.ad
index 52b5335..bc80748 100644 (file)
--- a/etc/Emacs.ad
+++ b/etc/Emacs.ad
@@ -41,6 +41,9 @@
 *XlwMenu.kickOutFromThisChannel.labelString: ¤³¤Î¥Á¥ã¥ó¥Í¥ë¤«¤é½³¤ê½Ð¤¹
 *XlwMenu.setModeOfThisChannel.labelString: ¥Á¥ã¥ó¥Í¥ë¥â¡¼¥É¤ÎÀßÄê
 *XlwMenu.setTopicOfThisChannel.labelString: ¥Á¥ã¥ó¥Í¥ë¥È¥Ô¥Ã¥¯¤ÎÀßÄê
 *XlwMenu.kickOutFromThisChannel.labelString: ¤³¤Î¥Á¥ã¥ó¥Í¥ë¤«¤é½³¤ê½Ð¤¹
 *XlwMenu.setModeOfThisChannel.labelString: ¥Á¥ã¥ó¥Í¥ë¥â¡¼¥É¤ÎÀßÄê
 *XlwMenu.setTopicOfThisChannel.labelString: ¥Á¥ã¥ó¥Í¥ë¥È¥Ô¥Ã¥¯¤ÎÀßÄê

+*XlwMenu.toggleFreezeOfThisChannel.labelString: ¤³¤Î¥Á¥ã¥ó¥Í¥ë¤Î¸ÇÄê
+*XlwMenu.toggleOwnFreezeOfThisChannel.labelString: ¤³¤Î¥Á¥ã¥ó¥Í¥ë¤Î°ì»þ¸ÇÄê
+*XlwMenu.toggleBeepNoticeOfThisChannel.labelString: ¤³¤Î¥Á¥ã¥ó¥Í¥ë¤Î¥Ó¡¼¥×ÄÌÃÎ

 *XlwMenu.listChannel.labelString: ¥Á¥ã¥ó¥Í¥ë°ìÍ÷¤òɽ¼¨
 *XlwMenu.displayNamesOfChannel.labelString: ¥á¥ó¥Ð¤Îɽ¼¨(¥Ë¥Ã¥¯¥Í¡¼¥à¤Î¤ß)
 *XlwMenu.displayWhoAreOnTheChannel.labelString: ¥á¥ó¥Ð¤Îɽ¼¨
 *XlwMenu.listChannel.labelString: ¥Á¥ã¥ó¥Í¥ë°ìÍ÷¤òɽ¼¨
 *XlwMenu.displayNamesOfChannel.labelString: ¥á¥ó¥Ð¤Îɽ¼¨(¥Ë¥Ã¥¯¥Í¡¼¥à¤Î¤ß)
 *XlwMenu.displayWhoAreOnTheChannel.labelString: ¥á¥ó¥Ð¤Îɽ¼¨

@@ -51,8 +54,6 @@
 *XlwMenu.reconfigureWindows.labelString: ¥¦¥£¥ó¥É¥¦ºÆÇÛÃÖ
 *XlwMenu.toggleChannelBufferDisplayState.labelString: ¥Á¥ã¥ó¥Í¥ë¥Ð¥Ã¥Õ¥¡¤Îɽ¼¨ÀÚÂØ
 *XlwMenu.toggleNickBufferDisplayState.labelString: ¥Ë¥Ã¥¯¥Ð¥Ã¥Õ¥¡¤Îɽ¼¨ÀÚÂØ
 *XlwMenu.reconfigureWindows.labelString: ¥¦¥£¥ó¥É¥¦ºÆÇÛÃÖ
 *XlwMenu.toggleChannelBufferDisplayState.labelString: ¥Á¥ã¥ó¥Í¥ë¥Ð¥Ã¥Õ¥¡¤Îɽ¼¨ÀÚÂØ
 *XlwMenu.toggleNickBufferDisplayState.labelString: ¥Ë¥Ã¥¯¥Ð¥Ã¥Õ¥¡¤Îɽ¼¨ÀÚÂØ

-*XlwMenu.freezeBuffer.labelString: ¥Ð¥Ã¥Õ¥¡¤Î¸ÇÄê
-*XlwMenu.ownFreezeBuffer.labelString: ¥Ð¥Ã¥Õ¥¡¤Î°ì»þ¸ÇÄê

 *XlwMenu.enterDebugMode.labelString: ¥Ç¥Ð¥Ã¥°¥â¡¼¥É
 *XlwMenu.quitIRC.labelString: IRC¤ò¤ä¤á¤ë
 
 *XlwMenu.enterDebugMode.labelString: ¥Ç¥Ð¥Ã¥°¥â¡¼¥É
 *XlwMenu.quitIRC.labelString: IRC¤ò¤ä¤á¤ë
 

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 3b5d6e5..8cbb0dd 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,13 @@
 2000-09-17  Akira Ohashi  <bg66@luck.gr.jp>
 
 2000-09-17  Akira Ohashi  <bg66@luck.gr.jp>
 

+       * liece-menu.el (liece-menu-channel-menu): Move `liece-command-freeze'
+       from `liece-menu-IRC-menu'.
+       (liece-menu-channel-menu): Move `liece-command-own-freeze'
+       from 'liece-menu-IRC-menu'.
+       (liece-menu-channel-menu): New menu item `liece-dialogue-beep'.
+
+2000-09-17  Akira Ohashi  <bg66@luck.gr.jp>
+

        * liece-channel.el (liece-channel-read-functions): Rename from
        `liece-channel-read-hook'.
 
        * liece-channel.el (liece-channel-read-functions): Rename from
        `liece-channel-read-hook'.
 

diff --git a/lisp/liece-menu.el b/lisp/liece-menu.el
index 06875c5..43738f3 100644 (file)
--- a/lisp/liece-menu.el
+++ b/lisp/liece-menu.el
@@ -136,6 +136,13 @@
      ["Set topic of this channel" liece-command-topic
       liece-current-channel]
      "----"
      ["Set topic of this channel" liece-command-topic
       liece-current-channel]
      "----"

+     ["Toggle freeze of this channel" liece-command-freeze
+      liece-current-channel]
+     ["Toggle own freeze of this channel" liece-command-own-freeze
+      liece-current-channel]
+     ["Toggle beep notice of this channel" liece-dialogue-beep
+      liece-current-channel]
+     "----"

      ["List channel" liece-command-list
       (liece-server-opened)]
      ["Display names of channel" liece-command-names
      ["List channel" liece-command-list
       (liece-server-opened)]
      ["Display names of channel" liece-command-names

@@ -161,8 +168,6 @@
     ["Toggle nick buffer display state"
      liece-command-toggle-nick-buffer-mode t]
     "----"
     ["Toggle nick buffer display state"
      liece-command-toggle-nick-buffer-mode t]
     "----"

-    ["Freeze buffer" liece-command-freeze t]
-    ["Own freeze buffer" liece-command-own-freeze t]

     ["Enter debug mode" liece-command-debug t]
     ["Quit IRC" liece-command-quit t]))
 
     ["Enter debug mode" liece-command-debug t]
     ["Quit IRC" liece-command-quit t]))