diff options
| author | Yuchen Pei <hi@ypei.me> | 2022-09-21 13:51:30 +1000 |
|---|---|---|
| committer | Yuchen Pei <hi@ypei.me> | 2022-09-21 13:51:30 +1000 |
| commit | 73bd6e9bd92fa57877f2d894f43725a4a0abf1a8 (patch) | |
| tree | 34e7e09e62886750b52e3742ac6801198976cb15 /hcel-source.el | |
| parent | 8e23867beeaa4f6b786fd6a046ba52fe5d38df67 (diff) | |
fix a fixme Make sure all definitions have an `hcel-' prefix.
Diffstat (limited to 'hcel-source.el')
| -rw-r--r-- | hcel-source.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/hcel-source.el b/hcel-source.el index ee42346..6000d26 100644 --- a/hcel-source.el +++ b/hcel-source.el @@ -49,7 +49,7 @@ When FORCE is non-nil, kill existing source buffer if any." (with-current-buffer (get-buffer-create buffer-name) ;; (hcel-write-source-to-buffer (alist-get 'tokenizedLines json)) (hcel-write-html-source-to-buffer (hcel-source-html json)) - (fontify-with-haskell-mode) + (hcel-fontify-with-haskell-mode) ;; it is important the setq of local vars are after the (hcel-mode) ;; otherwise they may be rewritten (hcel-mode) @@ -102,10 +102,10 @@ If NO-JUMP is non-nil, just open the source and does not jump to the location wi (buffer (hcel-load-module-source package-id module-path))) (unless no-jump (switch-to-buffer-other-window buffer) - (goto-line-column line-beg (1- col-beg)) + (hcel-goto-line-column line-beg (1- col-beg)) (pulse-momentary-highlight-region (point) (save-excursion - (goto-line-column line-end (1- col-end)) + (hcel-goto-line-column line-end (1- col-end)) (point)) 'next-error)) buffer)) @@ -138,7 +138,7 @@ If NO-JUMP is non-nil, just open the source and does not jump to the location wi (line (string-to-number (car splitted))) (col-beg (string-to-number (cadr splitted))) (col-end (string-to-number (caddr splitted)))) - (buffer-substring-line-column line (1- col-beg) line (1- col-end)))) + (hcel-buffer-substring-line-column line (1- col-beg) line (1- col-end)))) (defun hcel-type-at-point () (interactive) @@ -468,9 +468,9 @@ If NO-JUMP is non-nil, just open the source and does not jump to the location wi (buffer (hcel-load-module-location-info location-info t))) (with-current-buffer buffer (save-excursion - (goto-line-column line-beg col-beg) + (hcel-goto-line-column line-beg col-beg) (setq pos (1- (point))) - (goto-line-column line-end col-end) + (hcel-goto-line-column line-end col-end) (setq len (- (point) pos 1)))) (list (xref-make-match "hcel match" |