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

defvar -> defconst.

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
;;;
(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
(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
(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-language-extensions nil)
(defvar ghc-keyword-prefix "ghc-keyword-")
(defconst ghc-keyword-prefix "ghc-keyword-")
(defvar ghc-keyword-Prelude nil)
(defvar ghc-loaded-module nil)

4
elisp/ghc-doc.el
View File

@ -34,8 +34,8 @@
(when (looking-at "^haddock-html: \\([^ \n]+\\)$")
(match-string-no-properties 1))))
(defvar ghc-doc-local-format "file://%s/%s.html")
(defvar ghc-doc-hackage-format
(defconst ghc-doc-local-format "file://%s/%s.html")
(defconst ghc-doc-hackage-format
"http://hackage.haskell.org/packages/archive/%s/latest/doc/html/%s.html")
(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))
(defvar ghc-flymake-err-line-patterns
(defconst ghc-flymake-err-line-patterns
'("^\\(.*\\.l?hs\\):\\([0-9]+\\):\\([0-9]+\\):[ ]*\\(.+\\)" 1 2 3 4))
(add-to-list 'flymake-allowed-file-name-masks

3
elisp/ghc-func.el
View File

@ -8,7 +8,8 @@
;;; 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:
(defvar ghc-version "0.4.0")
(defconst ghc-version "0.4.0")
;; (eval-when-compile
;; (require 'haskell-mode))