Mercurial > emacs
changeset 94055:ec343c7600a2
(completion--embedded-envvar-table, read-file-name-internal):
Fix typos in 2008-04-11 change.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Sun, 13 Apr 2008 01:47:42 +0000 |
| parents | 41482de59a50 |
| children | 9edacc6bf5e9 |
| files | lisp/minibuffer.el |
| diffstat | 1 files changed, 6 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/minibuffer.el Sun Apr 13 01:46:58 2008 +0000 +++ b/lisp/minibuffer.el Sun Apr 13 01:47:42 2008 +0000 @@ -559,7 +559,7 @@ "$\\([[:alnum:]_]*\\|{\\([^}]*\\)\\)\\'") string) (let* ((beg (or (match-beginning 2) (match-beginning 1))) - (table (completion-make-envvar-table)) + (table (completion--make-envvar-table)) (prefix (substring string 0 beg))) (if (eq (aref string (1- beg)) ?{) (setq table (apply-partially 'completion-table-with-terminator @@ -567,7 +567,7 @@ (completion-table-with-context prefix table (substring string beg) pred action)))) - + (defun completion--file-name-table (string dir action) "Internal subroutine for read-file-name. Do not call this." (setq dir (expand-file-name dir)) @@ -580,7 +580,7 @@ (specdir (file-name-directory str)) (realdir (if specdir (expand-file-name specdir dir) (file-name-as-directory dir)))) - + (cond ((null action) (let ((comp (file-name-completion name realdir @@ -595,7 +595,7 @@ ;; If there's no real completion, but substitute-in-file-name ;; changed the string, then return the new string. str)))) - + ((eq action t) (let ((all (file-name-all-completions name realdir))) (if (memq read-file-name-predicate '(nil file-exists-p)) @@ -621,8 +621,8 @@ (funcall (or read-file-name-predicate 'file-exists-p) str))))))) (defalias 'read-file-name-internal - (completion-table-in-turn 'completion-embedded-envvar-table - 'completion-file-name-table) + (completion-table-in-turn 'completion--embedded-envvar-table + 'completion--file-name-table) "Internal subroutine for `read-file-name'. Do not call this.") (provide 'minibuffer)