Back out inadvertent changes in minibuffer.el.

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index b82147b97f1ae6d12274165946f9de742854e767..313298de97eaf437ce1e4725f2ea6ecfc638b3ff 100644 (file)
--- 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