>>788
それでわかるのは既に知ってるヤツだけだぜ。 orz
こんな感じでいいのかな。 >>760

(defun right-lines-region (b e)
(interactive "r")
(let ((paragraph-start "$")
(paragraph-separete "$")
(fill-column (apply 'max
(mapcar 'string-width
(split-string (buffer-substring-no-properties b e)
"\n")))))
(set-justification-right b e)))