            (propertize message 'face message-face)))
 
 ;;;###autoload
-(defun narf/workgroup-display (&optional suppress-update return-p)
+(defun narf/workgroup-display (&optional suppress-update return-p message)
   (interactive)
   (when (wg-current-session t)
     (unless (eq suppress-update t)

        (narf:workgroup-delete))
    (evil-window-delete)))


(provide 'defuns-workgroup)
;;; defuns-workgroup.el ends here

                   (wg-workgroup-list))))
      (if return-p
          output
        (message "%s%s" output (or message ""))))))

;;;###autoload
(defun narf/workgroup-update-names (&optional wg)
