emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Stefan Monnier
Subject: [Emacs-diffs] emacs/lisp ChangeLog man.el
Date: Sat, 28 Nov 2009 20:28:55 +0000

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/11/28 20:28:54

Modified files:
        lisp           : ChangeLog man.el 

Log message:
        (Man-completion-table): Make it easier to enter "<sec> <name>".

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16759&r2=1.16760
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/man.el?cvsroot=emacs&r1=1.192&r2=1.193

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16759
retrieving revision 1.16760
diff -u -b -r1.16759 -r1.16760
--- ChangeLog   28 Nov 2009 17:06:30 -0000      1.16759
+++ ChangeLog   28 Nov 2009 20:28:51 -0000      1.16760
@@ -1,5 +1,7 @@
 2009-11-28  Stefan Monnier  <address@hidden>
 
+       * man.el (Man-completion-table): Make it easier to enter "<sec> <name>".
+
        * eshell/em-prompt.el (eshell-prompt-function): Abbreviate pwd, since
        `cd' doesn't always do it for us (bug#5067).
 

Index: man.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/man.el,v
retrieving revision 1.192
retrieving revision 1.193
diff -u -b -r1.192 -r1.193
--- man.el      27 Nov 2009 04:08:07 -0000      1.192
+++ man.el      28 Nov 2009 20:28:54 -0000      1.193
@@ -789,6 +789,11 @@
                   (push (substring comp 0 (match-beginning 0)) table)))
             (completion-table-with-context (concat section " ") table
                                            prefix pred action))
+        ;; If the current text looks like a possible section name,
+        ;; then add a completion entry that just adds a space so SPC
+        ;; can be used to insert a space.
+        (if (string-match "\\`[[:digit:]]" string)
+            (push (concat string " ") table))
         (let ((res (complete-with-action action table string pred)))
           ;; In case we're completing to a single name that exists in
           ;; several sections, the longest prefix will look like "foo(".




reply via email to

[Prev in Thread] Current Thread [Next in Thread]