*** empty log message ***

lisp/emacs-lisp/float.el

@@ -386,11 +386,10 @@ Optional second argument non-nil means use scientific notation."
 ;; 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 @@ are recognized."
 	   (funcall func exponent (aref powers-of-10 tens)))))
 		  
     _f0))				; if invalid, return 0
-
-

lisp/float-sup.el

@@ -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."

lisp/mail/rmailout.el

@@ -50,7 +50,9 @@ starting with the current one.  Deleted messages are skipped and don't count."
 			    (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 @@ starting with the current one.  Deleted messages are skipped and don't count."
 		    ": "))			
 	  (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))