diff options
| -rw-r--r-- | .emacs.d/init-spw.el | 11 | ||||
| -rw-r--r-- | .emacs.d/notmuch-config.el | 2 |
2 files changed, 1 insertions, 12 deletions
diff --git a/.emacs.d/init-spw.el b/.emacs.d/init-spw.el index 3751b97e..ba12510e 100644 --- a/.emacs.d/init-spw.el +++ b/.emacs.d/init-spw.el @@ -1952,17 +1952,6 @@ making indirect clones." (interactive (list (read-library-name))) (find-file-other-window (locate-library (concat library ".el")))) -(defun spw/flatten (list) - "Non-destructive list flatten." - (cl-labels - ((flatten (list) - (let (accum) - (dolist (element list accum) - (if (atom element) - (push element accum) - (setq accum (nconc (flatten element) accum))))))) - (nreverse (flatten list)))) - ;; unimplemented: update values in any Lisp image we may have (defun spw/propagate-new-environment () "After ~/src/dotfiles/bin/update-emacs-daemon-environment has diff --git a/.emacs.d/notmuch-config.el b/.emacs.d/notmuch-config.el index d7b23a63..579b314b 100644 --- a/.emacs.d/notmuch-config.el +++ b/.emacs.d/notmuch-config.el @@ -248,7 +248,7 @@ Two ways to read: (apply-partially (lambda (connec &rest queries) (mapconcat (lambda (query) (concat "(" query ")")) - (spw/flatten queries) + (flatten-tree queries) (concat " " connec " "))) word)) (disjoin (connective "or")) |