mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

Fix some folding issues in read-multiple-choice

Browse Source 
* lisp/subr.el (read-multiple-choice): Fix folding when you
have many items.
This commit is contained in:
Lars Ingebrigtsen 2016-02-10 11:14:45 +11:00
parent 4d18c953c1
commit 6c54541fcc
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/subr.el
View File

@ -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"))