다음은 문제를 해결하는 방법입니다. 비록 내가 옳은 문제를 해결하고 있는지 확실하지 않다. :)
(defun split-string-words (min max)
(interactive "r")
(let ((counted 0) (before-indent min)
(wordcount (read-number "How many words in a line? " 7))
(delimiter
(read-string "Delimit with (default: \" + \") "
nil nil "\" + \"")))
(save-excursion
(goto-char min)
(while (< min max)
(incf counted)
(when (= counted wordcount)
(insert delimiter)
(backward-char)
(incf max (length delimiter))
(setq before-indent (point)
counted 0)
(newline-and-indent)
(incf max (- (point) before-indent)))
(forward-word)
(setq min (point))))))
사용법은 분명해야한다. 편집 모드에서 <mode>-insert-and-indent
기능을 확인한 후 newline-and-indent
대신 사용하고 싶습니다.
이것은 매우 모호한 질문입니다. – phils
부 엉 (whit) : 각각의 길이는 얼마입니까? 얼마나 견고해야합니까? (문자열 내의 문자열?) –