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
151bdc83
Commit
151bdc83
authored
Jul 21, 1992
by
Jim Blandy
Browse files
*** empty log message ***
parent
0b0ef30f
Changes
3
Hide whitespace changes
Inline
Side-by-side
Showing
3 changed files
with
28 additions
and
31 deletions
+28
-31
lisp/frame.el
lisp/frame.el
+3
-3
lisp/play/blackbox.el
lisp/play/blackbox.el
+22
-27
src/lread.c
src/lread.c
+3
-1
No files found.
lisp/frame.el
View file @
151bdc83
...
...
@@ -245,15 +245,15 @@ configuration, and other parameters set as specified in CONFIGURATION."
;;;; Convenience functions for accessing and interactively changing
;;;; frame parameters.
(
defun
frame-
width
(
&optional
frame
)
(
defun
frame-
height
(
&optional
frame
)
"Return number of lines available for display on FRAME.
If FRAME is omitted, describe the currently selected frame."
(
cdr
(
assq
'
width
(
frame-parameters
frame
))))
(
cdr
(
assq
'
height
(
frame-parameters
frame
))))
(
defun
frame-width
(
&optional
frame
)
"Return number of columns available for display on FRAME.
If FRAME is omitted, describe the currently selected frame."
(
cdr
(
assq
'
height
(
frame-parameters
frame
))))
(
cdr
(
assq
'
width
(
frame-parameters
frame
))))
(
defun
set-frame-height
(
h
)
(
interactive
"NHeight: "
)
...
...
lisp/play/blackbox.el
View file @
151bdc83
...
...
@@ -81,27 +81,20 @@
(
define-key
blackbox-mode-map
"\C-e"
'bb-eol
)
(
define-key
blackbox-mode-map
"\C-a"
'bb-bol
)
(
define-key
blackbox-mode-map
" "
'bb-romp
)
(
define-key
blackbox-mode-map
[insert]
'bb-romp
)
(
define-key
blackbox-mode-map
"\C-m"
'bb-done
)
(
define-key
blackbox-mode-map
[kp-enter]
'bb-done
)
;; This is a kluge. What we really want is a general
;; feature for reminding terminal keys to the functions
;; corresponding to them in local maps
(
if
(
featurep
'keypad
)
(
let
(
keys
)
(
if
(
setq
keys
(
function-key-sequence
?u
))
; Up Arrow
(
define-key
blackbox-mode-map
keys
'bb-up
))
(
if
(
setq
keys
(
function-key-sequence
?d
))
; Down Arrow
(
define-key
blackbox-mode-map
keys
'bb-down
))
(
if
(
setq
keys
(
function-key-sequence
?l
))
; Left Arrow
(
define-key
blackbox-mode-map
keys
'bb-left
))
(
if
(
setq
keys
(
function-key-sequence
?r
))
; Right Arrow
(
define-key
blackbox-mode-map
keys
'bb-right
))
(
if
(
setq
keys
(
function-key-sequence
?e
))
; Enter
(
define-key
blackbox-mode-map
keys
'bb-done
))
(
if
(
setq
keys
(
function-key-sequence
?I
))
; Insert
(
define-key
blackbox-mode-map
keys
'bb-romp
))
)))
;; corresponding to them in local maps.
(
mapcar
(
function
(
lambda
(
funk
)
(
mapcar
(
function
(
lambda
(
key
)
(
define-key
blackbox-mode-map
key
funk
)))
(
where-is-internal
funk
))))
'
(
previous-line
next-line
backward-character
forward-character
)))
;; Blackbox mode is suitable only for specially formatted data.
(
put
'blackbox-mode
'mode-class
'special
)
...
...
@@ -139,9 +132,10 @@ your score.
Overview
of
play:
To play blackbox, call the function `blackbox'. An optional prefix
argument specifies the number of balls to be hidden in the box; the
default is four.
\\<blackbox-mode-map>
\
To
play
blackbox,
type
\\[blackbox].
An
optional
prefix
argument
specifies
the
number
of
balls
to
be
hidden
in
the
box
; the default is
four.
The
cursor
can
be
moved
around
the
box
with
the
standard
cursor
movement
keys.
...
...
@@ -150,14 +144,14 @@ To shoot a ray, move the cursor to the edge of the box and press SPC.
The
result
will
be
determined
and
the
playfield
updated.
You
may
place
or
remove
balls
in
the
box
by
moving
the
cursor
into
the
box and pressing \\
<
bb-romp
>
.
box
and
pressing
\\
[
bb-romp
]
.
When
you
think
the
configuration
of
balls
you
have
placed
is
correct,
press \\
<
bb-done
>
. You will be informed whether you are correct or
not, and
be given your score. Your score is the number of letters and
numbers
around the outside of the box plus five for each incorrectly
placed
ball. If you placed any balls incorrectly, they will be
indicated
with `x', and their actual positions indicated with `o'.
press
\\
[
bb-done
]
.
You
will
be
informed
whether
you
are
correct
or
not,
and
be
given
your
score.
Your
score
is
the
number
of
letters
and
numbers
around
the
outside
of
the
box
plus
five
for
each
incorrectly
placed
ball.
If
you
placed
any
balls
incorrectly,
they
will
be
indicated
with
`
x
',
and
their
actual
positions
indicated
with
`
o
'.
Details:
...
...
@@ -408,7 +402,8 @@ a reflection."
(
bb-update-board
c
)
(
1+
(
bb-show-bogus-balls-2
(
cdr
list-1
)
list-2
c
)))))
;; blackbox.el ends here
(
defun
bb-outside-box
(
x
y
)
(
or
(
=
x
-1
)
(
=
x
8
)
(
=
y
-1
)
(
=
y
8
)))
(
defun
bb-goto
(
pos
)
(
goto-char
(
+
(
*
(
car
pos
)
2
)
(
*
(
cdr
pos
)
22
)
26
)))
...
...
src/lread.c
View file @
151bdc83
...
...
@@ -1049,8 +1049,10 @@ isfloat_string (cp)
}
return
(
*
cp
==
0
&&
(
state
==
(
LEAD_INT
|
DOT_CHAR
|
TRAIL_INT
)
||
state
==
(
DOT_CHAR
|
TRAIL_INT
)
||
state
==
(
LEAD_INT
|
E_CHAR
|
EXP_INT
)
||
state
==
(
LEAD_INT
|
DOT_CHAR
|
TRAIL_INT
|
E_CHAR
|
EXP_INT
)));
||
state
==
(
LEAD_INT
|
DOT_CHAR
|
TRAIL_INT
|
E_CHAR
|
EXP_INT
)
||
state
==
(
DOT_CHAR
|
TRAIL_INT
|
E_CHAR
|
EXP_INT
)));
}
#endif
/* LISP_FLOAT_TYPE */
...
...
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