Emacs 24 compatibility: completion-table-dynamic

Looks like the arity of that function changed at some point between 24
and 25.  It also looks like people still use emacs 24 (see issue #236),
so here we go.

1 files changed, 7 insertions, 3 deletions

diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index b6dc2ad..bac9035 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -1,6 +1,6 @@
 ;;; geiser-completion.el -- tab completion
 
-;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012, 2018 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -62,10 +62,14 @@
   (geiser-eval--send/result `(:eval (:ge module-completions ,prefix))))
 
 (defvar geiser-completion--symbol-list-func
-  (completion-table-dynamic 'geiser-completion--symbol-list t))
+  (if (< emacs-major-version 25)
+      (completion-table-dynamic 'geiser-completion--symbol-list)
+    (completion-table-dynamic 'geiser-completion--symbol-list t)))
 
 (defvar geiser-completion--module-list-func
-  (completion-table-dynamic 'geiser-completion--module-list t))
+  (if (< emacs-major-version 25)
+      (completion-table-dynamic 'geiser-completion--module-list)
+    (completion-table-dynamic 'geiser-completion--module-list t)))
 
 (defun geiser-completion--complete (prefix modules)
   (if modules (geiser-completion--module-list prefix)