2012-03-28から1日間の記事一覧
こんな関数を定義してみるのはどうだろう. ;;; printデバッグ用関数 (defun p (FORMAT-STRING &rest ARGS) (prog1 (apply 'message FORMAT-STRING ARGS) (sit-for 3))) ;;; 例 (setq num 10) (p "num: %d" num) ; => "num: 10" (message "num: %d" num) ; =…
こんな関数を定義してみるのはどうだろう. ;;; printデバッグ用関数 (defun p (FORMAT-STRING &rest ARGS) (prog1 (apply 'message FORMAT-STRING ARGS) (sit-for 3))) ;;; 例 (setq num 10) (p "num: %d" num) ; => "num: 10" (message "num: %d" num) ; =…