Move lsp-treemacs-wcb-unless-killed in lsp-treemacs-generic

Author: yyoncho

lsp-treemacs-generic.el

@@ -32,6 +32,13 @@
 (defvar-local lsp-treemacs--right-click-actions nil)
 (defvar-local lsp-treemacs-generic-filter nil)
 
+(defmacro lsp-treemacs-wcb-unless-killed (buffer &rest body)
+  "`with-current-buffer' unless buffer killed."
+  (declare (indent 1) (debug t))
+  `(when (buffer-live-p (get-buffer ,buffer))
+     (with-current-buffer ,buffer
+       ,@body)))
+
 (defun lsp-treemacs-generic-refresh (&optional _cache)
   (condition-case _err
       (let ((inhibit-read-only t))

lsp-treemacs.el

@@ -590,13 +590,6 @@ will be rendered an empty line between them."
   (-let (((_ _package _class jar-file) (s-match "jdt://contents/.*\/\\(.*\\)\/\\(.*\\).class\\?=.*?/\\(.*?\\)=\/" file)))
     (symbol-name (read (url-unhex-string jar-file )))))
 
-(defmacro lsp-treemacs-wcb-unless-killed (buffer &rest body)
-  "`with-current-buffer' unless buffer killed."
-  (declare (indent 1) (debug t))
-  `(when (buffer-live-p (get-buffer ,buffer))
-     (with-current-buffer ,buffer
-       ,@body)))
-
 (defun lsp-treemacs--get-xrefs-in-file (file-locs location-link)
   (-let (((filename . links) file-locs))
     (list :key filename