From: Masatake YAMATO <jet@gyve.org>
Date: Tue, 18 Oct 2005 04:31:16 +0000 (+0000)
Subject: Install to the CVS repository what I forgot to install in my
X-Git-Tag: emacs-pretest-22.0.90~6524
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=283780dc8842d1deb8f7e223f6b88771e256bcb2;p=emacs.git

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 --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8486bac69c6..fe4c77a80a2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/progmodes/python.el b/lisp/progmodes/python.el
index f7788404350..6ed2e39e4e8 100644
--- a/lisp/progmodes/python.el
+++ b/lisp/progmodes/python.el
@@ -1652,7 +1652,7 @@ Repeating the command scrolls the completion window."
 		(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 --git a/lisp/textmodes/org.el b/lisp/textmodes/org.el
index b9542c9fce7..7f0d257e5f6 100644
--- a/lisp/textmodes/org.el
+++ b/lisp/textmodes/org.el
@@ -2844,7 +2844,7 @@ At all other locations, this simply calls `ispell-complete-word'."
 	     (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