mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-26 07:33:47 +00:00
Code Issues Releases Activity

*** empty log message ***

Browse Source
This commit is contained in:
Jim Blandy 1991-03-01 21:55:53 +00:00
parent 56d506fcff
commit 3bfd7edbe7
3 changed files with 12 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
lisp/emacs-lisp/float.el
View File

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

3
lisp/float-sup.el
View File

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

9
lisp/mail/rmailout.el
View File

@ -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))