在 Emacs 的正则表达式机制中突出显示整行（从左边框到右边框）

Question

I'm using

(highlight-regexp ".*data id=\"[^\"]*\".*" 'hi-green)

to highlight lines containing some regexp ( data id="..." ), but it only does so from the left window border to the last char in the line .

How to get the whole line highlighted, up to the right window border ?

UPDATE -- I do need to have some highlights on the whole line, others not:

;; whole line
(highlight-regexp ".*data id=\"[^\"]*\".*" 'hi-green)
(highlight-lines-matching-regexp ".*panel.* id=\"[^\"]*\".*" 'hi-blue)

;; part of the line
(highlight-regexp "data=\"[^\"]*\"" 'hi-green)
(highlight-regexp "action id=\"[^\"]*\"" 'hi-pink)

Answer 1

I don't think this is possible using the font-lock mechanism, which highlight-regexp uses when font-lock-mode is active. However, highlight-regexp falls back to using overlays otherwise, and the region of the overlays can be modified to include the whole visible line.

This behaviour can be forced around calls to hi-lock-set-pattern with the following advice,

(define-advice hi-lock-set-pattern (:around (orig &rest args) "whole-line")
  (let (font-lock-mode)
    (cl-letf* ((orig-make-overlay (symbol-function 'make-overlay))
               ((symbol-function 'make-overlay)
                (lambda (&rest _args)
                  (funcall orig-make-overlay
                           (line-beginning-position) ; could start from match
                           (line-beginning-position 2)))))
      (apply orig args))))

Comment follow-up: to only highlight entire visible lines when calling highlight-regexp and the regexp ends with .* , you could use the following (don't use the previous advice)

(define-advice highlight-regexp (:around (orig regexp &rest args) "maybe-whole-line")
  (if (string-suffix-p ".*" regexp)
      ;; use modified overlay bounds
      (let (font-lock-mode)
        (cl-letf* ((orig-make-overlay (symbol-function 'make-overlay))
                   ((symbol-function 'make-overlay)
                    (lambda (&rest _args)
                      (funcall orig-make-overlay
                               (line-beginning-position) ; could start from match
                               (line-beginning-position 2)))))
          (apply orig regexp args)))
    (apply orig regexp args)))