mieki256's diary

;; 勝手に折り返しをしないように指定
;; (setq fill-column 150)
(setq text-mode-hook nil)

;; Delete キーを Delete キーとして働かせるように指定してるつもり
(load-library "term/keyswap")
(if (eq window-system 'x)
    (progn
      (define-key function-key-map [delete] [8])
      (put 'delete 'ascii-character 8)))

;; 結局下の指定で、Delete キーを Delete キーとして動かしてる気もするけど
(define-key function-key-map [delete] "\C-d")
 
;; M-g に goto-line に割り当て
(global-set-key "\M-g" 'goto-line)

;; C-z に undo を割り当て
(global-set-key "\C-z" 'undo)

;; Shift + 矢印キーで範囲選択できるようにする
(pc-selection-mode)

;; X-window のクリップボードと emacs のクリップボードの同期をとる
(setq x-select-enable-clipboard t)

;; scratch バッファの初期メッセージを表示しないようにする
(setq initial-scratch-message nil) 

;; 「最近開いたファイル」機能をつける
(require 'recentf)
(recentf-mode 1)
(setq recentf-max-menu-items 20)
(setq recentf-max-saved-items 20)

;; C-c / で、「最近開いたファイル」機能を呼出し
(global-set-key "\C-c/" 'recentf-open-files)

;; カラムと行をステータスライン?に表示
(line-number-mode 1)
(column-number-mode 1)

;; セッション情報の自動記録機能をつける
;; ミニバッファに打ち込んだ文字列を記録してくれる
(require 'session)
(add-hook 'after-init-hook 'session-initialize)

;; 物理行でカーソル移動する機能をつける
(load "physical-line")
(physical-line-on)
;; not use dired-mode
(setq physical-line-ignoring-mode-list '(dired-mode))

;; 1行ずつスクロールするように指定
(setq scroll-conservatively 35
       scroll-margin 0
       scroll-step 1)

(setq comint-scroll-show-maximum-output t)

;; バッファ変更 (C-x b) をもう少し便利に
(iswitchb-default-keybindings)
;; (iswitchb-mode 1)

(require 'uniquify)
(setq uniquify-buffer-name-style 'post-forward-angle-brackets)

(add-hook 'iswitchb-define-mode-map-hook
          'iswitchb-my-keys)

(defun iswitchb-my-keys ()
  "Add my keybindings for iswitchb."
  (define-key iswitchb-mode-map [right] 'iswitchb-next-match)
  (define-key iswitchb-mode-map [left] 'iswitchb-prev-match)
  (define-key iswitchb-mode-map "\C-f" 'iswitchb-next-match)
  (define-key iswitchb-mode-map " " 'iswitchb-next-match)
  (define-key iswitchb-mode-map "\C-b" 'iswitchb-prev-match)
  )

;; バッファ変更を１キーでできるようにする
(require 'pc-bufsw)
(pc-bufsw::bind-keys (quote [C-tab]) (quote [C-S-tab]))
(global-set-key [?\C-,] 'pc-bufsw::lru)
(global-set-key [?\C-.] 'pc-bufsw::previous)

;; バッファを保存する際に、必ず最後の行を空行にする
(setq require-final-newline t)

;; 行末のホワイトスペースを削除
;; M-x ys:trim-whitespaces

(defun ys:trim-whitespaces ()
  "Trim excess whitespaces."
  (interactive "*")
  (let ((key (read-char "Convert spaces?: (t)abify (u)ntabify (n)o"))
        (reg (and transient-mark-mode mark-active)))
    (save-excursion
      (save-restriction
        (if reg
            (narrow-to-region (region-beginning) (region-end)))
        (goto-char (point-min))
        (while (re-search-forward "[ \t]+$" nil t)
          (replace-match "" nil nil))
        (if reg nil
          (goto-char (point-max))
          (delete-blank-lines))
        (cond
         ((= key ?t)
          (tabify (point-min) (point-max)))
         ((= key ?u)
          (untabify (point-min) (point-max)))))))
  (deactivate-mark))

;; クリップボード履歴の一覧表示機能をつける
;; M-y kill-summary
;; n,p で選択
(autoload 'kill-summary "kill-summary" nil t)
(global-set-key "\M-y" 'kill-summary)

◎ 関連ページ :