[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[mhc:02136] Re: mhc と howm の設定について

寺西様：

田中です．

ご提案いただいたスクリプトを早速組み込んでみました．
私の要求は完璧に実現されており，満足です．
ありがとうございました．

ところで，先日白井様が，


ちなみにいろいろと都合があって、上記のコードが MHC に採用される
ことはないでしょう。

と仰ってられましたが，どのバッファからでも\C-c..でmhcが起動するようにすると何か悪い副作用が
あるのでしょうか？
同じキーバインドを使う，環境があると問題でしょうが．．．




こんなんでいかがでしょう。

(define-key global-map "\C-c.." 'my-goto-mhc)

(defun my-goto-mhc ()
  (interactive)
  (let ((wlbuf (catch 'done
		 (dolist (buf (buffer-list))
		   (when (and (buffer-name buf)
			      (string-match "Folder" (buffer-name buf)))
		     (throw 'done buf))))))
    (if wlbuf
	(switch-to-buffer wlbuf)
      (wl t))
    (mhc-goto-this-month)))

--
Yuuichi Teranishi <teranisi@xxxxxxxxxx>
http://www.gohome.org/teranisi
"There's nothing you can do that can't be done."



-----------------------------------------------------------------

Takuo Tanaka, Ph. D.

RIKEN (The Institute of Physical and Chemical Research)
Nanophotonics Laboratory
Phone: 048-462-1111  ext. 8553
Fax:    048-467-9170
e-mail:  t-tanaka@xxxxxxxx