* Now it byte compile

greghendershott · Oct 1, 2014 · eb32cc8 · eb32cc8
1 parent 945cad3
commit eb32cc8
Showing 1 changed file with 12 additions and 10 deletions.
diff --git a/racket-mode.el b/racket-mode.el
@@ -138,13 +138,14 @@ http://www.gnu.org/licenses/ for details.")
   (set (make-local-variable 'imenu-syntax-alist)
        '(("+-*/.<>=?!$%_&~^:" . "w"))))
 
-(when (fboundp 'helm)
-  (require 'helm)
 
-  (defun racket-helm-apropos-init ()
-    (with-current-buffer (helm-candidate-buffer 'global)
-      (dolist (elem (racket--eval/sexpr ",apropos"))
-	(insert (car elem) "\n"))))
+(when (require 'helm nil 't)
+
+  (when (fboundp 'helm-candidate-buffer)
+    (defun racket-helm-apropos-init ()
+      (with-current-buffer (helm-candidate-buffer 'global)
+	(dolist (elem (racket--eval/sexpr ",apropos"))
+	  (insert (car elem) "\n")))))
 
   (defun racket-helm-apropos-match-part (candidate)
     candidate)
@@ -160,10 +161,11 @@ http://www.gnu.org/licenses/ for details.")
       (match-part . racket-helm-apropos-match-part)
       (action . racket-helm-apropos-action)))
 
-  (defun racket-helm-apropos ()
-    "Equivalent of helm-apropos but for the racket installed documentation"
-    (interactive)
-    (helm :sources 'helm-source-racket-apropos :buffer "*helm racket apropos*")))
+  (when (fboundp 'helm)
+    (defun racket-helm-apropos ()
+      "Equivalent of helm-apropos but for the racket installed documentation"
+      (interactive)
+      (helm :sources 'helm-source-racket-apropos :buffer "*helm racket apropos*"))))
 
 ;;;###autoload
 (define-derived-mode racket-mode prog-mode