diff options
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/hi-lock.el | 4 |
2 files changed, 8 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2818191aec6..29fa58fde38 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2001-03-09 Stefan Monnier <monnier@cs.yale.edu> + + * hi-lock.el (hi-lock-line-face-buffer): Wrap the regexp in a group + so ^, $, *, ? and + are interpreted correctly. + 2001-03-09 Gerd Moellmann <gerd@gnu.org> * help.el (string-key-binding): Renamed from diff --git a/lisp/hi-lock.el b/lisp/hi-lock.el index 610a217916f..e37cb94d1a9 100644 --- a/lisp/hi-lock.el +++ b/lisp/hi-lock.el @@ -334,7 +334,9 @@ list maintained for regexps, global history maintained for faces. (unless hi-lock-mode (hi-lock-mode)) (or (facep face) (setq face 'rwl-yellow)) (hi-lock-set-pattern - (list (concat "^.*" regexp ".*$") (list 0 (list 'quote face) t)))) + ;; The \\(?:...\\) grouping construct ensures that a leading ^, +, * or ? + ;; or a trailing $ in REGEXP will be interpreted correctly. + (list (concat "^.*\\(?:" regexp "\\).*$") (list 0 (list 'quote face) t)))) ;;;###autoload |