xyzzy

xyzzy

.xyzzy

;キーボードカスタマイズ
(global-set-key #\C-z 'undo)
(global-set-key #\M-% 'query-replace)
(global-set-key #\C-o 'other-window)
(global-set-key #\C-q 'kill-ring-save)
(global-set-key #\C-j 'goto-line)
(global-set-key #\M-p 'previous-page)
(global-set-key #\M-n 'next-page)
(global-set-key #\Home 'beginning-of-line)
(global-set-key #\End 'end-of-line)
(global-set-key '(#\C-c #\C-b) 'select-buffer)
(global-set-key #\C-\; 'jump-tag)
(global-set-key #\C-: 'back-tag-jump)
(global-set-key #\C-\' 'back-tag-jump)
(global-set-key #\C-] 'next-error)
(global-set-key '(#\C-x #\g) 'grep-dialog)
(global-set-key #\F2 'call-last-kbd-macro)
(global-set-key #\F8 'den8-viewer)
(global-set-key #\F9 'my-sqlplus-view)

; ステータスバーカスタマイズ
(setq *status-bar-format* "cupT")

(define-key ctl-x-map #\C-w 'emacs-write-file)

;他アプリとのコピーペーストをマウスに割り当て
(defun mouse-right-press ()
  (interactive)
  (mouse-left-press)
  (paste-from-clipboard)) 
(global-set-key #\LBtnUp 'copy-selection-to-clipboard) 
(global-set-key #\MBtnUp 'mouse-right-press)
(global-set-key #\RBtnUp 'mouse-menu-popup)

;; S-tab を F20
;; バックスペースを F21
;; S-バックスペースを F22 に割り当て
(set-extended-key-translate-table exkey-S-tab #\F20)
(set-extended-key-translate-table exkey-backspace #\F21)
(set-extended-key-translate-table exkey-S-backspace #\F22)
(global-set-key #\F21 'delete-backward-char-or-selection)

;; buffer-list
(define-key ed::*buffer-menu-mode-map* #\RET 'buffer-menu-this-window)
(define-key ed::*buffer-menu-mode-map* #\v 'buffer-menu-this-window)
(define-key ed::*buffer-menu-mode-map* #\C-v 'buffer-menu-this-window)

;インクリメンタルサーチ
(require "isearch")

;;migemo（ローマ字でインクリメントサーチ）
;(require "migemo")
;(migemo-toggle t)

;;Dynamic Macro
;(defconstant *ndmacro-key* #\C-t "繰返し指定キー")
;(global-set-key *ndmacro-key* 'ndmacro-exec)
;(autoload 'ndmacro-exec "ndmacro" nil t)
;(require "ndmacro")