home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #31 / NN_1992_31.iso / spool / gnu / emacs / sources / 911 < prev    next >
Encoding:
Text File  |  1992-12-26  |  2.1 KB  |  62 lines
  1. Newsgroups: gnu.emacs.sources
  2. Path: sparky!uunet!cis.ohio-state.edu!ittc.pgh.wec.COM!fpb
  3. From: fpb@ittc.pgh.wec.COM (Frank P. Bresz)
  4. Subject: compile.el Mods to 18.59
  5. Message-ID: <9212261511.AA14229@blatz.ittc.pgh.wec.com>
  6. Sender: daemon@cis.ohio-state.edu
  7. Organization: Westinghouse, ITTC, Pgh, PA.
  8. Distribution: gnu
  9. Date: Sat, 26 Dec 1992 15:11:40 GMT
  10. Lines: 50
  11.  
  12.  
  13. Having just built emacs 18.59.
  14.  
  15. I am once again putting in my local changes.
  16.  
  17. Here is the ones to compile.el to make grep act more like compile, i.e.
  18. remember what was done last.
  19.                     FPB }*{
  20.  
  21. fpb@blatz:lisp 103==>rcsdiff -c -r1.1 compile.el
  22. ===================================================================
  23. RCS file: RCS/compile.el_v
  24. retrieving revision 1.1
  25. diff -c -r1.1 compile.el
  26. *** /tmp/T0a14216    Sat Dec 26 10:10:38 1992
  27. --- compile.el    Sat Dec 26 10:06:25 1992
  28. ***************
  29. *** 56,68 ****
  30.     (setq compile-command command)
  31.     (compile1 compile-command "No more errors"))
  32.   
  33.   (defun grep (command)
  34.     "Run grep, with user-specified args, and collect output in a buffer.
  35.   While grep runs asynchronously, you can use the \\[next-error] command
  36.   to find the text that grep hits refer to."
  37. !   (interactive "sRun grep (with args): ")
  38. !   (compile1 (concat "grep -n " command " /dev/null")
  39. !         "No more grep hits" "grep"))
  40.   
  41.   (defun compile1 (command error-message &optional name-of-mode)
  42.     (save-some-buffers)
  43. --- 56,72 ----
  44.     (setq compile-command command)
  45.     (compile1 compile-command "No more errors"))
  46.   
  47. + (defvar grep-command "grep -n " 
  48. + "*Last shell command used to do a grep class command; 
  49. + default for next grep class command.")
  50. + 
  51.   (defun grep (command)
  52.     "Run grep, with user-specified args, and collect output in a buffer.
  53.   While grep runs asynchronously, you can use the \\[next-error] command
  54.   to find the text that grep hits refer to."
  55. !   (interactive (list (read-string "Run grep (with args) " grep-command)))
  56. !   (setq grep-command command)
  57. !   (compile1 (concat command " /dev/null") "No more grep hits" "grep"))
  58.   
  59.   (defun compile1 (command error-message &optional name-of-mode)
  60.     (save-some-buffers)
  61.  
  62.