|
|
@ -37,11 +37,12 @@ |
|
|
|
|
|
|
|
|
(defun prelude-remove-elc-on-save () |
|
|
(defun prelude-remove-elc-on-save () |
|
|
"If you're saving an elisp file, likely the .elc is no longer valid." |
|
|
"If you're saving an elisp file, likely the .elc is no longer valid." |
|
|
(make-local-variable 'after-save-hook) |
|
|
|
|
|
(add-hook 'after-save-hook |
|
|
(add-hook 'after-save-hook |
|
|
(lambda () |
|
|
(lambda () |
|
|
(if (file-exists-p (concat buffer-file-name "c")) |
|
|
(if (file-exists-p (concat buffer-file-name "c")) |
|
|
(delete-file (concat buffer-file-name "c")))))) |
|
|
|
|
|
|
|
|
(delete-file (concat buffer-file-name "c")))) |
|
|
|
|
|
nil |
|
|
|
|
|
t)) |
|
|
|
|
|
|
|
|
(defun prelude-visit-ielm () |
|
|
(defun prelude-visit-ielm () |
|
|
"Switch to default `ielm' buffer. |
|
|
"Switch to default `ielm' buffer. |
|
|
|