;;; ~/junk/150308/150308055844.el のようなファイル名にする
(setq find-temp-file-directory "~/junk/")
;; 設定可能なもの
;; %N: prefix taken from `find-temp-file-prefix'
;; %S: shortened sha-1 of the extension
;; %T: shortened sha-1 of the extension + machine
;; %E: extension
;; %M: replace by mode name associated with the extension
;; %D: date with format %Y-%m-%d
;; ここで %d を指定できるように独自に定義
(setq find-temp-custom-spec
      '((?d . (lambda () (format-time-string "%y%m%d/%y%m%d%H%M%S")))))
(setq find-temp-template-default "%d.%E")
;;; 特定の拡張子のファイルでは別の形式のファイル名にできるが、不要だろう
(setq find-temp-template-alist nil)