source: projects/rootfiles/trunk/.xemacs.el @ 1127

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  XEmacs ÍÑ ¥æ¡¼¥¶ÀßÄê¥Õ¥¡¥¤¥ë¤Î¥µ¥ó¥×¥ë
;;            MATSUBAYASHI 'Shaolin' Kohji (shaolin@vinelinux.org)
;;                      modified by Jun Nishii (jun@vinelinux.org)
;;                       Time-stamp: <2002/12/05 02:08:32 irokawa>


;;; ½é´üÀßÄê¥Õ¥¡¥¤¥ë¤Î»ØÄê
;;; ¤³¤³¤Ç»ØÄꤷ¤¿¥Õ¥¡¥¤¥ë¤Ë¥ª¥×¥·¥ç¥óÀßÄêÅù¤¬½ñ¤­¹þ¤Þ¤ì¤Þ¤¹

(setq user-init-file "~/.xemacs.el")
(setq custom-file "~/.xemacs.el")


;;; ´Á»ú¥³¡¼¥É¤Î»ØÄê

(set-default-coding-systems 'euc-jp)
(set-buffer-file-coding-system 'euc-jp-unix)

(if (eq (console-type) 'tty)
      (set-terminal-coding-system 'euc-jp))

;;;²èÌ̤ο§(¥«¡¼¥½¥ë¡§°Å¤¤ÀÖ¿§)¡¢¥µ¥¤¥º(²£¡§80·å¡¢½Ä¡§40¹Ô)

(setq default-frame-alist (append (list '(cursor-color . "purple")
                                        '(width .  80)
                                        '(height . 40))
                                  default-frame-alist))

;;; °ì¹Ô¤¬ 80 »ú°Ê¾å¤Ë¤Ê¤Ã¤¿»þ¤Ë¤Ï¼«Æ°²þ¹Ô¤¹¤ë
;(setq fill-column 80)
;(setq text-mode-hook 'turn-on-auto-fill)
(setq default-major-mode 'text-mode)

;;; ¹Ô¿ôɽ¼¨

(custom-set-variables '(line-number-mode t))

;;; gnuclient ¥µ¡¼¥Ð¤òµ¯Æ°
(load "gnuserv")
(gnuserv-start)

;;; gz¥Õ¥¡¥¤¥ë¤âÊÔ½¸¤Ç¤­¤ë¤è¤¦¤Ë
(auto-compression-mode t)

;; ´Ä¶­ÊÑ¿ô EMACS_IME ¤òÄ´¤Ù¤ë¡£- ¸½ºß¤Î¤È¤³¤í¡¢canna ¤Þ¤¿¤Ï Canna ¤Ê¤é¡¢
;; ¡Ö¤«¤ó¤Ê¡×¤ò»ÈÍѤ¹¤ë¡£¤½¤ì°Ê³°¤Î¾ì¹ç¤Ï Wnn ¤ò»ÈÍѤ¹¤ë¡£

(setq emacs-ime (getenv "EMACS_IME"))
(if (null emacs-ime)
    (setq emacs-ime "wnn"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Egg (Wnn ¥Õ¥í¥ó¥È¥¨¥ó¥É) ¤ÎÀßÄê
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; Wnn6/FreeWnn
(if (or (equal emacs-ime "wnn")
        (equal emacs-ime "Wnn")
        (equal emacs-ime "wnn6")
        (equal emacs-ime "Wnn6"))
  (progn
    (load "egg")
    (global-set-key "\C-\\" 'toggle-input-method)

    (select-input-method "japanese-egg-wnn")
    (set-language-info "Japanese" 'input-method "japanese-egg-wnn")

    (setq egg-default-startup-file "eggrc-wnn") ; 95.6.1 by S.Tomura
    (garbage-collect)

    ;; jserver ¤Î¥ê¥¹¥È¤ò¼¡¤ÎÍͤˤ·¤Æ»ØÄê¤Ç¤­¤Þ¤¹
    ;;(setq jserver-list '("vanilla" "espresso"))
    (setq jserver-list (list (getenv "JSERVER") "localhost"))

    ;; "nn" ¤Ç¡Ö¤ó¡×¤òÆþÎÏ
    (setq enable-double-n-syntax t)

    ;; "." ¤Ç¡Ö¡¥¡×¡¢"," ¤Ç¡Ö¡¤¡×¤òÆþÎÏ¡£ 
    (setq use-kuten-for-period nil)
    (setq use-touten-for-comma nil)

    ;; 1234567890%#%"' ¤ò¡ÖȾ³Ñ¡×¤ÇÆþÎÏ"
    (let ((its:*defrule-verbose* nil))
    (its-define-mode "roma-kana")
    (dolist (symbol '("1" "2" "3" "4" "5" 
                  "6" "7" "8" "9" "0"
                  "#" "%" "\"" "'" ))
        (its-defrule symbol symbol)))

    ;; ¤ª¤Þ¤± :-)
    ;;(set-egg-fence-mode-format "¢ö" "¢ö" 'highlight)
    )
)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wnn7Egg (Wnn7 ¥Õ¥í¥ó¥È¥¨¥ó¥É) ¤ÎÀßÄê
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (or (equal emacs-ime "wnn7")
        (equal emacs-ime "Wnn7"))
    (progn
      (setq load-path (append '("/usr/share/wnn7/elisp/xemacs21") load-path))
      (global-set-key "\C-\\" 'toggle-input-method)
      ;; (global-set-key "\C-o" 'toggle-input-method)
      (load "wnn7egg-leim")
      (select-input-method "japanese-egg-wnn7")
      (set-language-info "Japanese" 'input-method "japanese-egg-wnn7")

      ;; "nn" ¤Ç¡Ö¤ó¡×¤òÆþÎÏ
      (setq enable-double-n-syntax t)
      ;; ¸õÊäÁªÂò¥â¡¼¥É
      (egg-use-input-predict)
      (setq egg-predict-realtime nil)
      ;; ¥¤¥ó¥é¥¤¥ó¸õÊäÁªÂò¥â¡¼¥É
      (setq egg-predict-mode "inline")
      ;; ¥¦¥¤¥ó¥É¥¦¸õÊäÁªÂò¥â¡¼¥É
      ;(setq egg-predict-mode "window")

      ;; ¸õÊä¥ê¥¹¥Èɽ¼¨
      (define-key wnn7-henkan-mode-map " " 'wnn7-henkan-select-kouho-dai)

      ;; 1234567890%#%"'/\| ¤ò¡ÖȾ³Ñ¡×¤ÇÆþÎÏ
      (let ((its:*defrule-verbose* nil))
        (its-define-mode "roma-kana")
        (dolist (symbol '("1" "2" "3" "4" "5" 
                          "6" "7" "8" "9" "0"
                          "#" "%" "\"" "'" "/" "\\" "|"))
                (its-defrule symbol symbol)))
    )
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ¤«¤ó¤Ê¤ÎÀßÄê
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (or (equal emacs-ime "canna")
        (equal emacs-ime "Canna")
        )
   (progn
      (load-library "canna")

      ;; color-mate ¤ò»È¤ï¤Ê¤¤¤Ç¡¢´Á»úÊÑ´¹¤Ë¿§¤òÉÕ¤±¤¿¤¤»þ¤Ë
      (setq canna-use-color t)

      ;; ¥Õ¥§¥ó¥¹¥â¡¼¥É¤Ç¤Ê¤¯¥¢¥ó¥À¡¼¥é¥¤¥ó¤ò»È¤¦
      ;;(setq canna-with-fences nil)
      ;;(setq canna-underline t)

      ;; Canna ¥µ¡¼¥Ð¤Î»ØÄê
      (if (null (getenv "CANNASERVER"))
          (setq canna-server "localhost")
        (setq canna-server (getenv "CANNASERVER")))
      (canna)

      (global-set-key "\C-_" 'canna-undo)  ;¥¢¥ó¥É¥¥¤ÎÀßÄê¡£
      (setq canna-save-undo-text-predicate ;¥¢¥ó¥É¥¥¥Ð¥Ã¥Õ¥¡¤ØÆþ¤ì¤ë¾ò·ï
            '(lambda (s) (> (length (car s)) 2)) )
      (setq canna-undo-hook ;¥¢¥ó¥É¥¥¡Ü¦Á¡£
            '(lambda () (message "ºÆÊÑ´¹¤·¤Þ¤¹....")                          
               (canna-do-function canna-func-henkan)) )

      ;;¤«¤ó¤Ê¤ÎÊÑ´¹Ãæ¤Ë BS & DEL ¤ò»È¤¦
      ;;(define-key canna-mode-map [backspace] [?\C-h])
      ;;(define-key canna-mode-map [delete] [?\C-h])

      ;;¤«¤ó¤Ê¤ÎÊÑ´¹Ãæ¤Ë C-h ¤ò»È¤¦ (with term/keyswap)
      (define-key canna-mode-map [?\177] [?\C-h])

      (select-input-method 'japanese-canna)
   )
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; XEmacs ¤Î¥Õ¥©¥ó¥È/¥«¥é¡¼ÀßÄê
;; (color-mate ¤ò»È¤ï¤Ê¤¤»þ¤Ë¿§¤ò¤Ä¤±¤ëÀßÄê¡¥)
;; XEmacs ¤Ë¤Ï hilit19 ¤¬¤Ê¤¤¤Î¤Ç¡¤¿§¤Ï¤Ä¤­¤Þ¤»¤ó¤¬¡¤
;; Âå¤ê¤Ë font-lock ¤ò»È¤Ã¤Æ´Ê°×¤Ç¤¹¤¬¿§¤ò¤Ä¤±¤é¤ì¤Þ¤¹¡¥
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(set-face-foreground 'default "black" nil '(x color))
(set-face-background 'default "#eeeeff" nil '(x color))

(require 'font-lock)
(setq font-lock-verbose nil)
(put 'yatex-mode 'font-lock-defaults 'tex-mode)
(put 'yahtml-mode 'font-lock-defaults 'html-mode)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; XEmacs ¤Ç¿§¤òÉÕ¤±¤ë (color-mate ¤ÎÀßÄêÆɤ߹þ¤ß)
;; Vine Linux 2.1 ¤Þ¤Ç¤Îµì¼°¤ÎÀßÄê
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;
;;(load "~/.emacs-color.el")
           
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; WEMI (widget ɽ¼¨¤¹¤ë SEMI)
;;   Vine 1.9 ¤«¤é¤Ï tm (Tiny Mime) ¤ÎÂå¤ï¤ê¤Ë semi ¤ò»È¤¤¤Þ¤¹
;;   (Mew ¤Ï tm ¤ä semi ¤Ê¤·¤Ç¤â MIME ¤ËÂбþ¤·¤Æ¤¤¤Þ¤¹)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(require 'mime-setup)
(load "path-util")
(setq rmail-enable-mime t)

;; rail-1.0.2 ¤ò»È¤Ã¤Æ User-Agent: ¥Õ¥£¡¼¥ë¥É¤Î¥³¡¼¥É¥Í¡¼¥à¤òÆüËܸ첽¤¹¤ë
(setq rail-emulate-genjis t)
(if (module-installed-p 'rail) (load "rail"))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; T-Gnus 6.13.3 (»²¹Í)
;;   NetNews ¥ê¡¼¥À¡¼ GNUS (SEMI ÂбþÈÇ)
;;   M-x gnus ¤Çµ¯Æ°¤·¤Þ¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;; News Server ̾¤ä¥É¥á¥¤¥ó̾¤òŬÀڤ˻ØÄꤷ¤Æ¤¯¤À¤µ¤¤
;(setq gnus-nntp-server "news.hoge.hoge.or.jp")
;(setq gnus-local-domain "hoge.hoge.or.jp")
;(setq gnus-local-organization "HogeHoGe Org.")
;(setq gnus-use-generic-from t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; w3
;;   XEmacs ¾å¤ÇÆ°¤¯¥Ö¥é¥¦¥¶¤Ç¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;   

;; w3 ¤Ç¥×¥í¥­¥·¤ÎÀßÄ꤬ɬÍפʾì¹ç¡¢
;; ~/.w3/profile Æâ¤ÎÀßÄê¤òÊÔ½¸¤·¤Æ²¼¤µ¤¤.
;; ½ñ¼°¤Ï°Ê²¼¤ÎÄ̤ê¤Ç¤¹.
;(setq url-proxy-services '(
;      ("http" . "http://proxy.nowhere.ne.jp:8080/")
;      ("ftp" . "http://proxy.nowhere.ne.jp:8080/")
;      ("gopher" . "http://proxy.nowhere.ne.jp:8080/")
;      ("no_proxy" . "://[^/]*nowhere.ne.jp/\\|://192.168"))
;    url-using-proxy t)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Mew -  Messaging in the Emacs World
;;   ¥á¡¼¥ë¥ê¡¼¥À¡¼ Mew
;;   M-x mew ¤Çµ¯Æ°¤·¤Þ¤¹
;;   ¤³¤ì°Ê³°¤ÎÀßÄê¤Ï ~/.mew.el ¤Ç¹Ô¤¤¤Þ¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'mew "mew" nil t)
(autoload 'mew-send "mew" nil t)

;; Toolbar¤ËÄɲÃ
;(setq toolbar-mail-commands-alist (quote ((mew . mew) )))
;(setq toolbar-mail-reader (quote mew))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Wanderlust
;;   IMAP ¤Ë¤âÂбþ¤·¤¿¥á¡¼¥ë/¥Ë¥å¡¼¥¹¥ê¡¼¥À
;;   ¤³¤ì°Ê³°¤ÎÀßÄê¤Ï ~/.wl ¤Ç¹Ô¤¤¤Þ¤¹
;;   ~/.wl ¤Î¥µ¥ó¥×¥ë¤Ï /usr/doc/Wanderlust-2.2.12 °Ê²¼¤Ë¤¢¤ê¤Þ¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'wl "wl" "Wanderlust" t)
(autoload 'wl-draft "wl" "Write draft with Wanderlust." t)

;; Toolbar¤ËÄɲÃ
;(setq toolbar-mail-commands-alist (quote ((wl . wl) )))
;(setq toolbar-mail-reader (quote wl))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; X-Face
;;   Mew ¤ä Wanderlust ¤Ê¤É¤Ç¡¢X-Face ²èÁü¤Ä¤­¤Î¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤·¤Þ¤¹
;;;  /usr/doc/x-face-xemacs-1.3.6.20.README.ja
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(when (and window-system (module-installed-p 'x-face))
   (autoload 'x-face-xmas-mew-display-x-face "x-face" nil t)
   (setq wl-highlight-x-face-function
      'x-face-xmas-mew-display-x-face)
   (setq x-face-add-x-face-version-header t))

;; µ¯Æ°²èÌ̤òɽ¼¨¤·¤Ê¤¤
;(setq x-face-inhibit-loadup-splash t)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; irchat-pj-2.4.24.07
;;   IRC (¥Á¥ã¥Ã¥È) ¥¯¥é¥¤¥¢¥ó¥È¤ÎÀßÄê
;;   M-x irchat ¤Çµ¯Æ°¤·¤Þ¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'irchat "irchat" nil t)

;;; IRC server ¤Î»ØÄê
;;; (¤¤¤º¤ì¤«°ì¤Ä¤ò¥³¥á¥ó¥È¥¢¥¦¥È¤·¤Þ¤¹)
;;(setq irchat-server "irc.tohoku.ac.jp")
;;(setq irchat-server "irc.kyutech.ac.jp")
;;(setq irchat-server "irc.tokyo.wide.ad.jp")
;;(setq irchat-server "irc.kyoto.wide.ad.jp")
;;(setq irchat-server "irc.huie.hokudai.ac.jp")
;;(setq irchat-server "irc.cc.yamaguchi-u.ac.jp")
;;(setq irchat-server "irc.karrn.ad.jp")
;;(setq irchat-server "irc.kyoto.wide.ad.jp")

;;; ¥æ¡¼¥¶¡¼Ì¾¤È¥Ë¥Ã¥¯¥Í¡¼¥à
;;; (nick ¤ÏȾ³Ñ±Ñ¿ô¤ª¤è¤Ó []{}_\^ ¤«¤é¤Ê¤ëºÇÂç 9 ʸ»ú¤Îʸ»úÎó¤Ç¤¹)
(setq irchat-name "IRC sample user")
(setq irchat-nickname "PJEtest")

;;; ¥Ç¥Õ¥©¥ë¥È¤Ç»²²Ã¤¹¤ë¥Á¥ã¥ó¥Í¥ë¤Î¥ê¥¹¥È
;;;  ¡Ê¤³¤³¤Ë½ñ¤¤¤¿¥Á¥ã¥ó¥Í¥ë¤Ë¤Ï irchat ¤Îµ¯Æ°¤ÈƱ»þ¤Ë»²²Ã¤Ç¤­¤Þ¤¹¡Ë
;;(setq irchat-startup-channel-list '("#linuxjp,#pjetest"))
(setq irchat-startup-channel-list '("#VineUsers"))

;;; ¥ª¥×¥·¥ç¥ó
;;;   ¾ÜºÙ¤Ï /usr/doc/irchat-pj-xemacs-2.4.24.07/doc °Ê²¼¤Î¥Õ¥¡¥¤¥ë¤ò»²¾È
(setq irchat-reconnect-automagic t)      ; Àڤ줿¾ì¹ç¤ËºÆÀܳ¤ò»î¤ß¤ë
;;(setq irchat-channel-buffer-mode t)    ; ¥Á¥ã¥Í¥ëʬ³äɽ¼¨¥â¡¼¥É
;;(setq irchat-display-channel-always t)
;;(setq irchat-default-freeze-local nil)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; YaTeX 1.67
;;   [La]TeX ÆþÎϥ⡼¥É
;;   M-x yatex ¤È¤¹¤ë¤«¡¢.tex ¤Ç½ª¤ï¤ë¥Õ¥¡¥¤¥ë¤òÆɤ߹þ¤à¤Èµ¯Æ°¤·¤Þ¤¹
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)

;; YaTeX-mode
(setq auto-mode-alist
      (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(setq dvi2-command "xdvi"
      tex-command "platex -src-specials"
      dviprint-command-format "dvips %s | lpr"
      YaTeX-kanji-code 3)

;; YaHtml-mode
(setq auto-mode-alist
      (cons (cons "\\.html$" 'yahtml-mode) auto-mode-alist))
(autoload 'yahtml-mode "yahtml" "Yet Another HTML mode" t)
(setq yahtml-www-browser "firefox")


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ¥Û¥¤¡¼¥ë¥Þ¥¦¥¹Âбþ
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;(autoload 'mwheel-install "mwheel" "Enable mouse wheel support.")
;(mwheel-install)
;; ¥¹¥¯¥í¡¼¥ëÎ̤ÎÀßÄê (¥Î¡¼¥Þ¥ë . Shift-¥¹¥¯¥í¡¼¥ë)
;;(setq mwheel-scroll-amount '(5 . 1))

;;=============================================================================
;;                    scroll on  mouse wheel
;;=============================================================================
;; scroll on wheel of mouses
(define-key global-map 'button4
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 5)
      (select-window curwin)
)))
(define-key global-map [(shift button4)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down 1)
      (select-window curwin)
)))
(define-key global-map [(control button4)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-down)
      (select-window curwin)
)))
(define-key global-map 'button5
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 5)
      (select-window curwin)
)))
(define-key global-map [(shift button5)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up 1)
      (select-window curwin)
)))
(define-key global-map [(control button5)]
  '(lambda (&rest args)
    (interactive)
    (let ((curwin (selected-window)))
      (select-window (car (mouse-pixel-position)))
      (scroll-up)
      (select-window curwin)
)))


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ¤½¤Î¾¤ÎÀßÄê
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;; ¥Þ¥¯¥í¥µ¡¼¥Á¥Ñ¥¹¤ÎÄɲÃ
;;; ~/lib/emacs °Ê²¼¤Ë¥æ¡¼¥¶ÍѤΠ*.el, *.elc ¤òÃÖ¤¯¤³¤È¤¬¤Ç¤­¤Þ¤¹
;;(setq load-path (append '("~/lib/emacs") load-path))


;;; ¥¹¥Æ¡¼¥¿¥¹¥é¥¤¥ó¤Ë»þ´Ö¤òɽ¼¨¤¹¤ë
(display-time)


;;; rpm-mode ¤ÎÆɤ߹þ¤ß
;;; rpm-mode.el ¤Ï spec ¥Õ¥¡¥¤¥ë¤ÎºîÀ®¤ËÊØÍø¤Ç¤¹¡£
;;;   ~/lib/emacs ¤Ë /usr/doc/rpm/rpm-mode.el ¤ò¥³¥Ô¡¼¤·¤Æ°Ê²¼¤ÎÀßÄê¤ò
;;; ¹Ô¤Ã¤Æ¤¯¤À¤µ¤¤¡£

;(setq auto-mode-alist (nconc '(("\\.spec" . rpm-mode)) auto-mode-alist))
;(autoload 'rpm-mode "rpm-mode" "Major mode for editing SPEC file of RPM." t) 
;(setq packager "Vine User <vine@hoge.fuga>");¼«Ê¬¤Î̾Á°
;      (setq buildrootroot "/tmp");BuildRoot¤Î¾ì½ê
;      (setq projectoname "Project Vine");¥×¥í¥¸¥§¥¯¥È̾ 


;;; ºÇ½ª¹¹¿·Æü¤Î¼«Æ°ÁÞÆþ
;;;   ¥Õ¥¡¥¤¥ë¤ÎÀèƬ¤«¤é 8 ¹Ô°ÊÆâ¤Ë Time-stamp: <> ¤Þ¤¿¤Ï
;;;   Time-stamp: " " ¤È½ñ¤¤¤Æ¤¢¤ì¤Ð¡¢¥»¡¼¥Ö»þ¤Ë¼«Æ°Åª¤ËÆüÉÕ¤¬ÁÞÆþ¤µ¤ì¤Þ¤¹
(if (not (memq 'time-stamp write-file-hooks))
    (setq write-file-hooks
          (cons 'time-stamp write-file-hooks)))


;;;¥Ð¥Ã¥Õ¥¡¤ÎºÇ¸å¤Çnewline¤Ç¿·µ¬¹Ô¤òÄɲ乤ë¤Î¤ò¶Ø»ß¤¹¤ë
(setq next-line-add-newlines nil)

;;;°õºþÀßÄê
(setq-default lpr-switches '("-2P"))
(setq-default lpr-command "mpage")

;;; ¥­¡¼¥Ð¥¤¥ó¥ÉÄêµÁ
(global-set-key [backspace] 'delete-backward-char) ; BS
(global-set-key [delete] 'delete-char)             ; DEL
(global-set-key "\C-h" 'delete-backward-char)      ; C-h(=DEL)
(global-set-key "\M-?" 'help-for-help)             ; M-?(=help)
(global-set-key [home] 'beginning-of-buffer)       ; HOME(¥Ð¥Ã¥Õ¥¡¤ÎÀèƬ¤ËÈô¤Ö)
(global-set-key [end] 'end-of-buffer)              ; END(¥Ð¥Ã¥Õ¥¡¤ÎºÇ¸å¤ËÈô¤Ö)

;;; ¥¹¥¯¥í¡¼¥ë¤ò1¹Ôñ°Ì¤Ë¤¹¤ë
(setq scroll-step 1)

;;; *.~ ¤È¤«¤Î¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ë¤òºî¤é¤Ê¤¤
;(setq make-backup-files nil)

;;; .#* ¤È¤«¤Î¥Ð¥Ã¥¯¥¢¥Ã¥×¥Õ¥¡¥¤¥ë¤òºî¤é¤Ê¤¤
;(setq auto-save-default nil)

;;; °ÊÁ°ÊÔ½¸¤·¤¿¥Õ¥¡¥¤¥ë¤Î¥«¡¼¥½¥ë°ÌÃÖ¤ò³Ð¤¨¤ëÀßÄê
(require 'saveplace)
(setq-default save-place t)

;; scratch ¥â¡¼¥É¤ÎºÇ½é¤Î¥á¥Ã¥»¡¼¥¸¤Ï¾Ã¤¹
(setq initial-scratch-message nil)

;;; C-t¡¢M-C-t¤Ç¥Ð¥Ã¥Õ¥¡¤Î¹â®ÀÚ¤êÂؤ¨
(defun previous-buffer ()
  "Select previous window."
  (interactive)
  (bury-buffer))
(defun backward-buffer ()
  "Select backward window."
  (interactive)
  (switch-to-buffer
   (car (reverse (buffer-list)))))
(global-set-key "\C-t"    'previous-buffer)
(global-set-key "\M-\C-t" 'backward-buffer)


;; Info ¤Ç¤Ï frame-title ¤Ë¾Ü¤·¤¤¾ðÊó¤ò
(add-hook 'Info-startup-hook
          #'(lambda ()
              (make-local-variable 'frame-title-format)
              (setq frame-title-format
                    (concat "*info*  ("
                            (file-name-nondirectory
                             (if (stringp Info-current-file)
                                 Info-current-file
                               (or buffer-file-name "")))
                            ")  "
                            Info-current-node))))
(add-hook 'Info-select-hook
          #'(lambda ()
              (setq frame-title-format
                    (concat "*info*  ("
                            (file-name-nondirectory
                             (if (stringp Info-current-file)
                                 Info-current-file
                               (or buffer-file-name "")))
                            ")  "
                            Info-current-node))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; ¤³¤Î¥Õ¥¡¥¤¥ë¤Ë´Ö°ã¤¤¤¬¤¢¤Ã¤¿¾ì¹ç¤ËÁ´¤Æ¤ò̵¸ú¤Ë¤·¤Þ¤¹
(put 'eval-expression 'disabled nil)