From 2ddf2d2b920a00e4dfcdb37f54c96f3c918e0e14 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 6 Oct 2010 00:53:07 +0200 Subject: Use cl only at compile time --- elisp/geiser-completion.el | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) (limited to 'elisp/geiser-completion.el') diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el index dea4a57..314e749 100644 --- a/elisp/geiser-completion.el +++ b/elisp/geiser-completion.el @@ -17,8 +17,6 @@ (require 'geiser-syntax) (require 'geiser-base) -(require 'cl) - ;;; Completions window handling, heavily inspired in slime's: @@ -72,7 +70,7 @@ terminates a current completion." (remove-hook 'pre-command-hook 'geiser-completion--maybe-restore-window-cfg) (condition-case err - (cond ((find last-command-event "()\"'`,# \r\n:") + (cond ((memq last-command-event '(?( ?) ?\" ?' ?` ?, ?# ? ?\r ?\n ?:)) (geiser-completion--restore-window-cfg)) ((not (geiser-completion--window-active-p)) (geiser-completion--forget-window-cfg)) @@ -153,10 +151,9 @@ terminates a current completion." geiser-completion--binding-forms*))) (defun geiser-completion--symbol-list (prefix) - (delete-duplicates + (geiser--del-dups (append (all-completions prefix (geiser-completion--locals)) - (geiser-eval--send/result `(:eval ((:ge completions) ,prefix)))) - :test 'string=)) + (geiser-eval--send/result `(:eval ((:ge completions) ,prefix)))))) (defsubst geiser-completion--module-list (prefix) (geiser-eval--send/result `(:eval ((:ge module-completions) ,prefix)))) -- cgit v1.2.3