branch: externals/beardbolt
commit e0d917206eb1627d01f06c563ddc897abbd3e543
Author: Jay Kamat <jaygka...@gmail.com>
Commit: Jay Kamat <jaygka...@gmail.com>
Improve quality of default matching faces
---
rmsbolt.el | 8 ++++----
1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/rmsbolt.el b/rmsbolt.el
index df8ffdb4fd..b143deeedc 100644
--- a/rmsbolt.el
+++ b/rmsbolt.el
@@ -90,9 +90,9 @@
;;;; Faces
(defface rmsbolt-current-line-face
- '((t (:weight bold)))
+ '((t (:weight bold :inherit hl-line)))
"Face to fontify the current line for showing matches."
- :group 'fic-mode)
+ :group 'rmsbolt)
;;;; Variables:
(defvar rmsbolt-temp-dir nil
@@ -721,7 +721,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
(with-current-buffer src-buffer
(save-excursion
(rmsbolt--goto-line src-current-line)
- (cl-values (c-point 'bol) (c-point 'eol))))))
+ (cl-values (c-point 'bol) (c-point 'bonl))))))
(let ((line-visible (not rmsbolt-goto-match))
(src-buffer-selected (eq (current-buffer) src-buffer)))
(mapc #'delete-overlay rmsbolt-overlays)
@@ -740,7 +740,7 @@ Needed as ocaml cannot output asm to a non-hardcoded file"
(start-pt (progn (rmsbolt--goto-line start)
(c-point 'bol)))
(end-pt (progn (rmsbolt--goto-line end)
- (c-point 'eol)))
+ (c-point 'bonl)))
(visible (or line-visible
(rmsbolt--point-visible start-pt)
(rmsbolt--point-visible end-pt)
