home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / usenet / altsrcs / 2 / 2274 / gid.el < prev    next >
Encoding:
Text File  |  1990-12-28  |  788 b   |  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.