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

[mhc:00683] Re: TSU_SPEED のマージの前に



From: Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00682] Re: TSU_SPEED のマージの前に
Message-ID: <20000601160322P.nom@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 1 Jun 2000 16:03:25 +0900

乃村> 長々とすみません。おかげさまで、僕の中では、
乃村> ほとんどクリアになりました。

## 私はまったく理解できていません ^^;;;

乃村> いつでも TSU_SPEED を幹にマージしても大丈夫です。

mhc-calendar の最後(?)の修正をしたので、あとでそれを commit し
て、私も TSU_SPEED に乗り換えます。

乃村> # defmacro 問題はしばらくごめん、ってことで。

私は逆に新しい構文の defmacro が書けないので泣いていたら、こんな
ものを教えてもらいました。

# 原典は小林修平さんらしいです。

(defun convert-to-old-backquote ()
  (interactive)
  (let ((print-quoted nil))
    (forward-sexp)
    (forward-sexp -1)
    (push-mark)
    (princ (read (current-buffer))
	   (current-buffer))
    (forward-sexp -1)
    (kill-region (point)(mark t))))

(defun convert-to-new-backquote ()
  (interactive)
  (let ((print-quoted t))
    (forward-sexp)
    (forward-sexp -1)
    (push-mark)
    (princ (read (current-buffer))
	   (current-buffer))
    (forward-sexp -1)
    (kill-region (point)(mark t))))

で、例えば、

(defmacro mhc-day-year (dayinfo)
  `(car (mhc-day/key ,dayinfo)))

の最初の '(' にカーソルを置いて 'M-x convert-to-old-backquote'
すると

(defmacro mhc-day-year (dayinfo) (` (car (mhc-day/key (, dayinfo)))))

となります。改行が無くなりますが、それでも全然楽ちんです。

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxxxxxxxx)