[Emacs-diffs] Changes to emacs/lisp/man.el,v

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     07/12/23 17:35:52

Index: man.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/man.el,v
retrieving revision 1.176
retrieving revision 1.177
diff -u -b -r1.176 -r1.177
--- man.el      19 Dec 2007 09:24:01 -0000      1.176
+++ man.el      23 Dec 2007 17:35:52 -0000      1.177
@@ -1380,7 +1380,8 @@
   (interactive
    (if (not Man-refpages-alist)
        (error "There are no references in the current man page")
-     (list (let* ((default (or
+     (list
+      (let* ((default (or
                            (car (all-completions
                                  (let ((word
                                         (or (Man-possibly-hyphenated-word)
@@ -1392,9 +1393,15 @@
                                      word))
                                  Man-refpages-alist))
                            (aheadsym Man-refpages-alist)))
+            (defaults
+              (mapcar 'substring-no-properties
+                      (delete-dups
+                       (delq nil (cons default
+                                       (mapcar 'car Man-refpages-alist))))))
                   chosen
                   (prompt (concat "Refer to (default " default "): ")))
-             (setq chosen (completing-read prompt Man-refpages-alist))
+       (setq chosen (completing-read prompt Man-refpages-alist
+                                     nil nil nil nil defaults))
              (if (or (not chosen)
                      (string= chosen ""))
                  default