* xyzzy lisp : なんとなく
(defun sort-by-column-region (beg end &optional (f #'<))
(interactive "*r")
(let ((lines (split-string (buffer-substring beg end) #\LFD t))
(pred #'(lambda (x y) (funcall f (length x) (length y)))))
(setq lines (sort lines pred))
(goto-char (min beg end))
(delete-region beg end)
(insert (format nil "~{~A~%~}" lines))))
update : 2006-08-15 (Tue) 22:26:24
Source of Nothingness
NANRI
NANRI