diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 11:14:45 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2016-02-10 11:14:45 +1100 |
| commit | 6c54541fcc4cb4b57a476234f385aebdc3292a25 (patch) | |
| tree | f04111df14bdb064ab1cd1ea46e2d8c2ee177d55 /lisp | |
| parent | 4d18c953c1200418a4b3ca6e1ad4d25d8369483f (diff) | |
| download | emacs-6c54541fcc4cb4b57a476234f385aebdc3292a25.tar.gz | |
Fix some folding issues in read-multiple-choice
* lisp/subr.el (read-multiple-choice): Fix folding when you
have many items.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/subr.el | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index f70f3edd028..447c3eb1a4f 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2340,9 +2340,10 @@ Usage example: ;; Add padding. (while (not (eobp)) (end-of-line) - (insert (make-string (- (* (mod times columns) - (+ fill-column 4)) - (current-column)) + (insert (make-string (max (- (* (mod times columns) + (+ fill-column 4)) + (current-column)) + 0) ?\s)) (forward-line 1)))) (setq times (1+ times)) @@ -2354,10 +2355,11 @@ Usage example: (cdr (assq (car elem) altered-names)))) (fill-region (point-min) (point-max)) (when (nth 2 elem) - (insert (nth 2 elem)) - (unless (bolp) - (insert "\n")) - (fill-region start (point-max))) + (let ((start (point))) + (insert (nth 2 elem)) + (unless (bolp) + (insert "\n")) + (fill-region start (point-max)))) (buffer-string)))) (goto-char start) (dolist (line (split-string text "\n")) |