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.

3 files changed, 12 insertions, 5 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 8486bac69c6..fe4c77a80a2 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,15 @@
 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>.
         
         * woman.el (WoMan-xref-man-page): New button type derived
@@ -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