# HG changeset patch
# User Jim Blandy <jimb@redhat.com>
# Date 667864553 0
# Node ID ae5ace097df24355f7a7421717dbd1253b3dc464
# Parent  dc13943c8be0dbf52f09b0ff4c182f70cb729919
*** empty log message ***

diff -r dc13943c8be0 -r ae5ace097df2 lisp/emacs-lisp/float.el
--- a/lisp/emacs-lisp/float.el	Thu Feb 28 21:45:11 1991 +0000
+++ b/lisp/emacs-lisp/float.el	Fri Mar 01 21:55:53 1991 +0000
@@ -386,11 +386,10 @@
 ;; digits of the exponent.
 (defun string-to-float (str)
   "Convert the string to a floating point number.
-Accepts a decimal string in scientific notation, 
-with exponent preceded by either E or e.
-Only the 6 most significant digits of the integer and fractional parts
-are used; only the first two digits of the exponent are used.
-Negative signs preceding both the decimal number and the exponent
+Accepts a decimal string in scientific notation,  with exponent preceded
+by either E or e.  Only the six most significant digits of the integer
+and fractional parts are used; only the first two digits of the exponent
+are used.  Negative signs preceding both the decimal number and the exponent
 are recognized."
 
   (if (string-match floating-point-regexp str 0)
@@ -447,5 +446,3 @@
 	   (funcall func exponent (aref powers-of-10 tens)))))
 		  
     _f0))				; if invalid, return 0
-
-
diff -r dc13943c8be0 -r ae5ace097df2 lisp/float-sup.el
--- a/lisp/float-sup.el	Thu Feb 28 21:45:11 1991 +0000
+++ b/lisp/float-sup.el	Fri Mar 01 21:55:53 1991 +0000
@@ -42,8 +42,7 @@
 (defconst radians-to-degrees (/ 180.0 pi)
   "Radian to degree conversion constant")
 
-;; these expand to a single multiply by a float
-;; when byte compiled
+;; these expand to a single multiply by a float when byte compiled
 
 (defmacro degrees-to-radians (x)
   "Convert ARG from degrees to radians."
diff -r dc13943c8be0 -r ae5ace097df2 lisp/mail/rmailout.el
--- a/lisp/mail/rmailout.el	Thu Feb 28 21:45:11 1991 +0000
+++ b/lisp/mail/rmailout.el	Fri Mar 01 21:55:53 1991 +0000
@@ -50,7 +50,9 @@
 			    (setq tail (cdr tail))))
 			;; If not suggestions, use same file as last time.
 			(or answer rmail-last-rmail-file)))))
-  (setq file-name (expand-file-name file-name))
+  (setq file-name
+	(expand-file-name file-name
+			  (file-name-directory rmail-last-rmail-file)))
   (setq rmail-last-rmail-file file-name)
   (rmail-maybe-set-message-counters)
   (or (get-file-buffer file-name)
@@ -129,7 +131,10 @@
 		    ": "))			
 	  (and rmail-last-file (file-name-directory rmail-last-file))
 	  rmail-last-file)))
-  (setq file-name (expand-file-name file-name))
+  (setq file-name
+	(expand-file-name file-name
+			  (and rmail-last-file
+			       (file-name-directory rmail-last-file))))
   (setq rmail-last-file file-name)
   (while (> count 0)
     (let ((rmailbuf (current-buffer))