[Emacs-diffs] /srv/bzr/emacs/trunk r105530: Back out inadvertent changes in minibuffer.el.

[Eli Zaretskii]

------------------------------------------------------------
revno: 105530
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Mon 2011-08-22 15:58:37 +0300
message:
  Back out inadvertent changes in minibuffer.el.
modified:
  lisp/minibuffer.el

=== modified file 'lisp/minibuffer.el'
--- a/lisp/minibuffer.el        2011-08-19 10:18:40 +0000
+++ b/lisp/minibuffer.el        2011-08-22 12:58:37 +0000
@@ -1119,27 +1119,13 @@
                                       `(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