Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
3bfd7edb
Commit
3bfd7edb
authored
Mar 01, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
56d506fc
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
12 additions
and
11 deletions
+12
-11
lisp/emacs-lisp/float.el
lisp/emacs-lisp/float.el
+4
-7
lisp/float-sup.el
lisp/float-sup.el
+1
-2
lisp/mail/rmailout.el
lisp/mail/rmailout.el
+7
-2
No files found.
lisp/emacs-lisp/float.el
View file @
3bfd7edb
...
...
@@ -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
View file @
3bfd7edb
...
...
@@ -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
View file @
3bfd7edb
...
...
@@ -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
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment