diff options
| author | Juri Linkov <juri@linkov.net> | 2020-08-07 02:55:00 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2020-08-07 02:55:00 +0300 |
| commit | 874e0e7323631a5da61fa5a7fd35d7a3d9c4af61 (patch) | |
| tree | 0ac7a4ea04fb45c7773eeee6a6412fa6491b3bd4 /lisp/hi-lock.el | |
| parent | e038a7571ddb9ec2110533fdd1b359150939c58c (diff) | |
| download | emacs-874e0e7323631a5da61fa5a7fd35d7a3d9c4af61.tar.gz emacs-874e0e7323631a5da61fa5a7fd35d7a3d9c4af61.tar.bz2 emacs-874e0e7323631a5da61fa5a7fd35d7a3d9c4af61.zip | |
* lisp/hi-lock.el (hi-lock-set-pattern): Display warning on narrow (bug#42609)
Diffstat (limited to 'lisp/hi-lock.el')
| -rw-r--r-- | lisp/hi-lock.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index a18310322ad..33ca40f8dec 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -812,7 +812,9 @@ SPACES-REGEXP is a regexp to substitute spaces in font-lock search." (setq hi-lock-interactive-patterns (cdr hi-lock-interactive-patterns) hi-lock-interactive-lighters - (cdr hi-lock-interactive-lighters))))))))) + (cdr hi-lock-interactive-lighters)))) + (when (or (> search-start (point-min)) (< search-end (point-max))) + (message "Hi-lock added only in range %d-%d" search-start search-end))))))) (defun hi-lock-set-file-patterns (patterns) "Replace file patterns list with PATTERNS and refontify." |