# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1208633746 0
# Node ID 6daf762640553ab474a46d9444eb49f8640f6b5c
# Parent  72eb648a4690eaf0180330143427bb5c58baa784
Update example of complex interactive spec.

diff -r 72eb648a4690 -r 6daf76264055 doc/lispintro/emacs-lisp-intro.texi
--- a/doc/lispintro/emacs-lisp-intro.texi	Sat Apr 19 19:35:09 2008 +0000
+++ b/doc/lispintro/emacs-lisp-intro.texi	Sat Apr 19 19:35:46 2008 +0000
@@ -17771,8 +17771,9 @@
 This is an interface to the function `load'."
   (interactive
    (list (completing-read "Load library: "
-                          'locate-file-completion
-                          (cons load-path (get-load-suffixes)))))
+			  (apply-partially 'locate-file-completion-table
+                                           load-path
+                                           (get-load-suffixes)))))
   (load library))
 @end group
 @end smallexample