bug#73656: 30.0.91; icomplete-vertical has no matches for M-x man RET chdir

[Van Ly via "Bug reports for GNU Emacs, the Swiss army knife of text editors" <bug-gnu-emacs@gnu.org>]

[-- Attachment #1: Type: text/plain, Size: 1690 bytes --]


Eli Zaretskii <eliz@gnu.org> writes:

>
> If you edit this part of Man-completion-table:
>
>           (let ((process-environment (copy-sequence process-environment)))
>             (setenv "COLUMNS" "999") ;; don't truncate long names
>             ;; manual-program might not even exist.  And since it's
>             ;; run differently in Man-getpage-in-background, an error
>             ;; here may not necessarily mean that we'll also get an
>             ;; error later.
>             (when (eq 0
>                       (ignore-errors
>                         (process-file
>                          manual-program nil '(t nil) nil
>    >>>>>>>>>>>>>>>>      "-k" (concat (when (or Man-man-k-use-anchor
>                                                 (string-equal prefix ""))
>                                         "^")
>                                       (if (string-equal prefix "")
>                                           prefix
>                                         ;; FIXME: shell-quote-argument
>                                         ;; is not entirely
>                                         ;; appropriate: we actually
>                                         ;; need to quote ERE here.
>                                         ;; But we don't have that, and
>                                         ;; shell-quote-argument does
>                                         ;; the job...
>                                         (shell-quote-argument prefix))))))
>               (setq table (Man-parse-man-k)))))
>
> to use "-k" "-l" instead of "-k" in the line I emphasized, does that
> solve the problem?
>

Yes.  See diff patch on man.el .




[-- Attachment #2: diff patch on man.el --]
[-- Type: application/octet-stream, Size: 1239 bytes --]

diff -u /u/van/src/emacs/30.0.91/lisp/man_orig_el /u/van/src/emacs/30.0.91/lisp/man.el
--- /u/van/src/emacs/30.0.91/lisp/man_orig_el	2024-09-12 07:10:33.000000000 +1000
+++ /u/van/src/emacs/30.0.91/lisp/man.el	2024-10-15 16:10:59.851430686 +1100
@@ -977,7 +977,7 @@
   (cond
    ;; This ends up returning t for pretty much any string, and hence leads to
    ;; spurious "complete but not unique" messages.  And since `man' doesn't
-   ;; require-match anyway, there's not point being clever.
+   ;; require-match anyway, there's no point being clever.
    ;;((eq action 'lambda) (not (string-match "([^)]*\\'" string)))
    ((equal string "-k")
     ;; Let SPC (minibuffer-complete-word) insert the space.
@@ -1009,7 +1009,7 @@
                       (ignore-errors
                         (process-file
                          manual-program nil '(t nil) nil
-                         "-k" (concat (when (or Man-man-k-use-anchor
+                         "-k" "-l" (concat (when (or Man-man-k-use-anchor
                                                 (string-equal prefix ""))
                                         "^")
                                       (if (string-equal prefix "")

Diff finished.  Tue Oct 15 16:14:16 2024

[-- Attachment #3: Type: text/plain, Size: 10 bytes --]




-- 
vl