bug#10062: 24.0.91; completions-first-difference

[Leo]

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