home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / misc / volume1 / 8710 / 11 < prev    next >
Lisp/Scheme  |  1990-07-13  |  2KB  |  66 lines
  1. Path: uunet!husc6!spdcc!m2c!necntc!ncoast!allbery
  2. From: gmcgary@SUN.COM@kumquat.UUCP (Greg Mcgary - Sun ECD Software)
  3. Newsgroups: comp.sources.misc
  4. Subject: Gnumacs code for ID stuff
  5. Message-ID: <4865@ncoast.UUCP>
  6. Date: 14 Oct 87 00:20:39 GMT
  7. Sender: allbery@ncoast.UUCP
  8. Lines: 54
  9. Approved: allbery@ncoast.UUCP
  10. X-Archive: comp.sources.misc/8710/11
  11.  
  12. This comes from Wolfgang Rupprecht, with whom I used to work at
  13. Lisp Machine Inc. in Cambridge.
  14.  
  15. It's a gnuemacs command for perusing sources with the aid of the ID
  16. database.  It takes advantage of the fact that
  17. `gid' produces lines in the same format as /lib/cpp error messages.
  18. The `gid' emacs command runs `gid' the program and lets you examine
  19. the results as you would ordinary compiler error messages.  I haven't
  20. tested this personally, but I know that Wolfgang has been using it for
  21. quite some time now. (Almost a year)
  22.  
  23. I would appreciate it if you could post this as an addendum to ID.
  24.  
  25. Thank you!
  26.  
  27. --Greg McGary--
  28.  
  29. PS: Wolfgang says `Hi!'
  30.  
  31. ----- Begin Forwarded Message -----
  32.  
  33. Here is a present for your 'ids' package. 
  34.  
  35.         -wolfgang 
  36.  
  37. ;;; put this in your GnuEmacs startup file  '~/.emacs' .
  38. ;;; or autoload it from some other file. -wsr
  39. (global-set-key "\e/" 'gid) ; sort of Meta-.
  40.  
  41. (defun gid (command)
  42.   "Run gid, with user-specified args, and collect output in a buffer.
  43. While gid runs asynchronously, you can use the \\[next-error] command
  44. to find the text that gid hits refer to."
  45.   (interactive (list (read-input "Run gid (with args): "
  46.                  (word-around-point))))
  47.   (compile1 (concat "gid " command)
  48.         "No more gid hits" "gid"))
  49.  
  50. (defun word-around-point ()
  51.   "return the word around the point as a string"
  52.   (save-excursion
  53.     (let (beg)
  54.       (if (not (looking-at "\\<"))
  55.       (forward-word -1))
  56.       (setq beg (point))
  57.       (forward-word 1)
  58.       (buffer-substring beg (point)))))
  59.  
  60. ---
  61. Wolfgang Rupprecht           UUCP: mirror!mit-mgm!wolfgang
  62. <add us to your host table>    ARPA: wolfgang@mgm.mit.edu (IP addr 18.82.0.114)
  63.  
  64.  
  65. ----- End Forwarded Message -----
  66.