From 34de826ac4dfa6126f56bb3d87043c4d19fbab9c Mon Sep 17 00:00:00 2001 From: Henrik Lissner Date: Mon, 9 Jul 2018 21:53:50 +0200 Subject: [PATCH] +workspace-contains-buffer-p -> persp-contain-buffer-p Wrapper is unnecessary. Also remove unnecessary type checking. --- modules/feature/workspaces/autoload/workspaces.el | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/modules/feature/workspaces/autoload/workspaces.el b/modules/feature/workspaces/autoload/workspaces.el index 0c9cb9512..45d722491 100644 --- a/modules/feature/workspaces/autoload/workspaces.el +++ b/modules/feature/workspaces/autoload/workspaces.el @@ -38,13 +38,11 @@ ;;;###autoload (defun +workspace-exists-p (name) "Returns t if NAME is the name of an existing workspace." - (cl-check-type name string) (member name (+workspace-list-names))) ;;;###autoload -(defun +workspace-contains-buffer-p (buffer &optional workspace) - "Return non-nil if BUFFER is in WORKSPACE (defaults to current workspace)." - (persp-contain-buffer-p buffer (or workspace (+workspace-current)) nil)) +(defalias #'+workspace-contains-buffer-p #'persp-contain-buffer-p + "Return non-nil if BUFFER is in WORKSPACE (defaults to current workspace).") ;; --- Getters ----------------------------