Clean byte compile on Emacs 25

Author: Greg Hendershott

racket-common.el

@@ -24,6 +24,8 @@
 (require 'racket-keywords-and-builtins)
 (require 'racket-font-lock)
 (require 'racket-indent)
+(declare-function racket-complete-at-point "racket-complete.el" (&optional predicate))
+(declare-function racket-eldoc-function    "racket-complete.el" ())
 
 (defvar racket-mode-syntax-table
   (let ((st (make-syntax-table))
@@ -416,6 +418,10 @@ will work as usual.)"
 
 (eval-after-load 'paredit
   '(progn
+     (defvar paredit-mode-map nil) ;byte compiler
+     (declare-function paredit-open-round  'paredit)
+     (declare-function paredit-open-square 'paredit)
+     (declare-function paredit-open-curly  'paredit)
      (defvar racket--paredit-original-open-bracket-binding
        (lookup-key paredit-mode-map (kbd "["))
        "The previous `paredit-mode-map' binding for [. We don't

racket-complete.el

@@ -19,6 +19,8 @@
 (require 'cl-lib)
 (require 'racket-custom)
 (require 'racket-repl)
+(declare-function racket--get-def-file+line "racket-edit.el" (sym))
+(declare-function racket--do-describe                        (sym pop-to))
 
 (make-variable-buffer-local
  (defvar racket--namespace-symbols nil
@@ -69,6 +71,9 @@ See `racket--invalidate-completion-cache' and
 
 (eval-after-load "company"
   '(progn
+     (defvar company-echo-delay nil) ;byte compiler
+     (defvar company-backends nil) ;byte compiler
+     (declare-function company-begin-backend (sym))
      (defun racket-company-backend (command &optional arg &rest ignore)
        (interactive (list 'interactive))
        (cl-case command

racket-indent.el

@@ -247,7 +247,8 @@ To handle nested items, search `backward-up-list' up to
                         ;; form -- provided it's the first form on
                         ;; the line.
                         (when (and (zerop count)
-                                   (looking-back (rx bol (* (syntax whitespace)))))
+                                   (looking-back (rx bol (* (syntax whitespace)))
+                                                 containing-form-start))
                           (setq non-distinguished-column (current-column)))
                         t)
                     (error nil))))

racket-tests.el

@@ -37,7 +37,7 @@
 (defun racket-tests/see-rx (rx)
   (accept-process-output nil 1)
   (sit-for 0.1)
-  (looking-back rx))
+  (looking-back rx (point-min)))
 
 (defun racket-tests/see (str)
   (racket-tests/see-rx (regexp-quote str)))