Commit 283780dc authored by Masatake YAMATO's avatar Masatake YAMATO
Browse files

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.
parent 50071f01
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> 2005-10-18 Masatake YAMATO <jet@gyve.org>
Fix a bug reported by Sven Joachim <sven_joachim@web.de>. Fix a bug reported by Sven Joachim <sven_joachim@web.de>.
...@@ -219,12 +229,9 @@ ...@@ -219,12 +229,9 @@
* progmodes/pascal.el (pascal-complete-word) * progmodes/pascal.el (pascal-complete-word)
(pascal-show-completions): Ditto. (pascal-show-completions): Ditto.
* progmodes/python.el (python-complete-symbol): Ditto.
* textmodes/bibtex.el (bibtex-complete-internal): Ditto. * textmodes/bibtex.el (bibtex-complete-internal): Ditto.
* textmodes/org.el (org-complete): Ditto.
* simple.el (completion-common-substring): New variable. * simple.el (completion-common-substring): New variable.
(completion-setup-function): Use `completion-common-substring' (completion-setup-function): Use `completion-common-substring'
to put faces. to put faces.
......
...@@ -1652,7 +1652,7 @@ Repeating the command scrolls the completion window." ...@@ -1652,7 +1652,7 @@ Repeating the command scrolls the completion window."
(t (t
(message "Making completion list...") (message "Making completion list...")
(with-output-to-temp-buffer "*Completions*" (with-output-to-temp-buffer "*Completions*"
(display-completion-list completions)) (display-completion-list completions symbol))
(message "Making completion list...%s" "done")))))))) (message "Making completion list...%s" "done"))))))))
(eval-when-compile (require 'hippie-exp)) (eval-when-compile (require 'hippie-exp))
......
...@@ -2844,7 +2844,7 @@ At all other locations, this simply calls `ispell-complete-word'." ...@@ -2844,7 +2844,7 @@ At all other locations, this simply calls `ispell-complete-word'."
(message "Making completion list...") (message "Making completion list...")
(let ((list (sort (all-completions pattern table) 'string<))) (let ((list (sort (all-completions pattern table) 'string<)))
(with-output-to-temp-buffer "*Completions*" (with-output-to-temp-buffer "*Completions*"
(display-completion-list list))) (display-completion-list list pattern)))
(message "Making completion list...%s" "done")))))) (message "Making completion list...%s" "done"))))))
;;; Comments, TODO and DEADLINE ;;; Comments, TODO and DEADLINE
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment