Mercurial > emacs
changeset 202:ae5ace097df2
*** empty log message ***
| author | Jim Blandy <jimb@redhat.com> |
|---|---|
| date | Fri, 01 Mar 1991 21:55:53 +0000 |
| parents | dc13943c8be0 |
| children | bc3eeb2182c8 |
| files | lisp/emacs-lisp/float.el lisp/float-sup.el lisp/mail/rmailout.el |
| diffstat | 3 files changed, 12 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- 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 - -
--- 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."
--- 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))