From a0f7cb2db4c51a4a0fed37fde7f1992aec0cc9bb Mon Sep 17 00:00:00 2001 From: Greg McGary Date: Fri, 18 Apr 1997 06:32:28 +0000 Subject: Initial revision --- gid.el | 22 ++++++++++++++++++++++ 1 file changed, 22 insertions(+) create mode 100644 gid.el (limited to 'gid.el') diff --git a/gid.el b/gid.el new file mode 100644 index 0000000..c5e0e2f --- /dev/null +++ b/gid.el @@ -0,0 +1,22 @@ +;;; put this in your GnuEmacs startup file '~/.emacs' . +;;; or autoload it from some other file. -wsr + +(require 'symfunc) + +(defun gid (command) + "Run gid, with user-specified args, and collect output in a buffer. +While gid runs asynchronously, you can use the \\[next-error] command +to find the text that gid hits refer to." + (interactive (list (read-input "Run gid (with args): " + (symbol-around-point)))) + (require 'compile) + (setq command (concat "gid " command)) + (compile1 command "No more gid hits" command)) + +(defun aid (command) + "Run aid, with user-specified args, and collect output in a buffer." + (interactive (list (read-input "Run aid (with args): " + (symbol-around-point)))) + (require 'compile) + (setq command (concat "aid " command)) + (compile1 command "No aid hits" command)) -- cgit v1.2.3