hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

defvar -> defconst.

Browse Source
This commit is contained in:
Kazu Yamamoto 2010-06-14 12:03:14 +09:00
parent f30eb343b0
commit 2e28a09aa9
5 changed files with 19 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
elisp/ghc-comp.el
View File

@ -15,13 +15,20 @@
;;; Customize Variables ;;; Customize Variables
;;; ;;;
(defvar ghc-idle-timer-interval 30) (defvar ghc-idle-timer-interval 30
"*Period of idele timer in second. When timeout, the names of
unloaded modules are loaded")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Constants
;;;
;; must be sorted ;; must be sorted
(defvar ghc-reserved-keyword-for-bol '("class" "data" "default" "import" "infix" "infixl" "infixr" "instance" "main" "module" "newtype" "type")) (defconst ghc-reserved-keyword-for-bol '("class" "data" "default" "import" "infix" "infixl" "infixr" "instance" "main" "module" "newtype" "type"))
;; must be sorted ;; must be sorted
(defvar ghc-reserved-keyword '("case" "deriving" "do" "else" "if" "in" "let" "module" "of" "then" "where")) (defconst ghc-reserved-keyword '("case" "deriving" "do" "else" "if" "in" "let" "module" "of" "then" "where"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; ;;;
@ -42,7 +49,7 @@
(defvar ghc-merged-keyword nil) ;; completion for type/func/... (defvar ghc-merged-keyword nil) ;; completion for type/func/...
(defvar ghc-language-extensions nil) (defvar ghc-language-extensions nil)
(defvar ghc-keyword-prefix "ghc-keyword-") (defconst ghc-keyword-prefix "ghc-keyword-")
(defvar ghc-keyword-Prelude nil) (defvar ghc-keyword-Prelude nil)
(defvar ghc-loaded-module nil) (defvar ghc-loaded-module nil)

4
elisp/ghc-doc.el
View File

@ -34,8 +34,8 @@
(when (looking-at "^haddock-html: \\([^ \n]+\\)$") (when (looking-at "^haddock-html: \\([^ \n]+\\)$")
(match-string-no-properties 1)))) (match-string-no-properties 1))))
(defvar ghc-doc-local-format "file://%s/%s.html") (defconst ghc-doc-local-format "file://%s/%s.html")
(defvar ghc-doc-hackage-format (defconst ghc-doc-hackage-format
"http://hackage.haskell.org/packages/archive/%s/latest/doc/html/%s.html") "http://hackage.haskell.org/packages/archive/%s/latest/doc/html/%s.html")
(defun ghc-display-document (pkg mod haskell-org) (defun ghc-display-document (pkg mod haskell-org)

6
elisp/ghc-flymake.el
View File

@ -16,12 +16,12 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar ghc-error-buffer-name "*GHC Errors*") (defconst ghc-error-buffer-name "*GHC Errors*")
(defvar ghc-flymake-allowed-file-name-masks (defconst ghc-flymake-allowed-file-name-masks
'("\\.l?hs$" ghc-flymake-init flymake-simple-cleanup flymake-get-real-file-name)) '("\\.l?hs$" ghc-flymake-init flymake-simple-cleanup flymake-get-real-file-name))
(defvar ghc-flymake-err-line-patterns (defconst ghc-flymake-err-line-patterns
'("^\\(.*\\.l?hs\\):\\([0-9]+\\):\\([0-9]+\\):[ ]*\\(.+\\)" 1 2 3 4)) '("^\\(.*\\.l?hs\\):\\([0-9]+\\):\\([0-9]+\\):[ ]*\\(.+\\)" 1 2 3 4))
(add-to-list 'flymake-allowed-file-name-masks (add-to-list 'flymake-allowed-file-name-masks

3
elisp/ghc-func.el
View File

@ -8,7 +8,8 @@
;;; Code: ;;; Code:
(defvar ghc-module-command "ghc-mod") (defvar ghc-module-command "ghc-mod"
"*The command name of \"ghc-mod\"")
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

2
elisp/ghc.el
View File

@ -16,7 +16,7 @@
;;; Code: ;;; Code:
(defvar ghc-version "0.4.0") (defconst ghc-version "0.4.0")
;; (eval-when-compile ;; (eval-when-compile
;; (require 'haskell-mode)) ;; (require 'haskell-mode))