2008-07-24から1日間の記事一覧
(defface my-face-f-2 '((t (:foreground "LightSeaGreen"))) nil) (defvar my-face-f-2 'my-face-f-2) (defun my-dired-today-search (arg) "Fontlock search function for dired." (search-forward-regexp (concat (format-time-string "%m-%d" (current-t…