summaryrefslogtreecommitdiff
path: root/elisp/geiser-completion.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 02:59:09 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-08-23 02:59:09 +0200
commit11e52e18251f6c2c5a9c7c37bbd4a1787e84b282 (patch)
treeed13358da3c97dd90849327ee4b531c5a176390e /elisp/geiser-completion.el
parentc5b6f124e8197c4e20278fb3f24086ee56f0e529 (diff)
downloadgeiser-guile-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.gz
geiser-guile-11e52e18251f6c2c5a9c7c37bbd4a1787e84b282.tar.bz2
Fixes for all byte-compilation warnings.
Diffstat (limited to 'elisp/geiser-completion.el')
-rw-r--r--elisp/geiser-completion.el6
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))))