Lines 1-6
Link Here
|
1 |
--- sly.el.orig 2021-01-14 09:12:56 UTC |
1 |
--- sly.el.orig 2023-05-23 12:54:52 UTC |
2 |
+++ sly.el |
2 |
+++ sly.el |
3 |
@@ -7463,22 +7463,30 @@ can be found." |
3 |
@@ -7475,22 +7475,30 @@ can be found." |
4 |
;;;###autoload |
4 |
;;;###autoload |
5 |
(add-hook 'lisp-mode-hook 'sly-editing-mode) |
5 |
(add-hook 'lisp-mode-hook 'sly-editing-mode) |
6 |
|
6 |
|
Lines 33-40
Link Here
|
33 |
(dolist (buffer (buffer-list)) |
33 |
(dolist (buffer (buffer-list)) |
34 |
(with-current-buffer buffer |
34 |
(with-current-buffer buffer |
35 |
(when (eq major-mode 'lisp-mode) |
35 |
(when (eq major-mode 'lisp-mode) |
36 |
- (sly-editing-mode 1) |
36 |
- (unless sly-editing-mode (sly-editing-mode 1)) |
37 |
- (ignore-errors (funcall 'slime-mode -1)))))) |
37 |
- (ignore-errors (and (featurep 'slime) (funcall 'slime-mode -1))))))) |
38 |
- (t |
38 |
- (t |
39 |
- (warn |
39 |
- (warn |
40 |
- "`sly.el' loaded OK. To use SLY, customize `lisp-mode-hook' and remove `slime-lisp-mode-hook'."))) |
40 |
- "`sly.el' loaded OK. To use SLY, customize `lisp-mode-hook' and remove `slime-lisp-mode-hook'."))) |