.emacs.elもかえた
(global-set-key (kbd "C-x C-g") 'goto-line)
(global-set-key (kbd "C-h") 'delete-backward-char)
(global-set-key (kbd "M-h") 'help)
(defun other-window-or-split ()
(interactive)
(when (one-window-p) (split-window-horizontally))
(other-window 1))
(global-set-key (kbd "C-]") 'other-window-or-split)
(defun toppoint ()
(interactive)
(recenter 0))
(global-set-key (kbd "C-M-l") 'toppoint)
(defun my-indent-region ()
(interactive)
(if mark-active
(indent-region (region-beginning) (region-end))
(progn
(point-to-register 'rgst)
(mark-whole-buffer)
(indent-region (region-beginning) (region-end))
(jump-to-register 'rgst)
(keyboard-quit))))
(global-set-key (kbd "C-c C-q") 'my-indent-region)
(defadvice yank (after ys:highlight-string activate)
(let *1 (dired default-directory))))
(defalias 'yes-or-no-p 'y-or-n-p)
(transient-mark-mode 1)
(show-paren-mode 1)
(delete-selection-mode 1)
(global-hl-line-mode 1)
(setq hl-line-face 'underline)
(setq make-backup-files nil)
(setq visible-bell t)
(setq echo-keystrokes 0.1)
(setq message-log-max 10000)
(setq history-length 1000)
(setq gc-cons-threshold (* 10 gc-cons-threshold))
(put 'narrow-to-region 'disabled nil)
(custom-set-variables '(inhibit-startup-screen t))
(setq load-path (cons (expand-file-name "~/.emacs.d/lisp/color-theme-6.6.0") load-path))
(require 'color-theme)
(color-theme-initialize)
(color-theme-billw)
(if window-system
(progn
(setq initial-frame-alist '*2
(set-frame-parameter nil 'alpha 90)
(tool-bar-mode -1)
(menu-bar-mode -1)
(setq mac-command-key-is-meta nil)
(setq mac-option-modifier 'meta)
(setq mac-command-modifier 'super)
(global-set-key [?\s-c] 'kill-ring-save)
(global-set-key [?\s-v] 'yank)
(global-set-key [?\s-x] 'kill-region)
(global-set-key [?\s-z] 'undo)
(global-set-key [?\s-s] 'save-buffer)
(global-set-key [?\s-q] 'save-buffers-kill-terminal)
(global-set-key [?\s-f] 'isearch-forward)
(global-set-key [?\s-g] 'isearch-repeat-forward)
))
;; yatex
(setq load-path (cons "~/.emacs.d/lisp/yatex1.74/site-lisp/yatex" load-path))
(setq auto-mode-alist (cons (cons "\\.tex$" 'yatex-mode) auto-mode-alist))
(autoload 'yatex-mode "yatex" "Yet Another LaTeX mode" t)
(setq tex-command "/Applications/UpTeX.app/teTeX/bin/Xtexshop"
dvi2-command "open -a TexShop")
(add-hook 'yatex-mode-hook '(lambda () (setq auto-fill-function nil)))
;; slime+lisp
(add-to-list 'load-path "~/.emacs.d/slime")
(setq inferior-lisp-program "/usr/local/Cellar/cmucl/20c/bin/lisp")
(require 'slime)
(slime-setup '(slime-fancy))
(setq auto-mode-alist (cons (cons "\\.bash_aliases" 'shell-script-mode) auto-mode-alist))
*1:ol (make-overlay (mark t) (point)))) (overlay-put ol 'face 'highlight) (sit-for 0.5) (delete-overlay ol))) (defadvice yank-pop (after ys:highlight-string activate) (when (eq last-command 'yank) (let ((ol (make-overlay (mark t) (point)))) (overlay-put ol 'face 'highlight) (sit-for 0.5) (delete-overlay ol)))) ;; C-x b (iswitchb-mode 1) (setq read-buffer-function 'iswitchb-read-buffer) (setq iswitchb-regrexp nil) (setq iswitchb-prompt-newbuffer nil) (require 'uniquify) (setq uniquify-buffer-name-style 'post-forward-angle-brackets) (add-hook 'after-save-hook 'executable-make-buffer-file-executable-if-script-p) (add-hook 'emacs-startup-hook (cond ( (null (cdr command-line-args
*2:width . 100) (height . 45) (top . 0) (left . 350))) (add-to-list 'default-frame-alist '(alpha . 90
