🚀 go-pugleaf

>[And M-x grep needs to give you the last `grep' string too, as I mentioned
>a while back.]

>[vers 18.55]
>Dan_Jacobson@ATT.COM  Naperville IL USA  +1 708-979-6364

	Fixed.  Here is a patch to compile.el.  Kludgey until it gets
merged with loaddefs.el.


					Frank P. Bresz }*{
					ITTC Network Administrator
+--------------------+
|fbresz@ittc.wec.com |  My opinions are my own, I'm not paid
|uunet!ittc!fbresz   |  enough to make an official statement  
|(412)733-6749       |  +-----------------------------------+
|Fax: (412)733-6444  |  |      THIS SPACE FOR SALE!!!       |
+--------------------+  +-----------------------------------+

*** compile.el~	Mon Jul 16 11:10:49 1990
--- compile.el	Mon Jul 16 11:57:09 1990
***************
*** 57,69 ****
    (setq compile-command command)
    (compile1 compile-command "No more errors"))
  
  (defun grep (command)
    "Run grep, with user-specified args, and collect output in a buffer.
  While grep runs asynchronously, you can use the \\[next-error] command
  to find the text that grep hits refer to."
!   (interactive "sRun grep (with args): ")
!   (compile1 (concat "grep -n " command " /dev/null")
! 	    "No more grep hits" "grep"))
  
  (defun compile1 (command error-message &optional name-of-mode)
    (save-some-buffers)
--- 57,73 ----
    (setq compile-command command)
    (compile1 compile-command "No more errors"))
  
+ (defvar grep-command "grep -n " 
+ "*Last shell command used to do a grep class command; 
+ default for next grep class command.")
+ 
  (defun grep (command)
    "Run grep, with user-specified args, and collect output in a buffer.
  While grep runs asynchronously, you can use the \\[next-error] command
  to find the text that grep hits refer to."
!   (interactive (list (read-string "Run grep (with args) " grep-command)))
!   (setq grep-command command)
!   (compile1 (concat command " /dev/null") "No more grep hits" "grep"))
  
  (defun compile1 (command error-message &optional name-of-mode)
    (save-some-buffers)