[mew-dist 29199] Re: 共通のmew.elファイルの設定をホスト毎にカスタマイズする方法

Takashi Masuda (増田貴士) <[email protected]> Fri, 09 Apr 2010 20:49:10 +0900 (JST)

Newsgroups	gmane.mail.mew.general.japanese
Message-ID	<[email protected]>


On Fri, 09 Apr 2010 08:40:32 +0900 (JST)
Hideyuki SHIRAI () <[email protected]> wrote:

> default-case mew-config-alist 
> 




(1)  ~/.emacs 

;; mew-lisp-load() 
(defun my-lisp-load (filename)
  "Load lisp from FILENAME"
  (let ((fullname (expand-file-name filename "~/.spec"))
        lisp)
    (when (file-readable-p fullname)
      (with-temp-buffer
        (progn
          (insert-file-contents fullname)
          (setq lisp 
                (condition-case nil
                    (read (current-buffer))
                  (error ()))))))
    lisp))

(2) ~/.mew.el 

   (setq mew-hogehoge (my-lisp-load "mew-hogehoge"))

(3)  A  B  ~/.spec/mew-hogehoge 
    mew-hogehoge 

   (("hoge"
     (aaa . AAA)
     (bbb . BBB))
    ("hugahuga"
     (xxx . XXX)
     (yyy . YYY)))

--
Takashi Masuda <[email protected]>