ashinn / scheme-complete Goto Github PK

--- a/run-tests.sh
+++ b/run-tests.sh
@@ -1,6 +1,6 @@
 #!/bin/sh
 
-if [ -z ${EMACS} ]; then
+if [ -z ${EMACS} -o ! -x ${EMACS} ]; then
    if [ -x "/Applications/Emacs.app/Contents/MacOS/Emacs" ]; then``
        EMACS="/Applications/Emacs.app/Contents/MacOS/Emacs"
    else

--- scheme-complete-master/scheme-complete.el.orig  2015-12-25 21:59:09.896909029 +0100
+++ scheme-complete-master/scheme-complete.el   2015-12-25 21:59:17.924993998 +0100
@@ -591,7 +591,7 @@
            '((exact->inexact (lambda (z) z))
              (inexact->exact (lambda (z) z)))
            (mapcar #'(lambda (x)
-                       (list x (scheme-env-lookup *scheme-r7rs-info* x)))
+                       (scheme-env-lookup *scheme-r7rs-info* x))
                    *scheme-r5rs-bindings*))))
   *scheme-r5rs-info*)

(eval-after-load 'scheme
   '(define-key scheme-mode-map "\t" 'scheme-complete-or-indent))

(autoload 'scheme-smart-complete "scheme-complete" nil t)

(eval-after-load 'scheme
  '(define-key scheme-mode-map "\t" 'scheme-complete-or-indent))

(autoload 'scheme-get-current-symbol-info "scheme-complete" nil t)
(add-hook 'scheme-mode-hook
  (lambda ()
    (make-local-variable 'eldoc-documentation-function)
    (setq eldoc-documentation-function 'scheme-get-current-symbol-info)
    (eldoc-mode)))

(setq lisp-indent-function 'scheme-smart-indent-function)

Wrong type argument: commandp, scheme-complete-or-indent