Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
457d37ba
Commit
457d37ba
authored
May 02, 2008
by
Stefan Monnier
Browse files
(completion-hilit-commonality): Revert last change:
the leftover code was actually useful.
parent
9d4190b2
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
26 additions
and
14 deletions
+26
-14
lisp/ChangeLog
lisp/ChangeLog
+8
-3
lisp/minibuffer.el
lisp/minibuffer.el
+18
-11
No files found.
lisp/ChangeLog
View file @
457d37ba
2008-05-02 Stefan Monnier <monnier@iro.umontreal.ca>
* minibuffer.el (completion-hilit-commonality): Revert last change:
the leftover code was actually useful.
2008-05-02 Sam Steingold <sds@gnu.org>
* vc.el (vc-dir-mode-map): Enable mouse bindings.
...
...
@@ -8,8 +13,8 @@
2008-05-02 Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-info-breakpoints-custom):
Don't
throw error if no file is found.
* progmodes/gdb-ui.el (gdb-info-breakpoints-custom):
Don't
throw error if no file is found.
2008-05-02 Juanma Barranquero <lekktu@gmail.com>
...
...
@@ -18,7 +23,7 @@
2008-05-02 Richard Sharman <rsharman@pobox.com>
* hilit-chg.el (highlight-changes-mode): Remove
d
references to
* hilit-chg.el (highlight-changes-mode): Remove references to
hooks that no longer exist. Because define-minor-mode is used the
hook highlight-changes-mode-hook exists and can do what both the
old hooks used to do. The documentation at the top of the file
...
...
lisp/minibuffer.el
View file @
457d37ba
...
...
@@ -654,17 +654,24 @@ of the differing parts is, by contrast, slightly highlighted."
(
setcdr
last
nil
)
(
nconc
(
mapcar
(
lambda
(
str
)
;; Don't modify the string itself.
(
setq
str
(
copy-sequence
str
))
(
put-text-property
0
com-str-len
'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
))
str
)
(
lambda
(
elem
)
(
let
((
str
;; Don't modify the string itself, but a copy, since the
;; the string may be read-only or used for other purposes.
;; Furthermore, since `completions' may come from
;; display-completion-list, `elem' may be a list.
(
if
(
consp
elem
)
(
car
(
setq
elem
(
cons
(
copy-sequence
(
car
elem
))
(
cdr
elem
))))
(
setq
elem
(
copy-sequence
elem
)))))
(
put-text-property
0
com-str-len
'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
)))
elem
)
completions
)
base-size
))))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment