# HG changeset patch
# User Chong Yidong <cyd@stupidchicken.com>
# Date 1218758772 0
# Node ID bcaacb72ee0ea4b5a9f4aa4a603030527b8f5c0c
# Parent  354026fc6299ad22f1363baf1cc36f3aa116ea79
Revert last change.

diff -r 354026fc6299 -r bcaacb72ee0e lisp/emacs-lisp/lisp.el
--- a/lisp/emacs-lisp/lisp.el	Thu Aug 14 23:44:41 2008 +0000
+++ b/lisp/emacs-lisp/lisp.el	Fri Aug 15 00:06:12 2008 +0000
@@ -697,9 +697,7 @@
 		       (setq list (nreverse new))))
 		   (if (> (length list) 1)
 		       (with-output-to-temp-buffer "*Completions*"
-			 (display-completion-list
-			  list pattern
-			  (- beg (field-beginning))))
+			 (display-completion-list list pattern))
 		     ;; Don't leave around a completions buffer that's
 		     ;; out of date.
 		     (let ((win (get-buffer-window "*Completions*" 0)))