08/04/13 06:49:08 HCn+Jn9c0
>>624
watch.lはグローバル変数などの値を確認するのに便利だよ。
Esc Escとしてミニバッファに変数を入力してEnterが面倒だったので。
自分としてはこんなのを書いて右クリックから確認できるようにしている（ldoc.lが必要）
;; 変数の値を表示
(defun get-variable-value ()
(interactive)
(let (from to name sym)
(save-excursion
(skip-syntax-spec-forward "w_.")
(setq to (point))
(skip-syntax-spec-backward "w_.")
(setq from (point))
(setq name (buffer-substring from to)))
(and (setq sym (ed::ldoc-find-symbol name))
(boundp sym)
(popup-string (format nil "~S" (symbol-value sym)) (point)))))
(defun add-menu-gvv ()
(let ((menu *app-popup-menu*))
(add-menu-item menu nil "変数の値を表示(&H)" 'get-variable-value)))
(add-hook '*init-app-menus-hook* 'add-menu-gvv)
後lpp.lを導入して
(define-key ed::*lisp-mode-map* '(#\C-c #\LFD) 'pprint-eval-print-last-sexp)
(define-key ed::*lisp-interaction-mode-map* #\LFD 'pprint-eval-print-last-sexp)
として*scratch*バッファ以外でもC-c C-jで関数・変数の評価ができるようにしている。
lpp.lがなければ
(define-key ed::*lisp-mode-map* '(#\C-c #\LFD) 'eval-print-last-sexp)
とか。