dot.emacs.el

;; Clojure 用に slime-cursor-marker を設定しちゃいます、同時に、
;; CL 用 (sbcl) に swank::+cursor-marker+ を上書きしちゃいます。
(setq slime-lisp-implementations
      `((sbcl ("sbcl") :init-function my-swank-cl-init)
        (clojure ,(swank-clojure-cmd) :init swank-clojure-init)))
(eval-after-load 'slime-autodoc
  '(progn
    (setq slime-cursor-marker :swank/+cursor+)))
(eval-after-load 'slime
  '(progn
    (defun my-swank-cl-init ()
      ;; たまに上書きされちゃう >_<
      (slime-eval-async
       `(swank:interactive-eval
         ,(format "(defparameter +cursor-marker+ %s)" slime-cursor-marker))
       'identity
       "SWANK"))))