diff options
| author | Andreas Schwab <schwab@suse.de> | 2008-05-04 09:30:57 +0000 |
|---|---|---|
| committer | Andreas Schwab <schwab@suse.de> | 2008-05-04 09:30:57 +0000 |
| commit | 5270bf519b9a421927475f51e327449137f44a84 (patch) | |
| tree | 91ddb2ffd307151429b3e12a9cb7e527a03d1210 /lisp/minibuffer.el | |
| parent | 6fc3871ea8e2e292acd378bc68cddc403ce927aa (diff) | |
| download | emacs-5270bf519b9a421927475f51e327449137f44a84.tar.gz | |
(completion--insert-strings): Don't delete past
bol.
Diffstat (limited to 'lisp/minibuffer.el')
| -rw-r--r-- | lisp/minibuffer.el | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/lisp/minibuffer.el b/lisp/minibuffer.el index 02f695e41d3..1bf3cb75b40 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) |