@yutoppはリンカ作成に失敗しました。

ytl-linker.el

(defun sort-lines-random (beg end)
  "Sort lines in region randomly."
  (interactive "r")
  (save-excursion
    (save-restriction
      (narrow-to-region beg end)
      (goto-char (point-min))
      (let ;; To make `end-of-line' and etc. to ignore fields.
          ((inhibit-field-text-motion t))
        (sort-subr nil 'forward-line 'end-of-line nil nil
                   (lambda (s1 s2) (eq (random 2) 0)))))))

(defun ytl-moushiwake-of-the-world ()
  (interactive)
  (sort-lines-random (point-min) (point-max))
  (message "リンカ作れませんでしたJP. 申し訳 of the world."))

(defun ytl-define-moushiwake-key (c)
  (global-set-key (read-kbd-macro (concat "C-" (string c)))   'ytl-moushiwake-of-the-world)
  (global-set-key (read-kbd-macro (concat "M-" (string c)))   'ytl-moushiwake-of-the-world)
  (global-set-key (read-kbd-macro (concat "C-M-" (string c))) 'ytl-moushiwake-of-the-world))

(defun ytl-make-linker ()
  (interactive)
  (loop for c from ?0 to ?9 do (ytl-define-moushiwake-key c))
  (loop for c from ?A to ?Z do (ytl-define-moushiwake-key c))
  (loop for c from ?a to ?z do (ytl-define-moushiwake-key c)))