# HG changeset patch
# User Andreas Schwab <schwab@suse.de>
# Date 1209893457 0
# Node ID e0e6649ed314d5ceada2803eb19c7b93525ff642
# Parent  72eafc3867a76692c04f00b25c44bc390bffe45d
(completion--insert-strings): Don't delete past
bol.

diff -r 72eafc3867a7 -r e0e6649ed314 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat May 03 21:07:14 2008 +0000
+++ b/lisp/ChangeLog	Sun May 04 09:30:57 2008 +0000
@@ -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 -r 72eafc3867a7 -r e0e6649ed314 lisp/minibuffer.el
--- a/lisp/minibuffer.el	Sat May 03 21:07:14 2008 +0000
+++ b/lisp/minibuffer.el	Sun May 04 09:30:57 2008 +0000
@@ -608,14 +608,14 @@
                                  ;; 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)