diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-23 02:59:09 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-08-23 02:59:09 +0200 |
| commit | 8ec4b1b63c9e4976988988b0f534bcec77583c79 (patch) | |
| tree | e4926e44c3c6a3aff8c7532abae5e6c16433c3f8 /elisp/geiser-completion.el | |
| parent | c59998e52dec584d17542059c93692cfbd731bbe (diff) | |
| download | geiser-8ec4b1b63c9e4976988988b0f534bcec77583c79.tar.gz geiser-8ec4b1b63c9e4976988988b0f534bcec77583c79.tar.bz2 | |
Fixes for all byte-compilation warnings.
Diffstat (limited to 'elisp/geiser-completion.el')
| -rw-r--r-- | elisp/geiser-completion.el | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el index 28aef12..cd03cae 100644 --- a/elisp/geiser-completion.el +++ b/elisp/geiser-completion.el @@ -29,7 +29,7 @@ (require 'geiser-syntax) (require 'geiser-base) -(eval-when-compile (require 'cl)) +(require 'cl) ;;; Completions window handling, heavily inspired in slime's: @@ -84,7 +84,7 @@ terminates a current completion." (remove-hook 'pre-command-hook 'geiser-completion--maybe-restore-window-cfg) (condition-case err - (cond ((find last-command-char "()\"'`,# \r\n:") + (cond ((find last-command-event "()\"'`,# \r\n:") (geiser-completion--restore-window-cfg)) ((not (geiser-completion--window-active-p)) (geiser-completion--forget-window-cfg)) @@ -146,7 +146,7 @@ terminates a current completion." ;;; Completion functionality: -(defsubst geiser-completion--symbol-list (prefix) +(defun geiser-completion--symbol-list (prefix) (delete-duplicates (append (mapcar (lambda (s) (format "%s" s)) (geiser-syntax--locals-around-point)) (geiser-eval--send/result `(:eval ((:ge completions) ,prefix)))) |