Next: , Previous: Keyboard Menus, Up: Menu Keymaps   [Contents][Index]


21.12.4 ¥á¥Ë¥å¡¼¤ÎÎã

°Ê²¼¤Ë¡¢¥á¥Ë¥å¡¼¥­¡¼¥Þ¥Ã¥×¤Î´°Á´¤ÊÄêµÁ¤ÎÎã¤ò¼¨¤·¤Þ¤¹¡£ ¤³¤ì¤Ï¡¢¥á¥Ë¥å¡¼¥Ð¡¼¤Î¥á¥Ë¥å¡¼‘Tools’¤Î ¥µ¥Ö¥á¥Ë¥å¡¼‘Print’¤ÎÄêµÁ¤Ç¤¢¤ê¡¢ ñ½ã¤Ê¥á¥Ë¥å¡¼¹àÌܤò»È¤¤¤Þ¤¹ ¡Êsee Simple Menu Items¡Ë¡£ ¤Þ¤º¡¢¥­¡¼¥Þ¥Ã¥×¤òºîÀ®¤·Ì¾Á°¤òÍ¿¤¨¤Þ¤¹¡£

(defvar menu-bar-print-menu (make-sparse-keymap "Print"))

¤Ä¤®¤Ë¡¢¥á¥Ë¥å¡¼¹àÌܤòÄêµÁ¤·¤Þ¤¹¡£

(define-key menu-bar-print-menu [ps-print-region]
  '("Postscript Print Region" . ps-print-region-with-faces))
(define-key menu-bar-print-menu [ps-print-buffer]
  '("Postscript Print Buffer" . ps-print-buffer-with-faces))
(define-key menu-bar-print-menu [separator-ps-print]
  '("--"))
(define-key menu-bar-print-menu [print-region]
  '("Print Region" . print-region))
(define-key menu-bar-print-menu [print-buffer]
  '("Print Buffer" . print-buffer))

¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤¬¡Øºî¤é¤ì¤ëÂоݡ٤Υ·¥ó¥Ü¥ë¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£ ÄêµÁ¤µ¤ì¤ë¥­¡¼Îó¤Î³Ñ³ç¸Ì¤ÎÆâ¦¤Ë¸½¤ì¤Æ¤¤¤Þ¤¹¡£ ¤½¤Î¥·¥ó¥Ü¥ë¤Ï¥³¥Þ¥ó¥É̾¤ËÅù¤·¤¤¾ì¹ç¤â¤¢¤ì¤Ð¤½¤¦¤Ç¤Ê¤¤¾ì¹ç¤â¤¢¤ê¤Þ¤¹¡£ ¤³¤ì¤é¤Î¥·¥ó¥Ü¥ë¤Ï¡Ø¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¡Ù¤È¤·¤Æ°·¤ï¤ì¤Þ¤¹¤¬¡¢ ¥­¡¼¥Ü¡¼¥É¾å¤ÎËÜʪ¤Î¥Õ¥¡¥ó¥¯¥·¥ç¥ó¥­¡¼¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£ ¤½¤ì¤é¤Ï¥á¥Ë¥å¡¼¹àÌܤε¡Ç½¤Ë¤Ï±Æ¶Á¤¢¤ê¤Þ¤»¤ó¤¬¡¢ ¥æ¡¼¥¶¡¼¤¬¥á¥Ë¥å¡¼¤«¤éÁª¤Ö¤È¤½¤ì¤é¤Ï¥¨¥³¡¼Îΰè¤Ë¡ØÉ½¼¨¡Ù¤µ¤ì¡¢ where-is¤äapropos¤Î½ÐÎϤˤ⸽¤ì¤Þ¤¹¡£

ÄêµÁ¤¬("--")¤Ç¤¢¤ë¤è¤¦¤Ê¥Ð¥¤¥ó¥Ç¥£¥ó¥°¤Ï¶èÀÚ¤ê¹Ô¤Ç¤¹¡£ ¼ÂºÝ¤Î¥á¥Ë¥å¡¼¹àÌܤΤ褦¤Ë¡¢¶èÀÚ¤ê¤Ë¤â¥­¡¼¥·¥ó¥Ü¥ë¤¬¤¢¤ê¡¢ Îã¤Ç¤Ïseparator-ps-print¤Ç¤¹¡£ 1¤Ä¤Î¥á¥Ë¥å¡¼¤ËÊ£¿ô¤Î¶èÀڤ꤬¤¢¤ë¾ì¹ç¡¢ ¤½¤ì¤é¤Ï¤¹¤Ù¤Æ°Û¤Ê¤ë¥­¡¼¥·¥ó¥Ü¥ë¤Ç¤Ê¤±¤ì¤Ð¤Ê¤ê¤Þ¤»¤ó¡£

¤Ä¤®¤Ë¤Ï¡¢¥á¥Ë¥å¡¼Æâ¤Î2¤Ä¤Î¥³¥Þ¥ó¥É¤Î¥ª¥ó¾ò·ï¤òÄêµÁ¤¹¤ë¥³¡¼¥É¤Ç¤¹¡£

(put 'print-region 'menu-enable 'mark-active)
(put 'ps-print-region-with-faces 'menu-enable 'mark-active)

¤Ä¤®¤Ï¡¢¤³¤Î¥á¥Ë¥å¡¼¤ò¿Æ¥á¥Ë¥å¡¼¤Î¹àÌܤ˸½¤ì¤ë¤è¤¦¤Ë¤¹¤ëÊýË¡¤Ç¤¹¡£

(define-key menu-bar-tools-menu [print]
  (cons "Print" menu-bar-print-menu))

¤³¤³¤Ç»È¤Ã¤Æ¤¤¤ë¤Î¤Ï¡¢¥µ¥Ö¥á¥Ë¥å¡¼¤Î¥­¡¼¥Þ¥Ã¥×¡¢¤Ä¤Þ¤ê¡¢ ÊÑ¿ômenu-bar-print-menu¤ÎÃͤǤ¢¤Ã¤Æ¡¢ ÊÑ¿ô¤½¤Î¤â¤Î¤Ç¤Ï¤Ê¤¤¤³¤È¤ËÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£ menu-bar-print-menu¤Ï¥³¥Þ¥ó¥É¤Ç¤Ï¤Ê¤¤¤Î¤Ç¡¢ ¤³¤Î¥·¥ó¥Ü¥ë¤ò¿Æ¥á¥Ë¥å¡¼¤Î¹àÌܤ˻ȤäƤâ°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£

Ʊ¤¸°õºþ¥á¥Ë¥å¡¼¤ò¥Þ¥¦¥¹¥¯¥ê¥Ã¥¯¤ËÂбþÉÕ¤±¤¿¤±¤ì¤Ð¡¢ ¤Ä¤®¤Î¤è¤¦¤Ë¤·¤Æ¤Ç¤­¤Þ¤¹¡£

(define-key global-map [C-S-down-mouse-1]
   menu-bar-print-menu)

¤Ä¤®¤Î¤è¤¦¤Ë¤·¤Æ¡¢print-region¤ËÂФ·¤Æ³ÈÄ¥¥á¥Ë¥å¡¼¹àÌÜ ¡Êsee Extended Menu Items¡Ë¤ò»È¤¦¤³¤È¤â¤Ç¤­¤Þ¤¹¡£

(define-key menu-bar-print-menu [print-region]
  '(menu-item "Print Region" print-region
              :enable (mark-active)))

³ÈÄ¥¥á¥Ë¥å¡¼¹àÌܤǤϡ¢¥ª¥ó¾ò·ï¤Ï¥á¥Ë¥å¡¼¹àÌܼ«ÂÎ¤ÎÆâ¦¤Ë»ØÄꤷ¤Þ¤¹¡£ ¥Þ¡¼¥¯¤¬¤Ê¤¤¤È¤­¤Ë¤Ï¥á¥Ë¥å¡¼¤«¤é¤³¤Î¹àÌܤ¬¾Ã¤¨¤ë¤è¤¦¤Ë¤¹¤ë¤Ë¤Ï ¤Ä¤®¤Î¤è¤¦¤Ë¤·¤Þ¤¹¡£

(define-key menu-bar-print-menu [print-region]
  '(menu-item "Print Region" print-region
              :visible (mark-active)))