(completion--insert-strings): Don't delete past

bol.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 47f99da..dd96154 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-05-04  Andreas Schwab  <schwab@suse.de>
+
+       * minibuffer.el (completion--insert-strings): Don't delete past
+       bol.
+
 2008-05-03  Glenn Morris  <rgm@gnu.org>
 
        * ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el:

diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el
index 02f695e..1bf3cb7 100644 (file)
--- a/lisp/minibuffer.el
+++ b/lisp/minibuffer.el
@@ -608,14 +608,14 @@ It also eliminates runs of equal strings."
                                  ;; We can't just set tab-width, because
                                  ;; completion-setup-function will kill all
                                  ;; local variables :-(
-                                 `(display (space :align-to ,column))))
-         (when (< wwidth (+ (max colwidth
-                                 (if (consp str)
-                                     (+ (string-width (car str))
-                                         (string-width (cadr str)))
-                                   (string-width str)))
-                            column))
-           (delete-char -2) (insert "\n") (setq column 0))
+                                 `(display (space :align-to ,column)))
+           (when (< wwidth (+ (max colwidth
+                                   (if (consp str)
+                                       (+ (string-width (car str))
+                                          (string-width (cadr str)))
+                                     (string-width str)))
+                              column))
+             (delete-char -2) (insert "\n") (setq column 0)))
          (if (not (consp str))
              (put-text-property (point) (progn (insert str) (point))
                                 'mouse-face 'highlight)