Re: emacs icomplete-vertical for manpages chdir(2) fails

[Van Ly <van.ly%sdf.org@localhost>]

Valery Ushakov <uwe%stderr.spb.ru@localhost> writes:

> On Tue, Oct 08, 2024 at 12:58:18 +1100, Van Ly wrote:
>
>> The way NetBSD does
>> 
>>   "man -k output" 
>> 
>> is different enough to cause hiccups on Emacs autocompletes.  This is
>> being looked at by the emacs-devs.
>
> Arrange for APROPOS="-l" in the environment.  Cf. apropos(1)
>

Thanks uwe and Martin,

 $ env APROPOS="-l" emacs -Q

and the icomplete-vertical autocomplete behaves as expected.



The Edebug was landing on line 16 below after each character was entered
for chdir.

 1 (defun Man-parse-man-k ()
 2   "Parse \"man -k\" output and return the list of page names.
 3 
 4 The current buffer should contain the output of a command of the
 5 form \"man -k keyword\", which is traditionally also available with
 6 apropos(1).
 7 
 8 While POSIX man(1p) is a bit vague about what to expect here,
 9 this function tries to parse some commonly used formats, which
10 can be described in the following informal way, with square brackets
11 indicating optional parts and whitespace being interpreted
12 somewhat loosely.
13 
14 foo[, bar [, ...]] [other stuff] (sec) - description
15 foo(sec)[, bar(sec) [, ...]] [other stuff] - description"
16   (goto-char (point-min))
17   ;; See man-tests for data about which systems use which format (hopefully we
18   ;; will be able to simplify the code if/when some of those formats aren't
19   ;; used any more).
20   (let (table)
21     (while (search-forward-regexp "^\\([^ \t,\n]+\\)\\(.*?\\)\
22 \\(?:[ \t]\\(([^ \t,\n]+?)\\)\\)?\\(?:[ \t]+- ?\\(.*\\)\\)?$" nil t)
23       (let ((section (match-string 3))
24 	    (description (match-string 4))
25 	    (bound (match-end 2)))
26         (goto-char (match-end 1))
27 	(while
28             (progn
29               ;; The first regexp grouping may already match the section
30               ;; tacked on to the name, which is ok since for the formats we
31               ;; claim to support the third (non-shy) grouping does not
32               ;; match in this case, i.e., section is nil.
33               (push (propertize (concat (match-string 1) section)
34                                 'help-echo description)
35                     table)
36               (search-forward-regexp "\\=, *\\([^ \t,]+\\)" bound t)))))
37     (nreverse table)))


-- 
vl