Emacs-与语法跳过结合调试覆盖

我在寻求帮助，请调试我的test功能，以使黄色垂直线看起来与红色线完全相同。我决定排除突出显示选项卡，因为它们的宽度为两（2）个字符，并且使垂直线像扭曲了一样。但是，在尝试排除的 tabs情况下，我丢失了紧靠右侧的任何文本的突出显示。我试图解决此问题的做法破坏了蓝线和/或红线的功能。

简而言之，蓝线和红线可以按预期工作，但是黄线断开了（在选项卡的最右边）－黄线应该看起来像红线一样。

我的test函数存在的问题在于以下代码段：

(not (save-excursion (move-to-column my-col-b)
   (< 0 (skip-chars-forward "\t"))))

(not (save-excursion (move-to-column my-col-b)
    (> 0 (skip-chars-backward "\t")))))

以下功能用于创建缓冲区的图像，如下面的屏幕快照所示：

(defun test ()
(interactive)
  (let* (my-last-column
      my-o-beg-a my-o-end-a (my-col-a 3)
      my-o-beg-b my-o-end-b (my-col-b 28)
      my-o-beg-c my-o-end-c (my-col-c 29) )
    (generate-test-buffer)
    (goto-char (point-max))
    (while (re-search-backward "\n" (point-min) t)
      (setq my-last-column (current-column))
      (setq my-o-beg-a (progn (move-to-column my-col-a) (point)))
      (setq my-o-end-a (+ 1 my-o-beg-a))
      (setq my-o-beg-b (progn (move-to-column my-col-b) (point)))
      (setq my-o-end-b (+ 1 my-o-beg-b))
      (setq my-o-beg-c (progn (move-to-column my-col-c) (point)))
      (setq my-o-end-c (+ 1 my-o-beg-c))
      (when (and
          (< my-col-a my-last-column)
          (not (save-excursion (move-to-column my-col-a)
              (< 0 (skip-chars-forward "\t"))))
          (not (save-excursion (move-to-column my-col-a)
              (> 0 (skip-chars-backward "\t")))))
        (overlay-put (make-overlay my-o-beg-a my-o-end-a) 'face '(
          (background-color . "cyan")
          (foreground-color . "black") )))
      (when (and
          (< my-col-b my-last-column)
          (not (save-excursion (move-to-column my-col-b)
              (< 0 (skip-chars-forward "\t"))))
          (not (save-excursion (move-to-column my-col-b)
              (> 0 (skip-chars-backward "\t")))))
        (overlay-put (make-overlay my-o-beg-b my-o-end-b) 'face '(
          (background-color . "yellow")
          (foreground-color . "black") )))
      (when (and
          (< my-col-b my-last-column)
          (not (save-excursion (move-to-column my-col-c)
              (< 0 (skip-chars-forward "\t"))))
          (not (save-excursion (move-to-column my-col-c)
              (> 0 (skip-chars-backward "\t")))))
        (overlay-put (make-overlay my-o-beg-c my-o-end-c) 'face '(
          (background-color . "red")
          (foreground-color . "black") ))) )))

(defun generate-test-buffer ()
  (if (get-buffer "foo.el")
    (with-current-buffer "foo.el"
      (erase-buffer))
    (get-buffer-create "foo.el"))
  (switch-to-buffer (get-buffer "foo.el"))
  (setq whitespace-style '(face space-mark tab-mark newline-mark) )
  (setq indent-tabs-mode t)
  (setq tab-stop-list (number-sequence 4 200 4))
  (setq tab-width 4)
  (setq indent-line-function 'insert-tab)
  (whitespace-mode t)
  (insert ";;;;")
  (insert-tabs 1)
  (insert "(defun test ()\n;;;;")
  (insert-tabs 1)
  (insert "(interactive)\n;;;;")
  (insert-tabs 2)
  (insert "(let* (my-last-column\n;;;;")
  (insert-tabs 4)
  (insert "my-o-beg-a my-o-end-a (my-col-a 1)\n;;;;")
  (insert-tabs 4)
  (insert "my-o-beg-b my-o-end-b (my-col-b 11)\n;;;;")
  (insert-tabs 4)
  (insert "my-o-beg-c my-o-end-c (my-col-c 16) )\n;;;;")
  (insert-tabs 3)
  (insert "(generate-test-buffer)\n;;;;")
  (insert-tabs 3)
  (insert "(goto-char (point-max))\n;;;;")
  (insert-tabs 3)
  (insert "(while (re-search-backward \"\\n\" (point-min) t)\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-last-column (current-column))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-beg-a (progn (move-to-column my-col-a) (point)))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-end-a (+ 1 my-o-beg-a))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-beg-b (progn (move-to-column my-col-b) (point)))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-end-b (+ 1 my-o-beg-b))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-beg-c (progn (move-to-column my-col-c) (point)))\n;;;;")
  (insert-tabs 4)
  (insert "(setq my-o-end-c (+ 1 my-o-beg-c))\n;;;;")
  (insert-tabs 4)
  (insert "(when (and\n;;;;")
  (insert-tabs 6)
  (insert "(< my-col-a my-last-column)\n;;;;")
  (insert-tabs 6)
  (insert "(not (save-excursion (move-to-column my-col-a)\n;;;;")
  (insert-tabs 7)
  (insert "(< 0 (skip-chars-forward \"\t\"))))\n;;;;")
  (insert-tabs 6)
  (insert "(not (save-excursion (move-to-column my-col-a)\n;;;;")
  (insert-tabs 7)
  (insert "(> 0 (skip-chars-backward \"\t\")))))\n;;;;")
  (insert-tabs 5)
  (insert "(overlay-put (make-overlay my-o-beg-a my-o-end-a) 'face '(\n;;;;")
  (insert-tabs 6)
  (insert "(background-color . \"cyan\")\n;;;;")
  (insert-tabs 6)
  (insert "(foreground-color . \"black\") )))\n;;;;")
  (insert-tabs 4)
  (insert "(when (and\n;;;;")
  (insert-tabs 6)
  (insert "(< my-col-b my-last-column)\n;;;;")
  (insert-tabs 7)
  (insert "(not (save-excursion (move-to-column my-col-b)\n;;;;")
  (insert-tabs 7)
  (insert "(< 0 (skip-chars-forward \"\t\"))))\n;;;;")
  (insert-tabs 6)
  (insert "(not (save-excursion (move-to-column my-col-b)\n;;;;")
  (insert-tabs 7)
  (insert "(> 0 (skip-chars-backward \"\t\")))))\n;;;;")
  (insert-tabs 5)
  (insert "(overlay-put (make-overlay my-o-beg-b my-o-end-b) 'face '(\n;;;;")
  (insert-tabs 6)
  (insert "(background-color . \"yellow\")\n;;;;")
  (insert-tabs 6)
  (insert "(foreground-color . \"black\") )))\n;;;;")
  (insert-tabs 4)
  (insert "(when (and\n;;;;")
  (insert-tabs 6)
  (insert "(< my-col-b my-last-column)\n;;;;")
  (insert-tabs 6)
  (insert "(not (save-excursion (move-to-column my-col-c)\n;;;;")
  (insert-tabs 7)
  (insert "(< 0 (skip-chars-forward \"\t\"))))\n;;;;")
  (insert-tabs 6)
  (insert "(not (save-excursion (move-to-column my-col-c)\n;;;;")
  (insert-tabs 7)
  (insert "(> 0 (skip-chars-backward \"\t\")))))\n;;;;")
  (insert-tabs 5)
  (insert "(overlay-put (make-overlay my-o-beg-c my-o-end-c) 'face '(\n;;;;")
  (insert-tabs 6)
  (insert "(background-color . \"red\")\n;;;;")
  (insert-tabs 6)
  (insert "(foreground-color . \"black\") ))) )))\n" ))

(defun insert-tabs (n)
;; http://stackoverflow.com/a/11830118/2112489
  "Inserts N number of tabs"
  (interactive "nNumber of tabs: ")
  (dotimes (i n)
    (indent-for-tab-command)))

_{（来源：lawlist.com）}