check visible recursive

fix #2145

Author: sumneko

changelog.md

@@ -2,6 +2,9 @@
 
 ## 3.6.24
 * `FIX` shake of `codeLens`
+* `FIX` [#2145]
+
+[#2145]: https://github.com/LuaLS/lua-language-server/issues/2145
 
 ## 3.6.23
 `2023-7-7`

script/vm/visible.lua

@@ -7,9 +7,7 @@ local glob     = require 'glob'
 ---@class parser.object
 ---@field package _visibleType? parser.visibleType
 
----@param source parser.object
----@return parser.visibleType
-function vm.getVisibleType(source)
+local function getVisibleType(source)
     if source._visibleType then
         return source._visibleType
     end
@@ -55,6 +53,23 @@ function vm.getVisibleType(source)
     return 'public'
 end
 
+---@param source parser.object
+---@return parser.visibleType
+function vm.getVisibleType(source)
+    if source._visibleType then
+        return source._visibleType
+    end
+    for _, def in ipairs(vm.getDefs(source)) do
+        local visible = getVisibleType(def)
+        if visible ~= 'public' then
+            source._visibleType = visible
+            return visible
+        end
+    end
+    source._visibleType = 'public'
+    return 'public'
+end
+
 ---@param source parser.object
 ---@return vm.global?
 function vm.getParentClass(source)

test/hover/init.lua

@@ -2381,6 +2381,25 @@ local obj: B {
 }
 ]]
 
+TEST [[
+---@class A
+local M = {}
+
+---@private
+M.x = 0
+
+---@private
+function M:init()
+    self.x = 1
+end
+
+---@type A
+local <?a?>
+]]
+[[
+local a: A
+]]
+
 TEST [[
 ---@class A
 ---@field x fun(): string