emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/beardbolt e0d917206e 038/323: Improve quality of defaul


From: ELPA Syncer
Subject: [elpa] externals/beardbolt e0d917206e 038/323: Improve quality of default matching faces
Date: Thu, 9 Mar 2023 10:58:00 -0500 (EST)

branch: externals/beardbolt
commit e0d917206eb1627d01f06c563ddc897abbd3e543
Author: Jay Kamat <jaygkamat@gmail.com>
Commit: Jay Kamat <jaygkamat@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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]