[xyzzy:00195] Re: apropos???

[Tetsuya Kamei <kamei@xxxxxxxxxxxx>]

    Thu, 20 Aug 1998 09:05:50 +0900 の
   “[xyzzy:00192] Re: apropos???”
    への返事です.


| イジワル^^;  c++-modeで動くようにならない？

わがままだなぁ(^^;

(defun apropos (string)
  (interactive "sApropos(Regexp): ")
  (long-operation
    (message "Building apropos list...")
    (let ((local-keymap (local-keymap)))
      (with-output-to-temp-buffer ("*Help*")
	(dolist (x (sort (ed::apropos-internal (regexp-quote string)) #'string<))
	  (prin1 x)
	  (when (commandp x)
	    (let ((keys (command-keys x *global-keymap* local-keymap)))
	      (when keys
		(format t "~40T")
		(ed::print-key-sequence keys))))
	  (terpri))))
    (message "Building apropos list...done")))


| 59日もあったっけ？

あることにしといてください(^^;

--
亀井哲弥(Tetsuya Kamei)
kamei@xxxxxxxxxxxx/JCA00343@xxxxxxxxxxx