# HG changeset patch
# User Juri Linkov <juri@jurta.org>
# Date 1133664149 0
# Node ID 8aa8220db14239f170a2a7a79ea01a3f52312165
# Parent  7af5860f4444fd78905a6e120a5cfbd9ef43c3f0
(completion-setup-function): Put completions-common-part
face on full completion string too (i.e. completion string without
completions-first-difference face).

diff -r 7af5860f4444 -r 8aa8220db142 lisp/simple.el
--- a/lisp/simple.el	Sun Dec 04 02:39:24 2005 +0000
+++ b/lisp/simple.el	Sun Dec 04 02:42:29 2005 +0000
@@ -4970,12 +4970,13 @@
                       (< (setq element-common-end
                                (+ element-start common-string-length))
                          maxp))
-	    (when (and (get-char-property element-start 'mouse-face)
-		       (get-char-property element-common-end 'mouse-face))
-	      (put-text-property element-start element-common-end
-				 'font-lock-face 'completions-common-part)
-	      (put-text-property element-common-end (1+ element-common-end)
-				 'font-lock-face 'completions-first-difference)))))
+	    (when (get-char-property element-start 'mouse-face)
+	      (if (get-char-property (1- element-common-end) 'mouse-face)
+		  (put-text-property element-start element-common-end
+				     'font-lock-face 'completions-common-part))
+	      (if (get-char-property element-common-end 'mouse-face)
+		  (put-text-property element-common-end (1+ element-common-end)
+				     'font-lock-face 'completions-first-difference))))))
       ;; Insert help string.
       (goto-char (point-min))
       (if (display-mouse-p)