From a35f723d9271c081318fe463cd6fc51757d8cb0f Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 31 Aug 2020 14:59:48 +0100 Subject: Lint maybe.el This change had rippling implications. --- emacs/.emacs.d/wpc/buffer.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'emacs/.emacs.d/wpc/buffer.el') diff --git a/emacs/.emacs.d/wpc/buffer.el b/emacs/.emacs.d/wpc/buffer.el index 3e4d546fc8ca..31d23432ba7b 100644 --- a/emacs/.emacs.d/wpc/buffer.el +++ b/emacs/.emacs.d/wpc/buffer.el @@ -90,7 +90,7 @@ This will ignore Emacs-generated buffers, like *Messages*. It will also ignore (defun buffer/exists? (name) "Return t if buffer, NAME, exists." - (maybe/some? (buffer/find name))) + (maybe-some? (buffer/find name))) (defun buffer/new (name) "Return a newly created buffer NAME." @@ -100,7 +100,7 @@ This will ignore Emacs-generated buffers, like *Messages*. It will also ignore "Find or create buffer, NAME. Return a reference to that buffer." (let ((x (buffer/find name))) - (if (maybe/some? x) + (if (maybe-some? x) x (buffer/new name)))) @@ -163,7 +163,7 @@ This function ignores Emacs-generated buffers, i.e. the ones that look like (interactive) (let* ((xs (buffer/source-code-buffers)) (candidate (list/get 1 xs))) - (prelude/assert (maybe/some? candidate)) + (prelude/assert (maybe-some? candidate)) (switch-to-buffer candidate))) (when buffer/install-kbds? -- cgit 1.4.1