Commit 5270bf51 authored by Andreas Schwab's avatar Andreas Schwab
Browse files

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

bol.
parent 6fc3871e
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> 2008-05-03 Glenn Morris <rgm@gnu.org>
   
* ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el: * ediff-diff.el, ediff-help.el, ediff-merg.el, ediff-mult.el:
......
...@@ -608,14 +608,14 @@ It also eliminates runs of equal strings." ...@@ -608,14 +608,14 @@ It also eliminates runs of equal strings."
;; We can't just set tab-width, because ;; We can't just set tab-width, because
;; completion-setup-function will kill all ;; completion-setup-function will kill all
;; local variables :-( ;; local variables :-(
`(display (space :align-to ,column)))) `(display (space :align-to ,column)))
(when (< wwidth (+ (max colwidth (when (< wwidth (+ (max colwidth
(if (consp str) (if (consp str)
(+ (string-width (car str)) (+ (string-width (car str))
(string-width (cadr str))) (string-width (cadr str)))
(string-width str))) (string-width str)))
column)) column))
(delete-char -2) (insert "\n") (setq column 0)) (delete-char -2) (insert "\n") (setq column 0)))
(if (not (consp str)) (if (not (consp str))
(put-text-property (point) (progn (insert str) (point)) (put-text-property (point) (progn (insert str) (point))
'mouse-face 'highlight) 'mouse-face 'highlight)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment