Mercurial > emacs
changeset 66473:2aa1446214fe
(occur-engine): Include colon in mouse-face highlight.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Thu, 27 Oct 2005 18:22:00 +0000 |
| parents | 854391a4e15f |
| children | 06ed4e88d849 |
| files | lisp/ChangeLog lisp/replace.el |
| diffstat | 2 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Oct 27 15:04:41 2005 +0000 +++ b/lisp/ChangeLog Thu Oct 27 18:22:00 2005 +0000 @@ -1,5 +1,7 @@ 2005-10-27 Romain Francoise <romain@orebokech.com> + * replace.el (occur-engine): Include colon in mouse-face highlight. + * dired-x.el: Change Maintainer field. 2005-10-26 Chong Yidong <cyd@stupidchicken.com>
--- a/lisp/replace.el Thu Oct 27 15:04:41 2005 +0000 +++ b/lisp/replace.el Thu Oct 27 18:22:00 2005 +0000 @@ -1125,18 +1125,17 @@ (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