Source of Nothingness - emacs lisp :

* emacs lisp :

なんでaproposが無いんだろってことで

(setq inferior-lisp-load-hook
      (function (lambda ()

(defvar lisp-apropos-sym-command
  "(apropos '%s)\n"
  "Command to query inferior Lisp for a variable's documentation.")

(defun lisp-apropos-sym (sym)
  "Send a command to the inferior Lisp to apropos symbol SYM.
See variable `lisp-apropos-sym-command'."
  (interactive (lisp-symprompt "Apropos" (lisp-var-at-pt)))
  (comint-proc-query (inferior-lisp-proc)
		     (format lisp-apropos-sym-command sym)))
(define-key inferior-lisp-mode-map "\C-c\C-q" 'lisp-apropos-sym)
(define-key lisp-mode-map "\C-c\C-q" 'lisp-apropos-sym)

))
      )

update : 2006-03-05 (Sun) 06:10:09