行番号バー全体をカスタムの背景色で塗りつぶすにはどうすればよいですか？

下のスクリーンショットでは、linum顔の背景をいくつかの色に設定していますが、バッファーの最後に空白の領域があり、行の折り返し（global-visual-line-mode）が有効になっていると、行間にギャップがあります。

理想的には、左側全体が均一な色である必要があります。これは可能ですか？Elispを知っているので、可能であれば、いくつかの指示を添えて自分で修正を書くことができます。

問題

ここでの問題は、マージンの外観を制御する面がないことです。オーバーレイを使用して余白にテキストを表示できます（これlinum-modeは実際に行われます）が、Emacsの他のテキストと同様に、バッファーの制限に制限されています。したがって、バッファの最後の行を超えるマージン表示を制御することはできません。

あなたができることは、その間でそれらの欠陥のある行を修正することです。

そこに何を置くか

この変数は、2つの論理行の「間」にあるこれらの視覚行に表示するものを制御します。重要な部分はであり'face 'linum、これにより、これらの線がの外観に従うようになりますlinum-mode。この"-----"部分は説明的なものであり、スペースまたは希望するものに変更できます。

(defvar endless/margin-display
  `((margin left-margin) ,(propertize "-----" 'face 'linum))
  "String used on the margin.")

どうやってするの

次のコードは、バッファを通過して、linum-mode「実際のもの」ではない各行に（使用するものと同様の）オーバーレイを配置します。

(defvar-local endless/margin-overlays nil
  "List of overlays in current buffer.")

(defun endless/setup-margin-overlays ()
  "Put overlays on each line which is visually wrapped."
  (interactive)
  (let ((ww (- (window-width)
               (if (= 0 (or (cdr fringe-mode) 1)) 1 0)))
        ov)
    (mapc #'delete-overlay endless/margin-overlays)
    (save-excursion
      (goto-char (point-min))
      (while (null (eobp))
        ;; On each logical line
        (forward-line 1)
        (save-excursion
          (forward-char -1)
          ;; Check if it has multiple visual lines.
          (while (>= (current-column) ww)
            (endles/make-overlay-at (point))
            (forward-char (- ww))))))))

(defun endles/make-overlay-at (p)
  "Create a margin overlay at position P."
  (push (make-overlay p (1+ p)) endless/margin-overlays)
  (overlay-put
   (car endless/margin-overlays) 'before-string
   (propertize " "  'display endless/margin-display)))

そしてlinum-mode、行番号が更新されるたびに実行したいと考えています。

(add-hook 'linum-before-numbering-hook #'endless/setup-margin-overlays)

あなたはあなたの設定にこれを置くことができます：

(set-face-background 'fringe "#f4a460")

...カラーコードを必要なものに変更します。