FUEL: Highlight matched subword in completion buffer; autodoc in listener.

diff --git a/misc/fuel/README b/misc/fuel/README
index 2bf58cbdc7901b13b4da88a70a3dedf324aa1d24..9686124813c6ca4536868da8b066cfae6954293e 100644 (file)
--- a/misc/fuel/README
+++ b/misc/fuel/README
@@ -72,6 +72,7 @@ the same as C-cz)).
 
  - TAB : complete word at point
  - M-. : edit word at point in Emacs
+ - C-ca : toggle autodoc mode
  - C-cv : edit vocabulary
  - C-ch : help for word at point
  - C-ck : run file

diff --git a/misc/fuel/fuel-completion.el b/misc/fuel/fuel-completion.el
index 66657cbfcfb33cad963b44a16c0983bba2540f1e..6b89dbb008f0dd586ea147d9f167f3b8375e4770 100644 (file)
--- a/misc/fuel/fuel-completion.el
+++ b/misc/fuel/fuel-completion.el
@@ -110,7 +110,7 @@ terminates a current completion."
 (defun fuel-completion--display-comp-list (completions base)
   (let ((savedp (fuel-completion--maybe-save-window-configuration)))
     (with-output-to-temp-buffer fuel-completion--comp-buffer
-      (display-completion-list completions)
+      (display-completion-list completions base)
       (let ((offset (- (point) 1 (length base))))
         (with-current-buffer standard-output
           (setq completion-base-size offset)

diff --git a/misc/fuel/fuel-listener.el b/misc/fuel/fuel-listener.el
index d2f8cff9db054e6152bd7b8b961f93ccf8df919b..f2dc760f94e58827bd56529b3a83373f5ece451d 100644 (file)
--- a/misc/fuel/fuel-listener.el
+++ b/misc/fuel/fuel-listener.el
@@ -143,6 +143,7 @@ buffer."
 
 (define-key fuel-listener-mode-map "\C-cz" 'run-factor)
 (define-key fuel-listener-mode-map "\C-c\C-z" 'run-factor)
+(define-key fuel-listener-mode-map "\C-ca" 'fuel-autodoc-mode)
 (define-key fuel-listener-mode-map "\C-ch" 'fuel-help)
 (define-key fuel-listener-mode-map "\M-." 'fuel-edit-word-at-point)
 (define-key fuel-listener-mode-map "\C-cv" 'fuel-edit-vocabulary)