*** calc-maint.el~	Tue Mar 12 17:33:18 1996
--- calc-maint.el	Sun Sep 22 02:05:23 1996
***************
*** 170,174 ****
  )
  
! (defun calc-compile-write-region (start end filename &optional append visit)
    (if (eq visit t)
        (set-buffer-auto-saved))
--- 170,174 ----
  )
  
! (defun calc-compile-write-region (start end filename &optional append visit &rest rest)
    (if (eq visit t)
        (set-buffer-auto-saved))
***************
*** 181,185 ****
  	    (replace-match ""))
  	(setq end (point-max))))
!   (funcall old-write-region start end filename append 'quietly)
    (message "Wrote %s" filename)
    nil
--- 181,185 ----
  	    (replace-match ""))
  	(setq end (point-max))))
!   (apply old-write-region start end filename append 'quietly rest)
    (message "Wrote %s" filename)
    nil
***************
*** 455,459 ****
  \(autoload 'calc-grab-region	   \"calc\" \"Grab region of Calc data\" t)
  \(autoload 'calc-grab-rectangle	   \"calc\" \"Grab rectangle of data\" t)
! \(setq load-path (append load-path (list \"" (directory-file-name home) "\")))
  \(global-set-key \"\\e#\" 'calc-dispatch)
  ;;; End of Calc autoloads.\n")
--- 455,459 ----
  \(autoload 'calc-grab-region	   \"calc\" \"Grab region of Calc data\" t)
  \(autoload 'calc-grab-rectangle	   \"calc\" \"Grab rectangle of data\" t)
! \(setq load-path (nconc load-path (list \"" (directory-file-name home) "\")))
  \(global-set-key \"\\e#\" 'calc-dispatch)
  ;;; End of Calc autoloads.\n")
*** Makefile~	Tue Jun  1 06:35:49 1993
--- Makefile	Sun Sep 22 02:11:35 1996
***************
*** 14,19 ****
  
  # You should have received a copy of the GNU General Public License
! # along with this program; see the file COPYING.  If not, write to
! # the Free Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  
  
--- 14,20 ----
  
  # You should have received a copy of the GNU General Public License
! # along with GNU Emacs; see the file COPYING.  If not, write to the
! # Free Software Foundation, Inc., 59 Temple Place - Suite 330,
! # Boston, MA 02111-1307, USA.
  
  
*** calc.el~	Sat Apr  2 19:27:01 1994
--- calc.el	Sun Sep 22 16:11:00 1996
***************
*** 681,686 ****
    (put 'math-underflow 'error-message "Floating-point underflow occurred")
    
!   (setq calc-version "2.02c"
! 	calc-version-date "Tue Mar 22 1994"
  	calc-trail-pointer nil		; "Current" entry in trail buffer.
          calc-trail-overlay nil		; Value of overlay-arrow-string.
--- 681,686 ----
    (put 'math-underflow 'error-message "Floating-point underflow occurred")
    
!   (setq calc-version "2.02e"
! 	calc-version-date "Tue Sep 22 1996"
  	calc-trail-pointer nil		; "Current" entry in trail buffer.
          calc-trail-overlay nil		; Value of overlay-arrow-string.