コピペ用。 //lisp ;;よく分からない (custom-set-variables ;; custom-set-variables was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. '(inhibit-startup-screen t)) (custom-set-faces ;; custom-set-faces was added by Custom. ;; If you edit it by hand, you could mess it up, so be careful. ;; Your init file should contain only one such instance. ;; If there is more than one, they won't work right. ) ;;デフォルトのフォント (set-default-font "VL Pゴシック-12") ;;起動時の画面はいらない (setq inhibit-startup-message t) ;;リージョンを色付け (setq transient-mark-mode t) (setq highlight-nonselected-windows t) ;;キーバインド (define-key global-map "\C-h" 'delete-backward-char) ; 削除 (define-key global-map "\C-q" 'dabbrev-expand) ; 補完 (define-key global-map "\C-xl" 'goto-line) ; 指定行に移動 ;;初期フレームの設定 (setq initial-frame-alist (append '((top . 22) ; フレームの Y 位置(ピクセル数) (left . 600) ; フレームの X 位置(ピクセル数) (width . 81) ; フレーム幅(文字数) (height . 50)) ; フレーム高(文字数) initial-frame-alist)) ;;新規フレームのデフォルト設定 (setq default-frame-alist (append '((width . 81) ; フレーム幅(文字数) (height . 50)) ; フレーム高(文字数) default-frame-alist)) ;;バックアップファイルを作らない (setq backup-inhibited t) ;;終了時にオートセーブファイルを消す (setq delete-auto-save-files t) ;;補完時に大文字小文字を区別しない (setq completion-ignore-case t) ;;一行が 80 字以上になった時には自動改行する (setq fill-column 80) (setq-default auto-fill-mode t) ;;emacs -nw で起動した時にメニューバーを消す (if window-system (menu-bar-mode 1) (menu-bar-mode -1))