diff options
| author | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-09 09:45:16 -0700 |
|---|---|---|
| committer | Sean Whitton <spwhitton@spwhitton.name> | 2020-08-09 09:45:16 -0700 |
| commit | 6496d76bc219832b7555aff1e6891e9d5287ed26 (patch) | |
| tree | 91142690899da991df62dec2ca75dacfa4acc3d2 | |
| parent | 51074a13e055bb88aa57b4c57365eebf0dbece32 (diff) | |
| download | dotfiles-6496d76bc219832b7555aff1e6891e9d5287ed26.tar.gz | |
avoid seq.el when not really needed
| -rw-r--r-- | .emacs.d/init-spw.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index d1093ce4..37b043aa 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -1145,10 +1145,10 @@ to be run by the OS shell." (defun spw/compile-or-maybe-recompile () (interactive) (if-let ((compilation-windows - (seq-filter (lambda (window) - (with-current-buffer (window-buffer window) - (eq major-mode 'compilation-mode))) - (window-list)))) + (cl-remove-if-not (lambda (window) + (with-current-buffer (window-buffer window) + (eq major-mode 'compilation-mode))) + (window-list)))) (with-current-buffer (window-buffer (seq-first compilation-windows)) (call-interactively 'recompile)) ;; (delete-other-windows) |