home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume24 / mkid2 / part01 / gid.el < prev    next >
Lisp/Scheme  |  1991-10-09  |  788b  |  29 lines
  1. ;;; put this in your GnuEmacs startup file  '~/.emacs' .
  2. ;;; or autoload it from some other file. -wsr
  3.  
  4. (require 'symfunc)
  5.  
  6. (defun gid (command)
  7.   "Run gid, with user-specified args, and collect output in a buffer.
  8. While gid runs asynchronously, you can use the \\[next-error] command
  9. to find the text that gid hits refer to."
  10.   (interactive (list (read-input "Run gid (with args): "
  11.                  (symbol-around-point))))
  12.   (require 'compile)
  13.   (compile1
  14.      (concat "gid " command)
  15.      "No more gid hits" "gid"
  16.   )
  17. )
  18.  
  19. (defun aid (command)
  20.   "Run aid, with user-specified args, and collect output in a buffer."
  21.   (interactive (list (read-input "Run aid (with args): "
  22.                  (symbol-around-point))))
  23.   (require 'compile)
  24.   (compile1
  25.      (concat "aid -k " command)
  26.      "No aid hits" "aid"
  27.   )
  28. )
  29.