KOF に来ています。

November 10, 2018

本日、KOF2018に来ています。とても楽しいです。
行番号付きのソースブロックを作ります。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10


(defun ad:emacs-init-time ()
  "Return a string giving the duration of the Emacs initialization."
  (interactive)
  (let ((str
         (format "%.3f seconds"
                 (float-time
                  (time-subtract after-init-time before-init-time)))))
    (if (called-interactively-p 'interactive)
        (message "%s" str)
      str)))

付けない場合はこちら。

(defun ad:emacs-init-time ()
  "Return a string giving the duration of the Emacs initialization."
  (interactive)
  (let ((str
         (format "%.3f seconds"
                 (float-time
                  (time-subtract after-init-time before-init-time)))))
    (if (called-interactively-p 'interactive)
        (message "%s" str)
      str)))