* 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