Subject: Re: bug#10062: 24.0.91; completions-first-difference

From: Leo <[email-masked]>
Date: Fri, 18 Nov 2011 00:25:15 +0800

On 2011-11-16 17:45 +0800, Leo wrote:
> 1. Emacs -q
> 2. (setq completion-cycle-threshold 4)
> 3. In the *scratch* buffer type "(push" without the double quotes
> 4. Type M-Tab a few times

Any objection to the following patch:

=== modified file 'lisp/minibuffer.el'
--- lisp/minibuffer.el	2011-10-17 16:30:02 +0000
+++ lisp/minibuffer.el	2011-11-17 16:22:45 +0000
@@ -1203,9 +1203,10 @@
                                'font-lock-face 'completions-common-part
                                str)
             (if (> (length str) com-str-len)
-                (put-text-property com-str-len (1+ com-str-len)
-                                   'font-lock-face 'completions-first-difference
-                                   str)))
+                (add-text-properties com-str-len (1+ com-str-len)
+				     '(font-lock-face completions-first-difference
+						      rear-nonsticky t)
+				     str)))
           elem)
         completions)
        base-size))))

Leo