* scratch-read-major-mode: Sort shorter mode names first.