Next: , Previous: Documentation Tips, Up: Tips   [Contents][Index]


A.4 ¥³¥á¥ó¥È¤Î½ñ¤­Êý¤Î¥Ò¥ó¥È

¥³¥á¥ó¥È¤òÃÖ¤¯¾ì½ê¤È¤½¤ì¤é¤Î»ú²¼¤²ÊýË¡¤Ë¤Ä¤¤¤Æ¤Ï°Ê²¼¤Î¤è¤¦¤Ê´·½¬¤ò¿ä¾©¤·¤Þ¤¹¡£

;

1¤Ä¤Î¥»¥ß¥³¥í¥ó‘;’¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤Ï¡¢ ¥½¡¼¥¹¥³¡¼¥É¤Î±¦Â¦¤ÇƱ¤¸¥³¥é¥à°ÌÃ֤˷¤¨¤ë¤³¤È¡£ ¤½¤Î¤è¤¦¤Ê¥³¥á¥ó¥È¤Ï¡¢¤½¤Î¹Ô¤Î¥³¡¼¥É¤Îưºî¤òÀâÌÀ¤¹¤ë¡£ lisp¥â¡¼¥É¤ä¤½¤Î´ØÏ¢¤¹¤ë¥â¡¼¥É¤Ç¤Ï¡¢ ¥³¥Þ¥ó¥ÉM-;¡Êindent-for-comment¡Ë¤Ç ¼«Æ°Åª¤Ë±¦Â¦¤ÎÀµ¤·¤¤°ÌÃ֤ˑ;’¤òÁÞÆþ¤·¤¿¤ê¡¢ ¤½¤Î¤è¤¦¤Ê¥³¥á¥ó¥È¤¬´û¸¤Ê¤é¤ÐÀ°Îó¤Ç¤­¤ë¡£

¤Ä¤®¤È¤½¤Î²¼¤ÎÎã¤Ï¡¢Emacs¤Î¥½¡¼¥¹¤«¤é»ý¤Ã¤Æ¤­¤¿¤â¤Î¤Ç¤¢¤ë¡£

(setq base-version-list                 ; there was a base
      (assoc (substring fn 0 start-vn)  ; version to which
             file-version-assoc-list))  ; this looks like
                                        ; a subversion
;;

2¤Ä¤Î¥»¥ß¥³¥í¥ó‘;;’¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤Ï¡¢ ¤½¤ÎÉôʬ¤Î¥³¡¼¥É¤Î»ú²¼¤²¤Ë·¤¨¤ë¤³¤È¡£ ¤½¤Î¤è¤¦¤Ê¥³¥á¥ó¥È¤Ï¡¢¤½¤Î¸å³¤Î¹Ô¤ÎÌÜŪ¤ä ¤½¤Î²Õ½ê¤Ç¤Î¥×¥í¥°¥é¥à¤Î¾õÂÖ¤òµ­½Ò¤¹¤ë¡£

(prog1 (setq auto-fill-function
             …
             …
  ;; update mode line
  (force-mode-line-update)))

ÀâÌÀʸ»úÎó¤ò»ý¤¿¤Ê¤¤³Æ´Ø¿ô ¡Ê½ê°¤¹¤ë¥Ñ¥Ã¥±¡¼¥¸¤ÇÆâÉô¸þ¤±¤Ë¤Î¤ß»ÈÍѤµ¤ì¤ë´Ø¿ô¡Ë¤Ç¤Ï¡¢ ´Ø¿ô¤¬¹Ô¤¦¤³¤È¤ÈÀµ¤·¤¤¸Æ¤Ó½Ð¤·Êý¤òµ­½Ò¤·¤¿ 2¤Ä¤Î¥»¥ß¥³¥í¥ó¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤ò´Ø¿ô¤Î¤Þ¤¨¤Ë½ñ¤¯¤³¤È¡£ ³Æ°ú¿ô¤Î°ÕÌ£¤È¤½¤Î²Äǽ¤ÊÃͤò´Ø¿ô¤¬¤É¤Î¤è¤¦¤Ë²ò¼á¤¹¤ë¤«¤òÀµ³Î¤ËÀâÌÀ¤¹¤ë¤³¤È¡£

;;;

3¤Ä¤Î¥»¥ß¥³¥í¥ó‘;;;’¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤Ï¡¢º¸Ã¼¤Ë·¤¨¤ë¤³¤È¡£ ¤½¤Î¤è¤¦¤Ê¥³¥á¥ó¥È¤Ï¡¢´Ø¿ôÄêµÁ¤Î³°Â¦¤Ç»È¤¤¡¢ ¥×¥í¥°¥é¥à¤ÎÀ߷׸¶Íý¤òÀâÌÀ¤¹¤ë°ìÈÌŪ¤ÊɽÌÀ¤Ç¤¢¤ë¡£ ¤¿¤È¤¨¤Ð¤Ä¤®¤Î¤È¤ª¤ê¡£

;;; This Lisp code is run in Emacs
;;; when it is to operate as a server
;;; for other processes.

3¤Ä¤Î¥»¥ß¥³¥í¥ó¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤ÎÊ̤λȤ¤Êý¤Ï¡¢ ´Ø¿ôÆâ¤Î¹Ô¤ò¥³¥á¥ó¥È¤Ë¤¹¤ë¾ì¹ç¤Ç¤¢¤ë¡£ ¤½¤Î¤è¤¦¤Ê¹Ô¤¬º¸Ã¼¤Ëα¤Þ¤ë¤è¤¦¤Ë3¤Ä¤Î¥»¥ß¥³¥í¥ó¤ò»È¤¦¤Î¤Ç¤¢¤ë¡£

(defun foo (a)
;;; This is no longer necessary.
;;;  (force-mode-line-update)
  (message "Finished with %s" a))
;;;;

4¤Ä¤Î¥»¥ß¥³¥í¥ó‘;;;;’¤Ç»Ï¤Þ¤ë¥³¥á¥ó¥È¤Ï¡¢ º¸Ã¼¤Ë·¤¨¤Æ¡¢¥×¥í¥°¥é¥à¤Î¼çÍפÊÉôʬ¤Î¥Ø¥Ã¥À¤Ë»È¤¦¡£ ¤¿¤È¤¨¤Ð¤Ä¤®¤Î¤È¤ª¤ê¡£

;;;; The kill ring

M-;¡Êindent-for-comment¡Ë¤ä TAB¡Êlisp-indent-line¡Ë¤Ê¤É¤Î Emacs¤Îlisp¥â¡¼¥É¤Î»ú²¼¤²¥³¥Þ¥ó¥É¤Ï¡¢ ¤³¤ì¤é¤Î´·½¬¤Ë¤·¤¿¤¬¤Ã¤Æ¼«Æ°Åª¤Ë¥³¥á¥ó¥È¤ò»ú²¼¤²¤·¤Þ¤¹¡£ See ¥³¥á¥ó¥È¤ÎÁàºî in GNU Emacs ¥Þ¥Ë¥å¥¢¥ë¡£