[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#10062: 24.0.91; completions-first-difference
From: |
Leo |
Subject: |
bug#10062: 24.0.91; completions-first-difference |
Date: |
Fri, 18 Nov 2011 00:25:15 +0800 |
User-agent: |
Gnus/5.13 (Gnus v5.13) Emacs/23.3.50 (Mac OS X 10.6.8) |
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