15:00 から野球の練習があったのだけど、お昼寝をしていて起きられなかった。あとから電話があってスポーツ用品店でのユニフォームの採寸と、その後の部室での打上げだけ参加。3連ちゃんは、ちょっと辛い。。。
<<....>> (require 'session) <<....>> (nconc session-globals-exclude '(w3m-input-url-history)) <<....>> (add-hook 'after-init-hook 'session-initialize)な感じ。他にもこういう変数があるような気がする。
(defun my-minibuffer-setup-function () (let ((case-fold-search nil) (home (concat "^" (regexp-quote (expand-file-name "~/")))) (hist (symbol-value minibuffer-history-variable)) elt lst rl rlst) (when (and (boundp 'recentf-list) (eq 'file-name-history minibuffer-history-variable)) (setq rl (copy-sequence recentf-list)) (while rl (if (string-match home (car rl)) (setq rlst (cons (concat "~/" (substring (car rl) (match-end 0))) rlst)) (setq rlst (cons (car rl) rlst))) (setq rl (cdr rl))) (setq hist (append hist (nreverse rlst)))) (let ((tmp hist)) (while tmp (setq tmp (setcdr tmp (delete (car tmp) (cdr tmp)))))) (set minibuffer-history-variable hist))) (add-hook 'minibuffer-setup-hook 'my-minibuffer-setup-function)ついでに history の list を uniq している。(これ毎回やるのはちょっと何なんだよな)
特に mew-win32 の話を 344さんにフォローしてもらうのは、我ながらなさけない。来週まで待て。
というので、久しぶりの日記を zaurus から。大場君、修正サンキュウ、antenna で更新を検知できましたよ。
昨日飲んでいたメンバ(会社の人)で、知合ってすでに 10年近く経っている人のことをずーーとぼくより年上だと思っていたら、ぼくより一つ下年下でびっくり。
しかも、そのうちに同じ高校出身ということが判明して二度びっくり。もう二度と「さんづけ」で呼ばない宣言をした。うちの会社で同じ高校出身は二人とも他にはだれも知らないので、結構うれしい。
最近の SPAM だが、
△ ko [おもてなしありがとうございました。奥様にもよろしくお伝えください。 ウリの漬物がとても美味しくて三人でパクリパクリと..]