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

Clarify some docs/strings in elisp/

Browse Source
This commit is contained in:
Daniel Gröber 2015-08-14 09:19:43 +02:00
parent 04306d2ea7
commit 9d5f0ad23d
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
elisp/ghc-check.el
View File

@ -20,7 +20,7 @@
:underline (:style wave :color "orangered")) :underline (:style wave :color "orangered"))
(t (t
:inherit error)) :inherit error))
"Face used for marking error lines." "Face used for error lines."
:group 'ghc) :group 'ghc)
(defface ghc-face-warn (defface ghc-face-warn
@ -28,7 +28,7 @@
:underline (:style wave :color "gold")) :underline (:style wave :color "gold"))
(t (t
:inherit warning)) :inherit warning))
"Face used for marking warning lines." "Face used for warning lines."
:group 'ghc) :group 'ghc)
(defface ghc-face-hole (defface ghc-face-hole
@ -36,7 +36,7 @@
:underline (:style wave :color "purple")) :underline (:style wave :color "purple"))
(t (t
:inherit warning)) :inherit warning))
"Face used for marking hole lines." "Face used for hole lines."
:group 'ghc) :group 'ghc)
(defvar ghc-check-error-fringe (propertize "!" 'display '(left-fringe exclamation-mark))) (defvar ghc-check-error-fringe (propertize "!" 'display '(left-fringe exclamation-mark)))
@ -46,18 +46,18 @@
(defvar ghc-check-hole-fringe (propertize "_" 'display '(left-fringe horizontal-bar))) (defvar ghc-check-hole-fringe (propertize "_" 'display '(left-fringe horizontal-bar)))
(defvar ghc-display-error nil (defvar ghc-display-error nil
"*An action to display errors/warnings for 'M-n' and 'M-p: "*How to display errors/warnings when using 'M-n' and 'M-p':
nil does not display errors/warnings. nil do not display errors/warnings.
'minibuffer displays errors/warnings in the minibuffer. 'minibuffer display errors/warnings in the minibuffer.
'other-buffer displays errors/warnings in the other buffer. 'other-buffer display errors/warnings in a new buffer.
") ")
(defvar ghc-display-hole 'other-buffer (defvar ghc-display-hole 'other-buffer
"*An action to display hole information for 'C-c C-j' and 'C-c C-h' "*How to display hole information when using 'C-c C-j' and 'C-c C-h'
'minibuffer displays errors/warnings in the minibuffer. 'minibuffer display errors/warnings in the minibuffer.
'other-buffer displays errors/warnings in the other buffer" 'other-buffer display errors/warnings in the a new buffer"
) )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

4
elisp/ghc-doc.el
View File

@ -25,7 +25,7 @@
(setq pkg-ver-path (and mod (ghc-resolve-document-path mod))) (setq pkg-ver-path (and mod (ghc-resolve-document-path mod)))
(if pkg-ver-path (if pkg-ver-path
(ghc-display-document pkg-ver-path mod haskell-org expr) (ghc-display-document pkg-ver-path mod haskell-org expr)
(message "No document found")))) (message "No documentation found"))))
(ghc-defstruct pkg-ver-path pkg ver path) (ghc-defstruct pkg-ver-path pkg ver path)
@ -93,7 +93,7 @@
(read-from-minibuffer "Module name: " def ghc-input-map)) (read-from-minibuffer "Module name: " def ghc-input-map))
(defun ghc-read-expression (def) (defun ghc-read-expression (def)
(read-from-minibuffer "Expression: " def ghc-input-map)) (read-from-minibuffer "Identifier: " def ghc-input-map))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;