* 2008-03-09 :
- elisp を書く気はさらさらないので (requre 'cl) には拘らないです。
- 具体例として、現在の .emacs はこんな感じです。
- session.el
- tails-history.el
- キーバインドを覚えていないのですが、M-x の履歴で何とかしています。
(global-set-key [delete] 'delete-char) (global-set-key "\C-h" 'backward-delete-char) (setq inhibit-startup-message t) (setq make-backup-files nil) (setq truncate-partial-width-windows t) (setq-default truncate-lines t) (line-number-mode 1) (column-number-mode 1) (add-hook 'lisp-mode-hook (lambda () (setq indent-tabs-mode nil))) (setq inferior-lisp-program "clisp -E UTF-8") ;(setq inferior-lisp-program "sbcl") (add-hook 'inferior-lisp-load-hook 'inferior-lisp-install-letter-bindings) (add-hook 'inferior-lisp-load-hook (lambda () (defvar lisp-apropos-command "(apropos \"%s\")\n") (defun lisp-apropos (str) (interactive (lisp-symprompt "Apropos" (lisp-var-at-pt))) (let ((buf (current-buffer))) (comint-proc-query (inferior-lisp-proc) (format lisp-apropos-command str)) (set-buffer buf))) (define-key lisp-mode-map "\C-ca" 'lisp-apropos)) t) (setq load-path (cons "~/site-lisp" load-path)) (require 'session) (add-hook 'after-init-hook 'session-initialize) (global-set-key "\C-x\C-b" 'bs-show) (global-set-key "\C-c\C-c" 'comment-region) (add-hook 'inferior-lisp-mode-hook (lambda () (define-key lisp-mode-map "\C-c\C-c" 'comment-region))) (defconst *dmacro-key* [?\C-:] "dmacro key") (global-set-key *dmacro-key* 'dmacro-exec) (autoload 'dmacro-exec "dmacro" nil t) (autoload 'kill-summary "kill-summary" nil t) (global-set-key "\M-y" 'kill-summary) (load-library "tails-history") (define-key minibuffer-local-map [?\C-p] 'tails-previous-history-element) (define-key minibuffer-local-completion-map [?\C-p] 'tails-previous-history-element) (define-key minibuffer-local-must-match-map [?\C-p] 'tails-previous-history-element) (define-key minibuffer-local-ns-map [?\C-p] 'tails-previous-history-element) (define-key minibuffer-local-map [?\C-n] 'tails-next-history-element) (define-key minibuffer-local-completion-map [?\C-n] 'tails-next-history-element) (define-key minibuffer-local-must-match-map [?\C-n] 'tails-next-history-element) (define-key minibuffer-local-ns-map [?\C-n] 'tails-next-history-element) (put 'narrow-to-region 'disabled nil) (setq browse-url-browser-function 'browse-url-kde) (require 'slime) (setq slime-net-coding-system 'utf-8-unix)
update : 2008-03-09 (Sun) 19:42:37