(setq auto-mode-alist
(append
'(("\\.mm$" . objc-mode)
;;("\\.lisp$" . fi:common-lisp-mode)
("\\.lisp$" . lisp-mode))
auto-mode-alist))
(add-to-list 'load-path "/Users/smee/slime-2.0")
(require 'slime)
(setq inferior-lisp-program "/sw/bin/sbcl"
lisp-indent-functioin 'common-lisp-indent-function
slime-complete-symbol-function 'slime-fuzzy-complete-symbol
slime-startup-animation t)
;;;(add-hook 'lisp-mode-hook (lambda () (slime-mode t)))
(add-hook 'inferior-lisp-mode-hook (lambda () (inferior-slime-mode t)))
;; Optionally, specify the lisp program you are using. Default is "lisp"
;;;(slime-setup)
(add-hook 'lisp-mode-hook
(lambda ()
(require 'slime)
(slime-mode t)
(slime-setup)))
(setq load-path
(cons (expand-file-name "~/ilisp-20021222/") load-path))
(autoload 'openmcl "ilisp" "Inferior Open MCL" t)
;; See the file "ilisp-5.11/ilisp.emacs" for
;; examples of other customization settings
;; that affect ILISP. Some recent
;; versions of XEmacs can be configured to
;; use a ~/.xemac/init.el file
;; instead of ~/.emacs
(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.
)
(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.
'(default ((t (:stipple nil :background "black" :foreground "white" :inverse-video nil :box nil :strike-through nil :overline nil :underline nil :slant normal :weight normal :height 120 :width normal :family "apple-monaco"))))
'(cursor ((t (:background "darkgrey"))) t))
(setq make-backup-files nil)
(setq inhibit-startup-message t)
(load-file "/Volumes/BRUNOISE.JARDIN/TIGRE/emacs/test.el")
(load-file "/Volumes/BRUNOISE.JARDIN/TIGRE/emacs/test_commands.el")
(fset '{
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ("{}{" 0 "%d")) arg)))
(global-set-key (kbd "C-{") '{)
(fset '}
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([19 125 left right return] 0 "%d")) arg)))
(global-set-key (kbd "C-}") '})
(fset '\[
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([91 93 18 91 right] 0 "%d")) arg)))
(global-set-key (kbd "M-[") '\[)
(fset '\]
"\C-s]\C-m")
(global-set-key (kbd "M-]") '\])
(fset '\)
"\C-s)")
(global-set-key (kbd "C-)") '\))
(fset '\(
(lambda (&optional arg) "Keyboard macro." (interactive "p") (kmacro-exec-ring-item (quote ([40 41 18 40 right] 0 "%d")) arg)))
(global-set-key (kbd "C-(") '\()