removing warnings of Emacs Lisp.

This commit is contained in:
Kazu Yamamoto 2014-08-06 20:50:50 +09:00
parent 235b4965f9
commit f95f7f89ce
1 changed files with 4 additions and 1 deletions

View File

@ -11,6 +11,9 @@
(require 'ghc-func) (require 'ghc-func)
(require 'ghc-process) (require 'ghc-process)
(defvar ghc-auto-info nil)
(defvar ghc-auto-buffer nil)
;; Common code for case splitting and refinement ;; Common code for case splitting and refinement
(defun ghc-perform-rewriting (info) (defun ghc-perform-rewriting (info)
@ -123,7 +126,7 @@
(if (null info) (if (null info)
(message "No automatic completions found") (message "No automatic completions found")
(if (= (length (ghc-sinfo-get-info info)) 1) (if (= (length (ghc-sinfo-get-info info)) 1)
(ghc-perform-rewriting-auto info (first (ghc-sinfo-get-info info))) (ghc-perform-rewriting-auto info (car (ghc-sinfo-get-info info)))
(ghc-show-auto-messages info))))) (ghc-show-auto-messages info)))))
(defun ghc-obtain-auto () (defun ghc-obtain-auto ()