🚀 go-pugleaf

Having just built emacs 18.59.

I am once again putting in my local changes.

Here is the ones to compile.el to make grep act more like compile, i.e.
remember what was done last.
					FPB }*{

fpb@blatz:lisp 103==>rcsdiff -c -r1.1 compile.el
===================================================================
RCS file: RCS/compile.el_v
retrieving revision 1.1
diff -c -r1.1 compile.el
*** /tmp/T0a14216	Sat Dec 26 10:10:38 1992
--- compile.el	Sat Dec 26 10:06:25 1992
***************
*** 56,68 ****
    (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)
--- 56,72 ----
    (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)