From 1e0ab2f03b2152281ffb06349a4a12b60f48b991 Mon Sep 17 00:00:00 2001 From: Romain Francoise Date: Thu, 27 Oct 2005 18:22:00 +0000 Subject: [PATCH] (occur-engine): Include colon in mouse-face highlight. --- lisp/ChangeLog | 2 ++ lisp/replace.el | 7 +++---- 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index d2237e78de2..bec0931bfb6 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,7 @@ 2005-10-27 Romain Francoise + * replace.el (occur-engine): Include colon in mouse-face highlight. + * dired-x.el: Change Maintainer field. 2005-10-26 Chong Yidong 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 -- 2.39.5