Previous: Extended Menu Items, Up: Defining Menus   [Contents][Index]


21.12.1.3 ¥á¥Ë¥å¡¼¹àÌܤÎÊÌ̾

¡ØÆ±¤¸¡Ù¥³¥Þ¥ó¥É¤ò»È¤¤¤Ê¤¬¤é¥ª¥ó¾ò·ï¤¬°Û¤Ê¤ë¥á¥Ë¥å¡¼¹àÌܤò ºî¤ì¤ë¤ÈÊØÍø¤Ê¤³¤È¤¬¤¢¤ê¤Þ¤¹¡£ ¸½¾õ¤ÎEmacs¤Ç¤³¤ì¤ò¹Ô¤¦ºÇÎɤÎÊýË¡¤Ï¡¢³ÈÄ¥¥á¥Ë¥å¡¼¹àÌܤò»È¤¦¤³¤È¤Ç¤¹¡£ ¤³¤Îµ¡Ç½¤¬¤Ê¤«¤Ã¤¿º¢¤Ë¤Ï¡¢¥³¥Þ¥ó¥É¤ÎÊÌ̾¤òÄêµÁ¤·¡¢ ¤½¤ì¤ò¥á¥Ë¥å¡¼¹àÌܤǻȤ¦¤³¤È¤Ç²Äǽ¤Ç¤·¤¿¡£ °Û¤Ê¤ë¥ª¥ó¾ò·ï¤Çtoggle-read-only¤ò »È¤¦2¤Ä¤ÎÊÌ̾¤Îºî¤êÊý¤ò°Ê²¼¤Ë¼¨¤·¤Þ¤¹¡£

(defalias 'make-read-only 'toggle-read-only)
(put 'make-read-only 'menu-enable '(not buffer-read-only))
(defalias 'make-writable 'toggle-read-only)
(put 'make-writable 'menu-enable 'buffer-read-only)

¥á¥Ë¥å¡¼¤ËÊÌ̾¤ò»È¤¦¤È¤­¤Ë¤Ï¡¢ ¡Êŵ·¿Åª¤Ë¤Ï¥á¥Ë¥å¡¼°Ê³°¤Ë¤Ï¥­¡¼¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤¬¤Ê¤¤¡ËÊÌ̾¤Ç¤Ï¤Ê¤¯ ¡ØËÜʪ¤Î¡Ù¥³¥Þ¥ó¥É̾¤ËÂФ¹¤ëÅù²Á¤Ê¥­¡¼¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤ò ɽ¼¨¤·¤¹¤ë¤Î¤¬¤·¤Ð¤·¤ÐÍ­ÍѤǤ¹¡£ ¤³¤ì¤ò¹Ô¤¦¤Ë¤Ï¡¢ÊÌ̾¤Î¥·¥ó¥Ü¥ë¤Ë¤Ï nil°Ê³°¤Î°À­menu-alias¤òÍ¿¤¨¤Þ¤¹¡£

(put 'make-read-only 'menu-alias t)
(put 'make-writable 'menu-alias t)

¤³¤¦¤¹¤ë¤È¡¢make-read-only¤Èmake-writable¤Î¥á¥Ë¥å¡¼¹àÌÜ¤Ë¤Ï toggle-read-only¤ËÂФ¹¤ë¥­¡¼¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤¬É½¼¨¤µ¤ì¤Þ¤¹¡£