# HG changeset patch
# User Juanma Barranquero <lekktu@gmail.com>
# Date 1208051262 0
# Node ID ec343c7600a278a05d1c5f7a8544586d4dc222d1
# Parent  41482de59a50801fa03132edbdb47b338f6c5b0d
(completion--embedded-envvar-table, read-file-name-internal):
Fix typos in 2008-04-11 change.

diff -r 41482de59a50 -r ec343c7600a2 lisp/minibuffer.el
--- 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)