procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Back out inadvertent changes in minibuffer.el.

Browse source
This commit is contained in:
Eli Zaretskii 2011-08-22 15:58:37 +03:00
parent 56ee679c7f
commit e59e73d83f
1 changed files with 4 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
lisp/minibuffer.el
View file

@ -1119,27 +1119,13 @@ It also eliminates runs of equal strings."
`(display (space :align-to ,column)))
nil))))
(if (not (consp str))
(put-text-property (point)
(progn
(insert (bidi-string-mark-left-to-right
str))
(point))
(put-text-property (point) (progn (insert str) (point))
'mouse-face 'highlight)
(put-text-property (point)
(progn
(insert
(bidi-string-mark-left-to-right
(car str)))
(point))
(put-text-property (point) (progn (insert (car str)) (point))
'mouse-face 'highlight)
(add-text-properties (point)
(progn
(insert
(bidi-string-mark-left-to-right
(cadr str)))
(point))
(add-text-properties (point) (progn (insert (cadr str)) (point))
'(mouse-face nil
face completions-annotations)))
face completions-annotations)))
(cond
((eq completions-format 'vertical)
;; Vertical format