From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Fri, 20 Apr 2012 19:56:59 +0000 (-0400)
Subject: * lisp/minibuffer.el (completion-file-name-table): Complete user names.
X-Git-Tag: emacs-24.2.90~471^2~330
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ed571ccb1d14abc788a29c3b3bbf08aa4b951ab8;p=emacs.git

* lisp/minibuffer.el (completion-file-name-table): Complete user names.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b9e85ef29c..132aee66a9f 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-04-20  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+	* minibuffer.el (completion-file-name-table): Complete user names.
+
 2012-04-20  Leo Liu  <sdl.web@gmail.com>
 
 	* font-lock.el (lisp-font-lock-keywords-2): Add pcase, pcase-let
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index c7e14ca481b..5a990f6ab35 100644
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -1817,6 +1817,12 @@ same as `substitute-in-file-name'."
   (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))))