「メンバー/SGHR/ある日の.emacs」の編集履歴（バックアップ）一覧はこちら

メンバー/SGHR/ある日の.emacs - (2014/06/06 (金) 18:12:18) の１つ前との変更点

追加された行は緑色になります。

削除された行は赤色になります。

#highlight(){{
;; キーバインド
 (define-key global-map "\C-h" 'delete-backward-char) ; 削除
 (define-key global-map "\C-o" 'dabbrev-expand) ; 補完
 (define-key global-map "\C-z" 'scroll-down) ; scroll-down
 (define-key global-map "\C-xl" 'goto-line) ; 指定行に移動
 (define-key global-map "\C-xr" 'replace-string) ; 置換
 (define-key global-map "\C-xi" 'indent-region) ; regionをindent
 (define-key global-map "\C-xs" 'shell) ; shell起動
 (define-key global-map "\C-xp" 'compile) ; コンパイル
 (define-key global-map [C-tab] 'other-window) ; window移動
 (define-key global-map [S-C-tab] 
   (lambda () (interactive) (other-window -1)))
 (global-set-key "\C-c\C-c" 'comment-or-uncomment-region) ; regionをコメントアウト 
 
 ;; \C-lで現在行をwindowの一番上の行にする
 (defun line-to-top-of-window ()
   (interactive)
   (recenter 0))
 (global-set-key "\C-l" 'line-to-top-of-window) 
 
 ;; 英語フォント
 (set-face-attribute 'default nil 
 		    :family "Osaka"
 		    :height 150)
 
 ;; 日本語フォント
 (set-fontset-font
  nil 'japanese-jisx0208
  (font-spec :family "Hiragino Maru Gothic ProN")) 
 
 ;; 起動時の画面はいらない
 (setq inhibit-startup-message t)
 (setq initial-scratch-message "") 
 
 ;; リージョンを色付け
 (setq transient-mark-mode t)
 (setq highlight-nonselected-windows t) 
 
 ;; 対応する括弧を強調
 (show-paren-mode t) 
 
 ;; 初期フレームの設定
 (setq initial-frame-alist
       (append
        '((top . 75) ; フレームの Y 位置(ピクセル数)  
 	 (left . 250) ; フレームの X 位置(ピクセル数)
 	 (width . 150) ; フレーム幅(文字数)
 	 (height . 50)) ; フレーム高(文字数)
        initial-frame-alist))
 
 ;; 起動時に2分割
 (setq w (selected-window))
 (setq w2 (split-window w nil t))
 
 ;; shell-modeで矢印キーの上下でコマンド履歴を表示
 (setq shell-mode-hook
       (function (lambda ()
                   (define-key shell-mode-map "\C-p" 'comint-previous-input)
                   (define-key shell-mode-map "\C-n" 'comint-next-input))))
 
 ;; 背景
 (set-background-color "Black")
 (set-foreground-color "White")
 (set-cursor-color "Gray")
 (set-frame-parameter nil 'alpha 90) 
 
 ;; バックアップを作らない
 (setq backup-inhibited t)
 
 ;; 終了時にオートセーブファイルを消す
 (setq delete-auto-save-files t)
 
 ;; ファイルに間違いがあれば無効
 (custom-set-variables '(inhibit-startup-screen t))
 (custom-set-faces)
 
 ;; \の代わりにバックスラッシュを入力する
 ;;(define-key global-map [?\] [?\\])  
 
 ;; スクロールバーを右側に表示する
 ;;(set-scroll-bar-mode 'right)

}}

 ;; キーバインド
 (define-key global-map "\C-h" 'delete-backward-char) ; 削除
 (define-key global-map "\C-o" 'dabbrev-expand) ; 補完
 (define-key global-map "\C-z" 'scroll-down) ; scroll-down
 (define-key global-map "\C-xl" 'goto-line) ; 指定行に移動
 (define-key global-map "\C-xr" 'replace-string) ; 置換
 (define-key global-map "\C-xi" 'indent-region) ; regionをindent
 (define-key global-map "\C-xs" 'shell) ; shell起動
 (define-key global-map "\C-xp" 'compile) ; コンパイル
 (define-key global-map [C-tab] 'other-window) ; window移動
 (define-key global-map [S-C-tab] 
   (lambda () (interactive) (other-window -1)))
 (global-set-key "\C-c\C-c" 'comment-or-uncomment-region) ; regionをコメントアウト 
 
 ;; \C-lで現在行をwindowの一番上の行にする
 (defun line-to-top-of-window ()
   (interactive)
   (recenter 0))
 (global-set-key "\C-l" 'line-to-top-of-window) 
 
 ;; 英語フォント
 (set-face-attribute 'default nil 
 		    :family "Osaka"
 		    :height 150)
 
 ;; 日本語フォント
 (set-fontset-font
  nil 'japanese-jisx0208
  (font-spec :family "Hiragino Maru Gothic ProN")) 
 
 ;; 起動時の画面はいらない
 (setq inhibit-startup-message t)
 (setq initial-scratch-message "") 
 
 ;; リージョンを色付け
 (setq transient-mark-mode t)
 (setq highlight-nonselected-windows t) 
 
 ;; 対応する括弧を強調
 (show-paren-mode t) 
 
 ;; 初期フレームの設定
 (setq initial-frame-alist
       (append
        '((top . 75) ; フレームの Y 位置(ピクセル数)  
 	 (left . 250) ; フレームの X 位置(ピクセル数)
 	 (width . 150) ; フレーム幅(文字数)
 	 (height . 50)) ; フレーム高(文字数)
        initial-frame-alist))
 
 ;; 起動時に2分割
 (setq w (selected-window))
 (setq w2 (split-window w nil t))
 
 ;; shell-modeで矢印キーの上下でコマンド履歴を表示
 (setq shell-mode-hook
       (function (lambda ()
                   (define-key shell-mode-map "\C-p" 'comint-previous-input)
                   (define-key shell-mode-map "\C-n" 'comint-next-input))))
 
 ;; 背景
 (set-background-color "Black")
 (set-foreground-color "White")
 (set-cursor-color "Gray")
 (set-frame-parameter nil 'alpha 90) 
 
 ;; バックアップを作らない
 (setq backup-inhibited t)
 
 ;; 終了時にオートセーブファイルを消す
 (setq delete-auto-save-files t)
 
 ;; ファイルに間違いがあれば無効
 (custom-set-variables '(inhibit-startup-screen t))
 (custom-set-faces)
 
 ;; \の代わりにバックスラッシュを入力する
 ;;(define-key global-map [?\] [?\\])  
 
 ;; スクロールバーを右側に表示する
 ;;(set-scroll-bar-mode 'right)