Commit 3bfd7edb authored by Jim Blandy's avatar Jim Blandy
Browse files

*** empty log message ***

parent 56d506fc
......@@ -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
......@@ -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."
......
......@@ -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))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment