From de10ff8cb41884c065b1a156d955d1e8d609b3e3 Mon Sep 17 00:00:00 2001 From: "Jose A. Ortega Ruiz" Date: Tue, 16 Dec 2008 02:29:24 +0100 Subject: [PATCH] FUEL: Highlight matched subword in completion buffer; autodoc in listener. --- misc/fuel/README | 1 + misc/fuel/fuel-completion.el | 2 +- misc/fuel/fuel-listener.el | 1 + 3 files changed, 3 insertions(+), 1 deletion(-) diff --git a/misc/fuel/README b/misc/fuel/README index 2bf58cbdc7..9686124813 100644 --- 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 66657cbfcf..6b89dbb008 100644 --- 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 d2f8cff9db..f2dc760f94 100644 --- 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)