[xyzzy:08375] Re: Emacs lisp移植キットのエラー

["Seiya Suda" <seiya.suda@xxxxxxxxxxx>]

前田さん、田家さん、みなさま、こんにちは。須田です。

動作報告ではないのですが、
たぶん含まれていないものとして以下があるかもしれません。

もしよかったらemacs.lについかしてください。


(defun int-char (i)
  (digit-char i))

;; まんまや
(defmacro save-match-data (&rest body)
  "Execute BODY forms, restoring the global value of the match data."
  (let ((original (make-symbol "match-data")))
	(list 'let (list (list original '(match-data)))
		  (list 'unwind-protect
				(cons 'progn body)
				(list 'store-match-data original)))))

(defun setcar (c-cell newcar)
  (setf (car c-cell) newcar)
  newcar)

(defun setcdr (c-cell newcdr)
  (setf (cdr c-cell) newcdr)
  newcdr)

;;; たぶん
(defun current-time-string ()
  (format-date-string "%a %b %d %H:%M:%S %Y" (get-universal-time)))


あと、recursive-editの使い方がわからないのですが。


------------------
須田誠也(Seiya Suda)
seiya.suda@xxxxxxxxxxx
http://member.nifty.ne.jp/seiya-suda/