emacs - 如何在“nlinum-mode”中突出显示当前行号

当使用nlinum-mode(由@Stefan编写)时，我正在编写一个次要模式来突出显示当前行号，并且当光标位于窗口顶部的第一行时，除了之外，我都能正常工作。
nlinum-mode的代码可以在这里找到:http://elpa.gnu.org/packages/nlinum.html

非常感谢您提供任何帮助，找出为什么它不起作用(即，当光标位于窗口顶部的第一行时为)。

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; M-x hl-nlinum-mode

(defvar nlinum-highlight-current-line-number-string nil
  "An overlay string used to highlight the current line number.")
(make-variable-buffer-local 'nlinum-highlight-current-line-number-string)

(defvar nlinum-highlight-p nil
  "Set to non-`nil` when overlay is present, and `nil` when not present.")
(make-variable-buffer-local 'nlinum-highlight-p)

(defface ln-active-face
  '((t (:foreground "black" :background "#eab700" :bold nil :italic nil
      :underline nil :box nil :overline nil)))
  "Face for `ln-active-face`."
  :group 'linum)

(defface ln-inactive-face
  '((t (:foreground "SteelBlue" :background "black" :bold t :italic nil
      :underline nil :box nil :overline nil)))
  "Face for `ln-active-face`."
  :group 'linum)

(defun hl-nlinum-remove-overlay ()
  (when nlinum-highlight-p
    (remove-overlays (point-min) (point-max)
      'before-string nlinum-highlight-current-line-number-string)
    (setq nlinum-highlight-p nil)))

(defun nlinum-highlight-current-line-number ()
  (when nlinum-mode
    (hl-nlinum-remove-overlay)
    (let* (
        (pbol (point-at-bol))
        (line (nlinum--line-number-at-pos))
        (line-mod
          (cond
            ((eq nlinum--width 2)
              (cond
                ((< line 10)
                  (concat " " (format "%s" line)))
                (t (format "%s" line))))
            ((eq nlinum--width 3)
              (cond
                ((< line 10)
                  (concat "  " (format "%s" line)))
                ((and
                    (> line 9)
                    (< line 100))
                  (concat " " (format "%s" line)))
                (t (format "%s" line))))
            ((eq nlinum--width 4)
              (cond
                ((< line 10)
                  (concat "   " (format "%s" line)))
                ((and
                    (> line 9)
                    (< line 100))
                  (concat "  " (format "%s" line)))
                ((and
                    (> line 99)
                    (< line 1000))
                  (concat " " (format "%s" line)))
                (t (format "%s" line))))
            (t (format "%s" line))))
        (str (propertize line-mod 'face 'ln-active-face) )
        (final-line-number (propertize " " 'display `((margin left-margin) ,str))))
      (setq nlinum-highlight-current-line-number-string final-line-number)
      (overlay-put (make-overlay pbol pbol)
        'before-string nlinum-highlight-current-line-number-string)
      (setq nlinum-highlight-p t))))

(define-minor-mode hl-nlinum-mode
"A minor-mode for highlighting the current line number when nlinum-mode is active."
  :init-value nil
  :lighter " HL#"
  :keymap nil
  :global nil
  :group 'linum
  (cond
    (hl-nlinum-mode
      (when (not nlinum-mode)
         (nlinum-mode 1))
      (add-hook 'post-command-hook #'nlinum-highlight-current-line-number nil t))
    (t
      (remove-hook 'post-command-hook #'nlinum-highlight-current-line-number t)
      (remove-overlays (point-min) (point-max)
        'before-string nlinum-highlight-current-line-number-string))))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

最佳答案

问题可能出在您对(hl-nlinum-remove-overlay)的调用中。我不能完全确定我了解您的代码的工作方式，但这是我的分析:您遇到的主要问题是，您希望覆盖层替换nlinum的覆盖层，但是用post-command-hook进行覆盖可能并不总是可行的，因为nlinum通过jit-lock添加其覆盖，通常通过重新显示来运行，即在后命令钩之后。

我认为您可以通过在jit-lock-fontify-now的当前行调用nlinum-highlight-current-line-number来解决此问题。我不确定，这是否能解决您的“第一行是错误的”。

这就是说，我认为您的代码不应尝试替换nlinum的覆盖图。相反，它应该去修改nlinum的叠加层。即:

调用jit-lock-fontify-now

然后在当前行

上查找nlinum的叠加层

如果它是与上一个(您藏在hl-nlinum--last-overlay中)不同的覆盖，则取消修改最后一个覆盖。

最后，使用类似下面的代码来修改当前行的覆盖图。

如果ol是nlinum当前行的覆盖，则应该可以使用以下内容进行修改:

(let* ((spc (overlay-get ol 'before-string))
       (disp (get-text-property 0 'display spc))
       (str (nth 1 disp)))
  (put-text-property 0 (length str) 'face 'foo str))

关于emacs - 如何在“nlinum-mode”中突出显示当前行号，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/25411108/