diff options
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index dcae12e9b76..b8f231eb55d 100644 --- a/lisp/replace.el +++ b/lisp/replace.el | |||
| @@ -1907,10 +1907,8 @@ See also `multi-occur'." | |||
| 1907 | global-matches))) | 1907 | global-matches))) |
| 1908 | 1908 | ||
| 1909 | (defun occur-engine-line (beg end &optional keep-props) | 1909 | (defun occur-engine-line (beg end &optional keep-props) |
| 1910 | (if (and keep-props (if (boundp 'jit-lock-mode) jit-lock-mode) | 1910 | (if (and keep-props font-lock-mode) |
| 1911 | (text-property-not-all beg end 'fontified t)) | 1911 | (font-lock-ensure beg end)) |
| 1912 | (if (fboundp 'jit-lock-fontify-now) | ||
| 1913 | (jit-lock-fontify-now beg end))) | ||
| 1914 | (if (and keep-props (not (eq occur-excluded-properties t))) | 1912 | (if (and keep-props (not (eq occur-excluded-properties t))) |
| 1915 | (let ((str (buffer-substring beg end))) | 1913 | (let ((str (buffer-substring beg end))) |
| 1916 | (remove-list-of-text-properties | 1914 | (remove-list-of-text-properties |