diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-07 17:26:10 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-08-07 17:26:10 -0700 |
commit | 91b5db9424632096dbd9b05544b9994c513828fd (patch) | |
tree | 97f3c60320571b911b4c0527635e40d10f7125ca /.emacs.d | |
parent | c730109540df9902027626b99c8cdf17e53b64ec (diff) | |
download | dotfiles-91b5db9424632096dbd9b05544b9994c513828fd.tar.gz |
spw/flatten -> flatten-tree
Diffstat (limited to '.emacs.d')
-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")) |