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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 5b9e85ef29ccb9ad9e97bf07ccf31dda398f814e..132aee66a9f246eeda717748c82487ea04aad836 100644 (file)
--- 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 c7e14ca481b6efe641c22fdccd4856a36fd53651..5a990f6ab35ff91071fd23fa357f2c69d885dc59 100644 (file)
--- 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))))