# HG changeset patch
# User Masatake YAMATO <jet@gyve.org>
# Date 1129609876 0
# Node ID 6c46e0e1ba7bb52a19faa926526e5bd445a46261
# Parent  bd98d8a373032e682fb8f2d2f7beece2b0ca400b
Install to the CVS repository what I forgot to install in my
2005-10-16 changes.

* progmodes/python.el (python-complete-symbol): Pass the common
prefix substring of completion to `display-completion-list'.

* textmodes/org.el (org-complete): Ditto.

diff -r bd98d8a37303 -r 6c46e0e1ba7b lisp/ChangeLog
--- a/lisp/ChangeLog	Tue Oct 18 04:21:51 2005 +0000
+++ b/lisp/ChangeLog	Tue Oct 18 04:31:16 2005 +0000
@@ -1,3 +1,13 @@
+2005-10-18  Masatake YAMATO  <jet@gyve.org>
+
+	Install to the CVS repository what I forgot to install in my 
+	2005-10-16 changes.
+
+	* progmodes/python.el (python-complete-symbol): Pass the common
+	prefix substring of completion to `display-completion-list'.
+
+	* textmodes/org.el (org-complete): Ditto.
+
 2005-10-18  Masatake YAMATO  <jet@gyve.org>
 
 	Fix a bug reported by Sven Joachim <sven_joachim@web.de>.
@@ -219,12 +229,9 @@
 	* progmodes/pascal.el (pascal-complete-word)
 	(pascal-show-completions): Ditto.
 
-	* progmodes/python.el (python-complete-symbol): Ditto.
 
 	* textmodes/bibtex.el (bibtex-complete-internal): Ditto.
 
-	* textmodes/org.el (org-complete): Ditto.
-
 	* simple.el (completion-common-substring): New variable.
 	(completion-setup-function): Use `completion-common-substring'
 	to put faces.
diff -r bd98d8a37303 -r 6c46e0e1ba7b lisp/progmodes/python.el
--- a/lisp/progmodes/python.el	Tue Oct 18 04:21:51 2005 +0000
+++ b/lisp/progmodes/python.el	Tue Oct 18 04:31:16 2005 +0000
@@ -1652,7 +1652,7 @@
 		(t
 		 (message "Making completion list...")
 		 (with-output-to-temp-buffer "*Completions*"
-		   (display-completion-list completions))
+		   (display-completion-list completions symbol))
 		 (message "Making completion list...%s" "done"))))))))
 
 (eval-when-compile (require 'hippie-exp))
diff -r bd98d8a37303 -r 6c46e0e1ba7b lisp/textmodes/org.el
--- a/lisp/textmodes/org.el	Tue Oct 18 04:21:51 2005 +0000
+++ b/lisp/textmodes/org.el	Tue Oct 18 04:31:16 2005 +0000
@@ -2844,7 +2844,7 @@
 	     (message "Making completion list...")
 	     (let ((list (sort (all-completions pattern table) 'string<)))
 	       (with-output-to-temp-buffer "*Completions*"
-		 (display-completion-list list)))
+		 (display-completion-list list pattern)))
 	     (message "Making completion list...%s" "done"))))))
 
 ;;; Comments, TODO and DEADLINE