emacs-devel
[Top][All Lists]
Advanced

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

patch for bug#34068 on emacs-26 branch


From: Trevor Spiteri
Subject: patch for bug#34068 on emacs-26 branch
Date: Mon, 14 Jan 2019 23:10:34 +0100
User-agent: Mozilla/5.0 (X11; Linux x86_64; rv:60.0) Gecko/20100101 Thunderbird/60.4.0

This is a patch for bug#34068, which I think was introduced in commit
644cdd1aa0. The patch is against the emacs-26 branch.

Regards.

Trevor Spiteri

diff --git a/lisp/progmodes/grep.el b/lisp/progmodes/grep.el
index df8cb3da7e..08a5db25ab 100644
--- a/lisp/progmodes/grep.el
+++ b/lisp/progmodes/grep.el
@@ -389,7 +389,7 @@ grep-regexp-alist
          (when grep-highlight-matches
            (let* ((beg (match-end 0))
                   (end (save-excursion (goto-char beg)
(line-end-position)))
-                  (mbeg (text-property-any beg end 'font-lock-face
'grep-match-face)))
+                  (mbeg (text-property-any beg end 'font-lock-face
grep-match-face)))
              (when mbeg
                (- mbeg beg)))))
       .
@@ -397,7 +397,7 @@ grep-regexp-alist
          (when grep-highlight-matches
            (let* ((beg (match-end 0))
                   (end (save-excursion (goto-char beg)
(line-end-position)))
-                  (mbeg (text-property-any beg end 'font-lock-face
'grep-match-face))
+                  (mbeg (text-property-any beg end 'font-lock-face
grep-match-face))
                   (mend (and mbeg (next-single-property-change mbeg
'font-lock-face nil end))))
              (when mend
                (- mend beg))))))




reply via email to

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