diff options
| author | Romain Francoise <romain@orebokech.com> | 2005-10-27 18:22:00 +0000 |
|---|---|---|
| committer | Romain Francoise <romain@orebokech.com> | 2005-10-27 18:22:00 +0000 |
| commit | 1e0ab2f03b2152281ffb06349a4a12b60f48b991 (patch) | |
| tree | 480c5b8e58f15cc7d521e26bbb435293b0db8a8b /lisp/replace.el | |
| parent | c809f7cc8ed4b07d70cb6c87aab20277d947e928 (diff) | |
| download | emacs-1e0ab2f03b2152281ffb06349a4a12b60f48b991.tar.gz | |
(occur-engine): Include colon in mouse-face highlight.
Diffstat (limited to 'lisp/replace.el')
| -rw-r--r-- | lisp/replace.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/replace.el b/lisp/replace.el index bb72acdf2cf..31963f7538c 100644 --- a/lisp/replace.el +++ b/lisp/replace.el @@ -1125,18 +1125,17 @@ See also `multi-occur'." (let* ((out-line (concat ;; Using 7 digits aligns tabs properly. - (apply #'propertize (format "%7d" lines) + (apply #'propertize (format "%7d:" lines) (append (when prefix-face `(font-lock-face prefix-face)) - `(occur-prefix t mouse-face highlight + `(occur-prefix t mouse-face (highlight) occur-target ,marker follow-link t help-echo "mouse-2: go to this occurrence"))) - ":" ;; We don't put `mouse-face' on the newline, ;; because that loses. And don't put it ;; on context lines to reduce flicker. - (propertize curstring 'mouse-face 'highlight + (propertize curstring 'mouse-face (list 'highlight) 'occur-target marker 'follow-link t 'help-echo |