Merge f40f4c7d8a into 738320188f

runtime/doc/lsp.txt

@@ -1116,9 +1116,6 @@ Lua module: vim.lsp.client                                        *lsp-client*
       • {server_capabilities}   (`lsp.ServerCapabilities?`) Response from the
                                 server sent on `initialize` describing the
                                 server's capabilities.
-      • {server_info}           (`lsp.ServerInfo?`) Response from the server
-                                sent on `initialize` describing information
-                                about the server.
       • {progress}              (`vim.lsp.Client.Progress`) A ring buffer
                                 (|vim.ringbuf()|) containing progress messages
                                 sent by the server. See

runtime/doc/news.txt

@@ -114,7 +114,6 @@ LSP
 • |vim.lsp.util.make_position_params()|, |vim.lsp.util.make_range_params()|
   and |vim.lsp.util.make_given_range_params()| now require the `position_encoding`
   parameter.
-• `:checkhealth vim.lsp` displays the server version (if available).
 
 LUA
 

runtime/lua/man.lua

@@ -1,8 +1,19 @@
 local api, fn = vim.api, vim.fn
 
+local FIND_ARG = '-w'
+local localfile_arg = true -- Always use -l if possible. #6683
+
+---@type table[]
+local buf_hls = {}
+
 local M = {}
 
---- Run a system command and timeout after 10 seconds.
+local function man_error(msg)
+  M.errormsg = 'man.lua: ' .. vim.inspect(msg)
+  error(M.errormsg)
+end
+
+-- Run a system command and timeout after 30 seconds.
 ---@param cmd string[]
 ---@param silent boolean?
 ---@param env? table<string,string|number>
@@ -13,7 +24,7 @@ local function system(cmd, silent, env)
   if not silent then
     if r.code ~= 0 then
       local cmd_str = table.concat(cmd, ' ')
-      error(string.format("command error '%s': %s", cmd_str, r.stderr))
+      man_error(string.format("command error '%s': %s", cmd_str, r.stderr))
     end
     assert(r.stdout ~= '')
   end
@@ -21,64 +32,65 @@ local function system(cmd, silent, env)
   return assert(r.stdout)
 end
 
---- @enum Man.Attribute
-local Attrs = {
-  None = 0,
-  Bold = 1,
-  Underline = 2,
-  Italic = 3,
-}
-
 ---@param line string
---- @param row integer
---- @param hls {attr:Man.Attribute,row:integer,start:integer,final:integer}[]
---- @return string
-local function render_line(line, row, hls)
+---@param linenr integer
+local function highlight_line(line, linenr)
   ---@type string[]
   local chars = {}
   local prev_char = ''
   local overstrike, escape, osc8 = false, false, false
 
-  local attr = Attrs.None
+  ---@type table<integer,{attr:integer,start:integer,final:integer}>
+  local hls = {} -- Store highlight groups as { attr, start, final }
+
+  local NONE, BOLD, UNDERLINE, ITALIC = 0, 1, 2, 3
+  local hl_groups = { [BOLD] = 'manBold', [UNDERLINE] = 'manUnderline', [ITALIC] = 'manItalic' }
+  local attr = NONE
   local byte = 0 -- byte offset
 
-  local hls_start = #hls + 1
+  local function end_attr_hl(attr_)
+    for i, hl in ipairs(hls) do
+      if hl.attr == attr_ and hl.final == -1 then
+        hl.final = byte
+        hls[i] = hl
+      end
+    end
+  end
 
-  --- @param code integer
   local function add_attr_hl(code)
     local continue_hl = true
     if code == 0 then
-      attr = Attrs.None
+      attr = NONE
       continue_hl = false
     elseif code == 1 then
-      attr = Attrs.Bold
+      attr = BOLD
     elseif code == 22 then
-      attr = Attrs.Bold
+      attr = BOLD
       continue_hl = false
     elseif code == 3 then
-      attr = Attrs.Italic
+      attr = ITALIC
     elseif code == 23 then
-      attr = Attrs.Italic
+      attr = ITALIC
       continue_hl = false
     elseif code == 4 then
-      attr = Attrs.Underline
+      attr = UNDERLINE
     elseif code == 24 then
-      attr = Attrs.Underline
+      attr = UNDERLINE
       continue_hl = false
     else
-      attr = Attrs.None
+      attr = NONE
       return
     end
 
     if continue_hl then
-      hls[#hls + 1] = { attr = attr, row = row, start = byte, final = -1 }
+      hls[#hls + 1] = { attr = attr, start = byte, final = -1 }
     else
-      for _, a in pairs(attr == Attrs.None and Attrs or { attr }) do
-        for i = hls_start, #hls do
-          if hls[i].attr == a and hls[i].final == -1 then
-            hls[i].final = byte
-          end
+      if attr == NONE then
+        for a, _ in pairs(hl_groups) do
+          end_attr_hl(a)
         end
+      else
+        end_attr_hl(attr)
       end
     end
   end
@@ -91,11 +103,11 @@ local function render_line(line, row, hls)
     if overstrike then
       local last_hl = hls[#hls]
       if char == prev_char then
-        if char == '_' and attr == Attrs.Italic and last_hl and last_hl.final == byte then
+        if char == '_' and attr == ITALIC and last_hl and last_hl.final == byte then
           -- This underscore is in the middle of an italic word
-          attr = Attrs.Italic
+          attr = ITALIC
         else
-          attr = Attrs.Bold
+          attr = BOLD
         end
       elseif prev_char == '_' then
         -- Even though underline is strictly what this should be. <bs>_ was used by nroff to
@@ -104,26 +116,26 @@ local function render_line(line, row, hls)
         -- See:
         -- - https://unix.stackexchange.com/questions/274658/purpose-of-ascii-text-with-overstriking-file-format/274795#274795
         -- - https://cmd.inp.nsk.su/old/cmd2/manuals/unix/UNIX_Unleashed/ch08.htm
-        -- attr = Attrs.Underline
-        attr = Attrs.Italic
+        -- attr = UNDERLINE
+        attr = ITALIC
       elseif prev_char == '+' and char == 'o' then
         -- bullet (overstrike text '+^Ho')
-        attr = Attrs.Bold
+        attr = BOLD
         char = '·'
       elseif prev_char == '·' and char == 'o' then
         -- bullet (additional handling for '+^H+^Ho^Ho')
-        attr = Attrs.Bold
+        attr = BOLD
         char = '·'
       else
         -- use plain char
-        attr = Attrs.None
+        attr = NONE
       end
 
       -- Grow the previous highlight group if possible
       if last_hl and last_hl.attr == attr and last_hl.final == byte then
         last_hl.final = byte + #char
       else
-        hls[#hls + 1] = { attr = attr, row = row, start = byte, final = byte + #char }
+        hls[#hls + 1] = { attr = attr, start = byte, final = byte + #char }
       end
 
       overstrike = false
@@ -146,11 +158,10 @@ local function render_line(line, row, hls)
       local sgr = prev_char:match('^%[([\032-\063]*)m$')
       -- Ignore escape sequences with : characters, as specified by ITU's T.416
       -- Open Document Architecture and interchange format.
-      if sgr and not sgr:find(':') then
+      if sgr and not string.find(sgr, ':') then
         local match ---@type string?
         while sgr and #sgr > 0 do
           -- Match against SGR parameters, which may be separated by ';'
-          --- @type string?, string?
           match, sgr = sgr:match('^(%d*);?(.*)')
           add_attr_hl(match + 0) -- coerce to number
         end
@@ -176,40 +187,55 @@ local function render_line(line, row, hls)
     end
   end
 
-  return table.concat(chars, '')
+  for _, hl in ipairs(hls) do
+    if hl.attr ~= NONE then
+      buf_hls[#buf_hls + 1] = {
+        0,
+        -1,
+        hl_groups[hl.attr],
+        linenr - 1,
+        hl.start,
+        hl.final,
+      }
+    end
   end
 
-local HlGroups = {
-  [Attrs.Bold] = 'manBold',
-  [Attrs.Underline] = 'manUnderline',
-  [Attrs.Italic] = 'manItalic',
-}
+  return table.concat(chars, '')
+end
 
 local function highlight_man_page()
   local mod = vim.bo.modifiable
   vim.bo.modifiable = true
 
   local lines = api.nvim_buf_get_lines(0, 0, -1, false)
-
-  --- @type {attr:Man.Attribute,row:integer,start:integer,final:integer}[]
-  local hls = {}
-
   for i, line in ipairs(lines) do
-    lines[i] = render_line(line, i - 1, hls)
+    lines[i] = highlight_line(line, i)
   end
-
   api.nvim_buf_set_lines(0, 0, -1, false, lines)
 
-  for _, hl in ipairs(hls) do
-    api.nvim_buf_add_highlight(0, -1, HlGroups[hl.attr], hl.row, hl.start, hl.final)
+  for _, args in ipairs(buf_hls) do
+    api.nvim_buf_add_highlight(unpack(args))
   end
+  buf_hls = {}
 
   vim.bo.modifiable = mod
 end
 
---- @param name? string
---- @param sect? string
-local function get_path(name, sect)
+-- replace spaces in a man page name with underscores
+-- intended for PostgreSQL, which has man pages like 'CREATE_TABLE(7)';
+-- while editing SQL source code, it's nice to visually select 'CREATE TABLE'
+-- and hit 'K', which requires this transformation
+---@param str string
+---@return string
+local function spaces_to_underscores(str)
+  local res = str:gsub('%s', '_')
+  return res
+end
+
+---@param sect string|nil
+---@param name string|nil
+---@param silent boolean
+local function get_path(sect, name, silent)
   name = name or ''
   sect = sect or ''
   -- Some man implementations (OpenBSD) return all available paths from the
@@ -232,12 +258,12 @@ local function get_path(name, sect)
   -- inconsistently supported. Instead, call -w with a section and a name.
   local cmd ---@type string[]
   if sect == '' then
-    cmd = { 'man', '-w', name }
+    cmd = { 'man', FIND_ARG, name }
   else
-    cmd = { 'man', '-w', sect, name }
+    cmd = { 'man', FIND_ARG, sect, name }
   end
 
-  local lines = system(cmd, true)
+  local lines = system(cmd, silent)
   local results = vim.split(lines, '\n', { trimempty = true })
 
   if #results == 0 then
@@ -256,7 +282,7 @@ local function get_path(name, sect)
   ---@param v string
   local namematches = vim.tbl_filter(function(v)
     local tail = fn.fnamemodify(v, ':t')
-    return tail:find(name, 1, true) ~= nil
+    return string.find(tail, name, 1, true)
   end, results) or {}
   local sectmatches = {}
 
@@ -267,59 +293,73 @@ local function get_path(name, sect)
     end, namematches)
   end
 
-  return (sectmatches[1] or namematches[1] or results[1]):gsub('\n+$', '')
+  return fn.substitute(sectmatches[1] or namematches[1] or results[1], [[\n\+$]], '', '')
 end
 
---- Attempt to extract the name and sect out of 'name(sect)'
---- otherwise just return the largest string of valid characters in ref
+---@param text string
+---@param pat_or_re string
+local function matchstr(text, pat_or_re)
+  local re = type(pat_or_re) == 'string' and vim.regex(pat_or_re) or pat_or_re
+
+  ---@type integer, integer
+  local s, e = re:match_str(text)
+
+  if s == nil then
+    return
+  end
+
+  return text:sub(vim.str_utfindex(text, 'utf-32', s) + 1, vim.str_utfindex(text, 'utf-32', e))
+end
+
+-- attempt to extract the name and sect out of 'name(sect)'
+-- otherwise just return the largest string of valid characters in ref
 ---@param ref string
---- @return string? name
---- @return string? sect
---- @return string? err
-local function parse_ref(ref)
-  if ref == '' or ref:sub(1, 1) == '-' then
-    return nil, nil, ('invalid manpage reference "%s"'):format(ref)
+---@return string, string
+local function extract_sect_and_name_ref(ref)
+  ref = ref or ''
+  if ref:sub(1, 1) == '-' then -- try ':Man -pandoc' with this disabled.
+    man_error("manpage name cannot start with '-'")
   end
-
-  -- match "<name>(<sect>)"
-  -- note: name can contain spaces
-  local name, sect = ref:match('([^()]+)%(([^()]+)%)')
-  if name then
+  local ref1 = ref:match('[^()]+%([^()]+%)')
+  if not ref1 then
+    local name = ref:match('[^()]+')
+    if not name then
+      man_error('manpage reference cannot contain only parentheses: ' .. ref)
+    end
+    return '', name
+  end
+  local parts = vim.split(ref1, '(', { plain = true })
   -- see ':Man 3X curses' on why tolower.
   -- TODO(nhooyr) Not sure if this is portable across OSs
   -- but I have not seen a single uppercase section.
-    return name, sect:lower()
+  local sect = vim.split(parts[2] or '', ')', { plain = true })[1]:lower()
+  local name = parts[1]
+  return sect, name
 end
 
-  name = ref:match('[^()]+')
-  if not name then
-    return nil, nil, ('invalid manpage reference "%s"'):format(ref)
-  end
-  return name
-end
-
---- Attempts to find the path to a manpage based on the passed section and name.
----
---- 1. If manpage could not be found with the given sect and name,
----    then try all the sections in b:man_default_sects.
---- 2. If it still could not be found, then we try again without a section.
---- 3. If still not found but $MANSECT is set, then we try again with $MANSECT
----    unset.
---- 4. If a path still wasn't found, return nil.
---- @param name string?
+-- find_path attempts to find the path to a manpage
+-- based on the passed section and name.
+--
+-- 1. If manpage could not be found with the given sect and name,
+--    then try all the sections in b:man_default_sects.
+-- 2. If it still could not be found, then we try again without a section.
+-- 3. If still not found but $MANSECT is set, then we try again with $MANSECT
+--    unset.
+-- 4. If a path still wasn't found, return nil.
 ---@param sect string?
---- @return string? path
-function M._find_path(name, sect)
+---@param name string
+function M.find_path(sect, name)
   if sect and sect ~= '' then
-    local ret = get_path(name, sect)
+    local ret = get_path(sect, name, true)
     if ret then
       return ret
     end
   end
 
   if vim.b.man_default_sects ~= nil then
-    for sec in vim.gsplit(vim.b.man_default_sects, ',', { trimempty = true }) do
-      local ret = get_path(name, sec)
+    local sects = vim.split(vim.b.man_default_sects, ',', { plain = true, trimempty = true })
+    for _, sec in ipairs(sects) do
+      local ret = get_path(sec, name, true)
       if ret then
         return ret
       end
@@ -327,18 +367,17 @@ function M._find_path(name, sect)
   end
 
   -- if none of the above worked, we will try with no section
-  local ret = get_path(name)
-  if ret then
-    return ret
+  local res_empty_sect = get_path('', name, true)
+  if res_empty_sect then
+    return res_empty_sect
   end
 
   -- if that still didn't work, we will check for $MANSECT and try again with it
   -- unset
   if vim.env.MANSECT then
-    --- @type string
     local mansect = vim.env.MANSECT
     vim.env.MANSECT = nil
-    local res = get_path(name)
+    local res = get_path('', name, true)
     vim.env.MANSECT = mansect
     if res then
       return res
@@ -349,24 +388,21 @@ function M._find_path(name, sect)
   return nil
 end
 
---- Extracts the name/section from the 'path/name.sect', because sometimes the
---- actual section is more specific than what we provided to `man`
---- (try `:Man 3 App::CLI`). Also on linux, name seems to be case-insensitive.
---- So for `:Man PRIntf`, we still want the name of the buffer to be 'printf'.
+local EXT_RE = vim.regex([[\.\%([glx]z\|bz2\|lzma\|Z\)$]])
+
+-- Extracts the name/section from the 'path/name.sect', because sometimes the actual section is
+-- more specific than what we provided to `man` (try `:Man 3 App::CLI`).
+-- Also on linux, name seems to be case-insensitive. So for `:Man PRIntf`, we
+-- still want the name of the buffer to be 'printf'.
 ---@param path string
---- @return string name
---- @return string sect
-local function parse_path(path)
+---@return string, string
+local function extract_sect_and_name_path(path)
   local tail = fn.fnamemodify(path, ':t')
-  if
-    path:match('%.[glx]z$')
-    or path:match('%.bz2$')
-    or path:match('%.lzma$')
-    or path:match('%.Z$')
-  then
+  if EXT_RE:match_str(path) then -- valid extensions
     tail = fn.fnamemodify(tail, ':r')
   end
-  return tail:match('^(.+)%.([^.]+)$')
+  local name, sect = tail:match('^(.+)%.([^.]+)$')
+  return sect, name
 end
 
 ---@return boolean
@@ -397,10 +433,6 @@ local function set_options()
   vim.bo.filetype = 'man'
 end
 
---- Always use -l if possible. #6683
---- @type boolean?
-local localfile_arg
-
 ---@param path string
 ---@param silent boolean?
 ---@return string
@@ -412,17 +444,11 @@ local function get_page(path, silent)
   if (vim.g.man_hardwrap or 1) ~= 1 then
     manwidth = 999
   elseif vim.env.MANWIDTH then
-    manwidth = vim.env.MANWIDTH --- @type string|integer
+    manwidth = vim.env.MANWIDTH
   else
     manwidth = api.nvim_win_get_width(0) - vim.o.wrapmargin
   end
 
-  if localfile_arg == nil then
-    local mpath = get_path('man')
-    -- Check for -l support.
-    localfile_arg = (mpath and system({ 'man', '-l', mpath }, true) or '') ~= ''
-  end
-
   local cmd = localfile_arg and { 'man', '-l', path } or { 'man', path }
 
   -- Force MANPAGER=cat to ensure Vim is not recursively invoked (by man-db).
@@ -435,17 +461,47 @@ local function get_page(path, silent)
   })
 end
 
---- @param path string
---- @param psect string
+---@param lnum integer
+---@return string
+local function getline(lnum)
+  ---@diagnostic disable-next-line
+  return fn.getline(lnum)
+end
+
+---@param page string
+local function put_page(page)
+  vim.bo.modifiable = true
+  vim.bo.readonly = false
+  vim.bo.swapfile = false
+
+  api.nvim_buf_set_lines(0, 0, -1, false, vim.split(page, '\n'))
+
+  while getline(1):match('^%s*$') do
+    api.nvim_buf_set_lines(0, 0, 1, false, {})
+  end
+  -- XXX: nroff justifies text by filling it with whitespace.  That interacts
+  -- badly with our use of $MANWIDTH=999.  Hack around this by using a fixed
+  -- size for those whitespace regions.
+  -- Use try/catch to avoid setting v:errmsg.
+  vim.cmd([[
+    try
+      keeppatterns keepjumps %s/\s\{199,}/\=repeat(' ', 10)/g
+    catch
+    endtry
+  ]])
+  vim.cmd('1') -- Move cursor to first line
+  highlight_man_page()
+  set_options()
+end
+
 local function format_candidate(path, psect)
-  if vim.endswith(path, '.pdf') or vim.endswith(path, '.in') then
-    -- invalid extensions
+  if matchstr(path, [[\.\%(pdf\|in\)$]]) then -- invalid extensions
     return ''
   end
-  local name, sect = parse_path(path)
+  local sect, name = extract_sect_and_name_path(path)
   if sect == psect then
     return name
-  elseif sect:match(psect .. '.+$') then -- invalid extensions
+  elseif sect and name and matchstr(sect, psect .. '.\\+$') then -- invalid extensions
     -- We include the section if the user provided section is a prefix
     -- of the actual section.
     return ('%s(%s)'):format(name, sect)
@@ -453,54 +509,63 @@ local function format_candidate(path, psect)
   return ''
 end
 
+---@generic T
+---@param list T[]
+---@param elem T
+---@return T[]
+local function move_elem_to_head(list, elem)
+  ---@diagnostic disable-next-line:no-unknown
+  local list1 = vim.tbl_filter(function(v)
+    return v ~= elem
+  end, list)
+  return { elem, unpack(list1) }
+end
+
+---@param sect string
 ---@param name string
---- @param sect? string
---- @return string[] paths
---- @return string? err
-local function get_paths(name, sect)
+---@return string[]
+local function get_paths(sect, name)
   -- Try several sources for getting the list man directories:
-  --   1. `manpath -q`
-  --   2. `man -w` (works on most systems)
+  --   1. `man -w` (works on most systems)
+  --   2. `manpath`
   --   3. $MANPATH
-  --
-  -- Note we prefer `manpath -q` because `man -w`:
-  -- - does not work on MacOS 14 and later.
-  -- - only returns '/usr/bin/man' on MacOS 13 and earlier.
-  --- @type string?
-  local mandirs_raw = vim.F.npcall(system, { 'manpath', '-q' })
-    or vim.F.npcall(system, { 'man', '-w' })
+  local mandirs_raw = vim.F.npcall(system, { 'man', FIND_ARG })
+    or vim.F.npcall(system, { 'manpath', '-q' })
     or vim.env.MANPATH
 
   if not mandirs_raw then
-    return {}, "Could not determine man directories from: 'man -w', 'manpath' or $MANPATH"
+    man_error("Could not determine man directories from: 'man -w', 'manpath' or $MANPATH")
   end
 
   local mandirs = table.concat(vim.split(mandirs_raw, '[:\n]', { trimempty = true }), ',')
-
-  sect = sect or ''
-
   ---@type string[]
   local paths = fn.globpath(mandirs, 'man[^\\/]*/' .. name .. '*.' .. sect .. '*', false, true)
 
   -- Prioritize the result from find_path as it obeys b:man_default_sects.
-  local first = M._find_path(name, sect)
+  local first = M.find_path(sect, name)
   if first then
-    --- @param v string
-    paths = vim.tbl_filter(function(v)
-      return v ~= first
-    end, paths)
-    table.insert(paths, 1, first)
+    paths = move_elem_to_head(paths, first)
   end
 
   return paths
 end
 
+---@param sect string
+---@param psect string
+---@param name string
+---@return string[]
+local function complete(sect, psect, name)
+  local pages = get_paths(sect, name)
+  -- We remove duplicates in case the same manpage in different languages was found.
+  return fn.uniq(fn.sort(vim.tbl_map(function(v)
+    return format_candidate(v, psect)
+  end, pages) or {}, 'i'))
+end
+
+-- see extract_sect_and_name_ref on why tolower(sect)
 ---@param arg_lead string
 ---@param cmd_line string
---- @return string? sect
---- @return string? psect
---- @return string? name
-local function parse_cmdline(arg_lead, cmd_line)
+function M.man_complete(arg_lead, cmd_line, _)
   local args = vim.split(cmd_line, '%s+', { trimempty = true })
   local cmd_offset = fn.index(args, 'Man')
   if cmd_offset > 0 then
@@ -510,13 +575,13 @@ local function parse_cmdline(arg_lead, cmd_line)
   end
 
   if #args > 3 then
-    return
+    return {}
   end
 
   if #args == 1 then
     -- returning full completion is laggy. Require some arg_lead to complete
-    -- return '', '', ''
-    return
+    -- return complete('', '', '')
+    return {}
   end
 
   if arg_lead:match('^[^()]+%([^()]*$') then
@@ -525,15 +590,14 @@ local function parse_cmdline(arg_lead, cmd_line)
     -- It will offer 'priclass.d(1m)' even though section is specified as 1.
     local tmp = vim.split(arg_lead, '(', { plain = true })
     local name = tmp[1]
-    -- See extract_sect_and_name_ref on why :lower()
     local sect = (tmp[2] or ''):lower()
-    return sect, '', name
+    return complete(sect, '', name)
   end
 
   if not args[2]:match('^[^()]+$') then
     -- cursor (|) is at ':Man 3() |' or ':Man (3|' or ':Man 3() pri|'
     -- or ':Man 3() pri |'
-    return
+    return {}
   end
 
   if #args == 2 then
@@ -553,77 +617,52 @@ local function parse_cmdline(arg_lead, cmd_line)
       name = arg_lead
       sect = ''
     end
-    return sect, sect, name
+    return complete(sect, sect, name)
   end
 
   if not arg_lead:match('[^()]+$') then
     -- cursor (|) is at ':Man 3 printf |' or ':Man 3 (pr)i|'
-    return
-  end
-
-  -- cursor (|) is at ':Man 3 pri|'
-  local name, sect = arg_lead, args[2]:lower()
-  return sect, sect, name
-end
-
---- @param arg_lead string
---- @param cmd_line string
-function M.man_complete(arg_lead, cmd_line)
-  local sect, psect, name = parse_cmdline(arg_lead, cmd_line)
-  if not (sect and psect and name) then
     return {}
   end
 
-  local pages = get_paths(name, sect)
-
-  -- We check for duplicates in case the same manpage in different languages
-  -- was found.
-  local pages_fmt = {} --- @type string[]
-  local pages_fmt_keys = {} --- @type table<string,true>
-  for _, v in ipairs(pages) do
-    local x = format_candidate(v, psect)
-    local xl = x:lower() -- ignore case when searching avoiding duplicates
-    if not pages_fmt_keys[xl] then
-      pages_fmt[#pages_fmt + 1] = x
-      pages_fmt_keys[xl] = true
-    end
-  end
-  table.sort(pages_fmt)
-
-  return pages_fmt
+  -- cursor (|) is at ':Man 3 pri|'
+  local name = arg_lead
+  local sect = args[2]:lower()
+  return complete(sect, sect, name)
 end
 
 ---@param pattern string
 ---@return {name:string,filename:string,cmd:string}[]
 function M.goto_tag(pattern, _, _)
-  local name, sect, err = parse_ref(pattern)
-  if err then
-    error(err)
-  end
+  local sect, name = extract_sect_and_name_ref(pattern)
 
-  local paths, err2 = get_paths(assert(name), sect)
-  if err2 then
-    error(err2)
-  end
-
-  --- @type table[]
-  local ret = {}
+  local paths = get_paths(sect, name)
+  ---@type {name:string,title:string}[]
+  local structured = {}
 
   for _, path in ipairs(paths) do
-    local pname, psect = parse_path(path)
-    ret[#ret + 1] = {
-      name = pname,
-      filename = ('man://%s(%s)'):format(pname, psect),
-      cmd = '1',
+    sect, name = extract_sect_and_name_path(path)
+    if sect and name then
+      structured[#structured + 1] = {
+        name = name,
+        title = name .. '(' .. sect .. ')',
       }
     end
-
-  return ret
   end
 
---- Called when Nvim is invoked as $MANPAGER.
+  ---@param entry {name:string,title:string}
+  return vim.tbl_map(function(entry)
+    return {
+      name = entry.name,
+      filename = 'man://' .. entry.title,
+      cmd = '1',
+    }
+  end, structured)
+end
+
+-- Called when Nvim is invoked as $MANPAGER.
 function M.init_pager()
-  if fn.getline(1):match('^%s*$') then
+  if getline(1):match('^%s*$') then
     api.nvim_buf_set_lines(0, 0, 1, false, {})
   else
     vim.cmd('keepjumps 1')
@@ -631,10 +670,9 @@ function M.init_pager()
   highlight_man_page()
   -- Guess the ref from the heading (which is usually uppercase, so we cannot
   -- know the correct casing, cf. `man glDrawArraysInstanced`).
-  --- @type string
-  local ref = (fn.getline(1):match('^[^)]+%)') or ''):gsub(' ', '_')
-  local _, sect, err = pcall(parse_ref, ref)
-  vim.b.man_sect = err ~= nil and sect or ''
+  local ref = fn.substitute(matchstr(getline(1), [[^[^)]\+)]]) or '', ' ', '_', 'g')
+  local ok, res = pcall(extract_sect_and_name_ref, ref)
+  vim.b.man_sect = ok and res or ''
 
   if not fn.bufname('%'):match('man://') then -- Avoid duplicate buffers, E95.
     vim.cmd.file({ 'man://' .. fn.fnameescape(ref):lower(), mods = { silent = true } })
@@ -643,14 +681,21 @@ function M.init_pager()
   set_options()
 end
 
---- Combine the name and sect into a manpage reference so that all
---- verification/extraction can be kept in a single function.
+---@param count integer
 ---@param args string[]
---- @return string? ref
-local function ref_from_args(args)
-  if #args <= 1 then
-    return args[1]
-  elseif args[1]:match('^%d$') or args[1]:match('^%d%a') or args[1]:match('^%a$') then
+function M.open_page(count, smods, args)
+  local ref ---@type string
+  if #args == 0 then
+    ref = vim.bo.filetype == 'man' and fn.expand('<cWORD>') or fn.expand('<cword>')
+    if ref == '' then
+      man_error('no identifier under cursor')
+    end
+  elseif #args == 1 then
+    ref = args[1]
+  else
+    -- Combine the name and sect into a manpage reference so that all
+    -- verification/extraction can be kept in a single function.
+    if args[1]:match('^%d$') or args[1]:match('^%d%a') or args[1]:match('^%a$') then
       -- NB: Valid sections are not only digits, but also:
       --  - <digit><word> (see POSIX mans),
       --  - and even <letter> and <word> (see, for example, by tcl/tk)
@@ -659,48 +704,27 @@ local function ref_from_args(args)
       local sect = args[1]
       table.remove(args, 1)
       local name = table.concat(args, ' ')
-    return ('%s(%s)'):format(name, sect)
-  end
-
-  return table.concat(args, ' ')
-end
-
---- @param count integer
---- @param args string[]
---- @return string? err
-function M.open_page(count, smods, args)
-  local ref = ref_from_args(args)
-  if not ref then
-    ref = vim.bo.filetype == 'man' and fn.expand('<cWORD>') or fn.expand('<cword>')
-    if ref == '' then
-      return 'no identifier under cursor'
+      ref = ('%s(%s)'):format(name, sect)
+    else
+      ref = table.concat(args, ' ')
     end
   end
 
-  local name, sect, err = parse_ref(ref)
-  if err then
-    return err
-  end
-  assert(name)
-
+  local sect, name = extract_sect_and_name_ref(ref)
   if count >= 0 then
     sect = tostring(count)
   end
 
   -- Try both spaces and underscores, use the first that exists.
-  local path = M._find_path(name, sect)
-  if not path then
-    --- Replace spaces in a man page name with underscores
-    --- intended for PostgreSQL, which has man pages like 'CREATE_TABLE(7)';
-    --- while editing SQL source code, it's nice to visually select 'CREATE TABLE'
-    --- and hit 'K', which requires this transformation
-    path = M._find_path(name:gsub('%s', '_'), sect)
-    if not path then
-      return 'no manual entry for ' .. name
+  local path = M.find_path(sect, name)
+  if path == nil then
+    path = M.find_path(sect, spaces_to_underscores(name))
+    if path == nil then
+      man_error('no manual entry for ' .. name)
     end
   end
 
-  name, sect = parse_path(path)
+  sect, name = extract_sect_and_name_path(path)
   local buf = api.nvim_get_current_buf()
   local save_tfu = vim.bo[buf].tagfunc
   vim.bo[buf].tagfunc = "v:lua.require'man'.goto_tag"
@@ -723,51 +747,24 @@ function M.open_page(count, smods, args)
 
   if not ok then
     error(ret)
-  end
+  else
     set_options()
+  end
 
   vim.b.man_sect = sect
 end
 
---- Called when a man:// buffer is opened.
---- @return string? err
+-- Called when a man:// buffer is opened.
 function M.read_page(ref)
-  local name, sect, err = parse_ref(ref)
-  if err then
-    return err
+  local sect, name = extract_sect_and_name_ref(ref)
+  local path = M.find_path(sect, name)
+  if path == nil then
+    man_error('no manual entry for ' .. name)
   end
-
-  local path = M._find_path(name, sect)
-  if not path then
-    return 'no manual entry for ' .. name
-  end
-
-  local _, sect1 = parse_path(path)
+  sect = extract_sect_and_name_path(path)
   local page = get_page(path)
-
-  vim.b.man_sect = sect1
-  vim.bo.modifiable = true
-  vim.bo.readonly = false
-  vim.bo.swapfile = false
-
-  api.nvim_buf_set_lines(0, 0, -1, false, vim.split(page, '\n'))
-
-  while fn.getline(1):match('^%s*$') do
-    api.nvim_buf_set_lines(0, 0, 1, false, {})
-  end
-  -- XXX: nroff justifies text by filling it with whitespace.  That interacts
-  -- badly with our use of $MANWIDTH=999.  Hack around this by using a fixed
-  -- size for those whitespace regions.
-  -- Use try/catch to avoid setting v:errmsg.
-  vim.cmd([[
-    try
-      keeppatterns keepjumps %s/\s\{199,}/\=repeat(' ', 10)/g
-    catch
-    endtry
-  ]])
-  vim.cmd('1') -- Move cursor to first line
-  highlight_man_page()
-  set_options()
+  vim.b.man_sect = sect
+  put_page(page)
 end
 
 function M.show_toc()
@@ -784,13 +781,24 @@ function M.show_toc()
 
   local lnum = 2
   local last_line = fn.line('$') - 1
+  local section_title_re = vim.regex([[^\%( \{3\}\)\=\S.*$]])
+  local flag_title_re = vim.regex([[^\s\+\%(+\|-\)\S\+]])
   while lnum and lnum < last_line do
-    local text = fn.getline(lnum)
-    if text:match('^%s+[-+]%S') or text:match('^   %S') or text:match('^%S') then
+    local text = getline(lnum)
+    if section_title_re:match_str(text) then
+      -- if text is a section title
       toc[#toc + 1] = {
         bufnr = bufnr,
         lnum = lnum,
-        text = text:gsub('^%s+', ''):gsub('%s+$', ''),
+        text = text,
+      }
+    elseif flag_title_re:match_str(text) then
+      -- if text is a flag title. we strip whitespaces and prepend two
+      -- spaces to have a consistent format in the loclist.
+      toc[#toc + 1] = {
+        bufnr = bufnr,
+        lnum = lnum,
+        text = '  ' .. fn.substitute(text, [[^\s*\(.\{-}\)\s*$]], [[\1]], ''),
       }
     end
     lnum = fn.nextnonblank(lnum + 1)
@@ -802,4 +810,19 @@ function M.show_toc()
   vim.w.qf_toc = bufname
 end
 
+local function init()
+  local path = get_path('', 'man', true)
+  local page ---@type string?
+  if path ~= nil then
+    -- Check for -l support.
+    page = get_page(path, true)
+  end
+
+  if page == '' or page == nil then
+    localfile_arg = false
+  end
+end
+
+init()
+
 return M

runtime/lua/vim/lsp.lua

@@ -211,7 +211,7 @@ local function reuse_client_default(client, config)
 
   for _, config_folder in ipairs(config_folders) do
     local found = false
-    for _, client_folder in ipairs(client.workspace_folders or {}) do
+    for _, client_folder in ipairs(client.workspace_folders) do
       if config_folder.uri == client_folder.uri then
         found = true
         break

runtime/lua/vim/lsp/client.lua

@@ -174,10 +174,6 @@ local validate = vim.validate
 --- capabilities.
 --- @field server_capabilities lsp.ServerCapabilities?
 ---
---- Response from the server sent on `initialize` describing information about
---- the server.
---- @field server_info lsp.ServerInfo?
----
 --- A ring buffer (|vim.ringbuf()|) containing progress messages
 --- sent by the server.
 --- @field progress vim.lsp.Client.Progress
@@ -560,8 +556,6 @@ function Client:initialize()
       self.offset_encoding = self.server_capabilities.positionEncoding
     end
 
-    self.server_info = result.serverInfo
-
     if next(self.settings) then
       self:notify(ms.workspace_didChangeConfiguration, { settings = self.settings })
     end

runtime/lua/vim/lsp/health.lua

@@ -40,8 +40,6 @@ local function check_active_clients()
   local clients = vim.lsp.get_clients()
   if next(clients) then
     for _, client in pairs(clients) do
-      local server_version = vim.tbl_get(client, 'server_info', 'version')
-        or '? (no serverInfo.version response)'
       local cmd ---@type string
       local ccmd = client.config.cmd
       if type(ccmd) == 'table' then
@@ -64,7 +62,6 @@ local function check_active_clients()
       end
       report_info(table.concat({
         string.format('%s (id: %d)', client.name, client.id),
-        string.format('- Version: %s', server_version),
         dirs_info,
         string.format('- Command: %s', cmd),
         string.format('- Settings: %s', vim.inspect(client.settings, { newline = '\n  ' })),

runtime/plugin/man.lua

@@ -8,9 +8,9 @@ vim.api.nvim_create_user_command('Man', function(params)
   if params.bang then
     man.init_pager()
   else
-    local err = man.open_page(params.count, params.smods, params.fargs)
-    if err then
-      vim.notify('man.lua: ' .. err, vim.log.levels.ERROR)
+    local ok, err = pcall(man.open_page, params.count, params.smods, params.fargs)
+    if not ok then
+      vim.notify(man.errormsg or err, vim.log.levels.ERROR)
     end
   end
 end, {
@@ -31,9 +31,6 @@ vim.api.nvim_create_autocmd('BufReadCmd', {
   pattern = 'man://*',
   nested = true,
   callback = function(params)
-    local err = require('man').read_page(assert(params.match:match('man://(.*)')))
-    if err then
-      vim.notify('man.lua: ' .. err, vim.log.levels.ERROR)
-    end
+    require('man').read_page(vim.fn.matchstr(params.match, 'man://\\zs.*'))
   end,
 })

src/nvim/api/vimscript.c

@@ -229,9 +229,10 @@ static Object _call_function(String fn, Array args, dict_T *self, Arena *arena,
   funcexe.fe_selfdict = self;
 
   TRY_WRAP(err, {
-    // call_func() retval is deceptive, ignore it.  Instead TRY_WRAP sets `msg_list` to capture
-    // abort-causing non-exception errors.
-    (void)call_func(fn.data, (int)fn.size, &rettv, (int)args.size, vim_args, &funcexe);
+    // call_func() retval is deceptive, ignore it.  Instead we set `msg_list`
+    // (see above) to capture abort-causing non-exception errors.
+    call_func(fn.data, (int)fn.size, &rettv, (int)args.size,
+              vim_args, &funcexe);
   });
 
   if (!ERROR_SET(err)) {
@@ -279,23 +280,18 @@ Object nvim_call_dict_function(Object dict, String fn, Array args, Arena *arena,
   typval_T rettv;
   bool mustfree = false;
   switch (dict.type) {
-  case kObjectTypeString: {
-    int eval_ret;
+  case kObjectTypeString:
     TRY_WRAP(err, {
-        eval_ret = eval0(dict.data.string.data, &rettv, NULL, &EVALARG_EVALUATE);
+      eval0(dict.data.string.data, &rettv, NULL, &EVALARG_EVALUATE);
       clear_evalarg(&EVALARG_EVALUATE, NULL);
     });
     if (ERROR_SET(err)) {
       return rv;
     }
-    if (eval_ret != OK) {
-      abort();  // Should not happen.
-    }
     // Evaluation of the string arg created a new dict or increased the
     // refcount of a dict. Not necessary for a RPC dict.
     mustfree = true;
     break;
-  }
   case kObjectTypeDict:
     object_to_vim(dict, &rettv, err);
     break;

test/functional/plugin/lsp_spec.lua

@@ -1854,20 +1854,6 @@ describe('LSP', function()
         end,
       }
     end)
-
-    it('vim.lsp.start when existing client has no workspace_folders', function()
-      exec_lua(create_server_definition)
-      eq(
-        { 2, 'foo', 'foo' },
-        exec_lua(function()
-          local server = _G._create_server()
-          vim.lsp.start { cmd = server.cmd, name = 'foo' }
-          vim.lsp.start { cmd = server.cmd, name = 'foo', root_dir = 'bar' }
-          local foos = vim.lsp.get_clients()
-          return { #foos, foos[1].name, foos[2].name }
-        end)
-      )
-    end)
   end)
 
   describe('parsing tests', function()

test/functional/plugin/man_spec.lua

@@ -21,12 +21,13 @@ local function get_search_history(name)
     local man = require('man')
     local res = {}
     --- @diagnostic disable-next-line:duplicate-set-field
-    man._find_path = function(name0, sect)
+    man.find_path = function(sect, name0)
       table.insert(res, { sect, name0 })
       return nil
     end
-    local err = man.open_page(-1, { tab = 0 }, args)
-    assert(err and err:match('no manual entry'))
+    local ok, rv = pcall(man.open_page, -1, { tab = 0 }, args)
+    assert(not ok)
+    assert(rv and rv:match('no manual entry'))
     return res
   end)
 end
@@ -224,7 +225,7 @@ describe(':Man', function()
     matches('^/.+', actual_file)
     local args = { nvim_prog, '--headless', '+:Man ' .. actual_file, '+q' }
     matches(
-      ('Error detected while processing command line:\r\n' .. 'man.lua: no manual entry for %s'):format(
+      ('Error detected while processing command line:\r\n' .. 'man.lua: "no manual entry for %s"'):format(
         pesc(actual_file)
       ),
       fn.system(args, { '' })
@@ -234,8 +235,8 @@ describe(':Man', function()
 
   it('tries variants with spaces, underscores #22503', function()
     eq({
-      { vim.NIL, 'NAME WITH SPACES' },
-      { vim.NIL, 'NAME_WITH_SPACES' },
+      { '', 'NAME WITH SPACES' },
+      { '', 'NAME_WITH_SPACES' },
     }, get_search_history('NAME WITH SPACES'))
     eq({
       { '3', 'some other man' },
@@ -254,8 +255,8 @@ describe(':Man', function()
       { 'n', 'some_other_man' },
     }, get_search_history('n some other man'))
     eq({
-      { vim.NIL, '123some other man' },
-      { vim.NIL, '123some_other_man' },
+      { '', '123some other man' },
+      { '', '123some_other_man' },
     }, get_search_history('123some other man'))
     eq({
       { '1', 'other_man' },
@@ -264,10 +265,11 @@ describe(':Man', function()
   end)
 
   it('can complete', function()
+    t.skip(t.is_os('mac') and t.is_arch('x86_64'), 'not supported on intel mac')
     eq(
       true,
       exec_lua(function()
-        return #require('man').man_complete('f', 'Man f') > 0
+        return #require('man').man_complete('f', 'Man g') > 0
       end)
     )
   end)