Lisp: Remove inferior-lisp history function (superseded by SLIME REPL)
parent
b2702fc2c1
commit
c3bf90eb52
|
@ -46,18 +46,6 @@
|
|||
(slime-setup slime-extra)
|
||||
(add-hook 'slime-repl-mode-hook 'ambrevar/init-lispy)))
|
||||
|
||||
;; Save SLIME history (only for inferior-lisp).
|
||||
(defvar ambrevar/slime-comint-input-ring nil)
|
||||
(with-eval-after-load 'desktop
|
||||
(add-to-list 'desktop-globals-to-save 'ambrevar/slime-comint-input-ring))
|
||||
(defun ambrevar/slime-use-global-input-ring ()
|
||||
(add-hook 'kill-buffer-hook #'ambrevar/slime-comint-input-ring nil t)
|
||||
(when ambrevar/slime-comint-input-ring
|
||||
(setq comint-input-ring ambrevar/slime-comint-input-ring)))
|
||||
(defun ambrevar/slime-comint-input-ring ()
|
||||
(setq ambrevar/slime-comint-input-ring comint-input-ring))
|
||||
(add-hook 'slime-connected-hook #'ambrevar/slime-use-global-input-ring)
|
||||
|
||||
;; Read CLHS locally.
|
||||
(or
|
||||
;; Quicklisp package.
|
||||
|
|
Loading…
Reference in New Issue