diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-20 15:56:59 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-04-20 15:56:59 -0400 |
| commit | ed571ccb1d14abc788a29c3b3bbf08aa4b951ab8 (patch) | |
| tree | af1b22cc8aad2570c917cd44c4dde62a8a8eb514 /lisp | |
| parent | 61bb069e8c230357017be65d59ccea36c3cd91b1 (diff) | |
| download | emacs-ed571ccb1d14abc788a29c3b3bbf08aa4b951ab8.tar.gz emacs-ed571ccb1d14abc788a29c3b3bbf08aa4b951ab8.tar.bz2 emacs-ed571ccb1d14abc788a29c3b3bbf08aa4b951ab8.zip | |
* lisp/minibuffer.el (completion-file-name-table): Complete user names.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 4 | ||||
| -rw-r--r-- | lisp/minibuffer.el | 6 |
2 files changed, 10 insertions, 0 deletions
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)))) |