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 8486bac69c6a9eaf4c89d8c2eb0a92779cb4dc09..fe4c77a80a266997c0d31e9af3bf47c43bb6b4de 100644 (file)
--- 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 f778840435091237cee90c448eba90fa406a0059..6ed2e39e4e86ed88c820e2766a6bb1776fb35a70 100644 (file)
--- 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 b9542c9fce705f521ca0df9384fb9747e438c119..7f0d257e5f6f0174695da44d831e2f4015fe01b5 100644 (file)
--- 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