[Emacs-diffs] emacs/lisp ChangeLog man.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/11/25 21:17:07

Modified files:
        lisp           : ChangeLog man.el 

Log message:
        (Man-completion-table): Modify regexp to include section names
        to completion strings.  (Bug#3717)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16736&r2=1.16737
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/man.el?cvsroot=emacs&r1=1.188&r2=1.189

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16736
retrieving revision 1.16737
diff -u -b -r1.16736 -r1.16737
--- ChangeLog   25 Nov 2009 17:23:46 -0000      1.16736
+++ ChangeLog   25 Nov 2009 21:16:58 -0000      1.16737
@@ -1,5 +1,10 @@
 2009-11-25  Juri Linkov  <address@hidden>
 
+       * man.el (Man-completion-table): Modify regexp to include
+       section names to completion strings.  (Bug#3717)
+
+2009-11-25  Juri Linkov  <address@hidden>
+
        Search recursively in gzipped files.  (Bug#4982)
 
        * progmodes/grep.el (grep-highlight-matches): Add new options

Index: man.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/man.el,v
retrieving revision 1.188
retrieving revision 1.189
diff -u -b -r1.188 -r1.189
--- man.el      25 Nov 2009 03:51:03 -0000      1.188
+++ man.el      25 Nov 2009 21:17:07 -0000      1.189
@@ -770,7 +770,7 @@
           (call-process manual-program nil '(t nil) nil
                         "-k" (concat "^" string))
         (goto-char (point-min))
-        (while (re-search-forward "^[^ \t\n]+" nil t)
+        (while (re-search-forward "^[^ \t\n]+\\(?: (.+?)\\)?" nil t)
           (push (match-string 0) table)))
         ;; Cache the table for later reuse.
         (setq Man-completion-cache (cons string table)))