[Emacs-diffs] /srv/bzr/emacs/emacs-24 r107977: * lisp/minibuffer.el (completion-file-name-table): Complete user names.

[Stefan Monnier]

------------------------------------------------------------
revno: 107977
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Fri 2012-04-20 15:56:59 -0400
message:
  * lisp/minibuffer.el (completion-file-name-table): Complete user names.
modified:
  lisp/ChangeLog
  lisp/minibuffer.el

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2012-04-20 11:36:21 +0000
+++ b/lisp/ChangeLog    2012-04-20 19:56:59 +0000
@@ -1,3 +1,7 @@
+2012-04-20  Stefan Monnier  <address@hidden>
+
+       * minibuffer.el (completion-file-name-table): Complete user names.
+
 2012-04-20  Leo Liu  <address@hidden>
 
        * font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2012-04-14 01:46:06 +0000
+++ b/lisp/minibuffer.el        2012-04-20 19:56:59 +0000
@@ -1817,6 +1817,12 @@
   (condition-case nil
       (cond
        ((eq action 'metadata) '(metadata (category . file)))
+       ((string-match-p "\\`~[^/\\]*\\'" string)
+        (completion-table-with-context "~"
+                                       (mapcar (lambda (u) (concat u "/"))
+                                               (system-users))
+                                       (substring string 1)
+                                       pred action))
        ((eq (car-safe action) 'boundaries)
         (let ((start (length (file-name-directory string)))
               (end (string-match-p "/" (cdr action))))