diff options
author | Andreas Schwab <[email protected]> | 2008-05-04 09:30:57 +0000 |
---|---|---|
committer | Andreas Schwab <[email protected]> | 2008-05-04 09:30:57 +0000 |
commit | 5270bf519b9a421927475f51e327449137f44a84 (patch) | |
tree | 91ddb2ffd307151429b3e12a9cb7e527a03d1210 | |
parent | 6fc3871ea8e2e292acd378bc68cddc403ce927aa (diff) |
(completion--insert-strings): Don't delete past
bol.
-rw-r--r-- | lisp/ChangeLog | 5 | ||||
-rw-r--r-- | lisp/minibuffer.el | 16 |
2 files changed, 13 insertions, 8 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 47f99da80d..dd96154553 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2008-05-04 Andreas Schwab <[email protected]> + + * minibuffer.el (completion--insert-strings): Don't delete past + bol. + 2008-05-03 Glenn Morris <[email protected]> * ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el: diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 02f695e41d..1bf3cb75b4 100644 --- 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) |