* 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
Source of Nothingness
NANRI
NANRI