From e59e73d83f5aa3705ebaaa2f1637b392f0b3e4f5 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Mon, 22 Aug 2011 15:58:37 +0300 Subject: [PATCH] Back out inadvertent changes in minibuffer.el. --- lisp/minibuffer.el | 22 ++++------------------ 1 file changed, 4 insertions(+), 18 deletions(-) diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index b82147b97f1..313298de97e 100644 --- a/lisp/minibuffer.el +++ b/lisp/minibuffer.el @@ -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 -- 2.39.2