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
1d8d96fa
Commit
1d8d96fa
authored
Jul 28, 1991
by
Jim Blandy
Browse files
*** empty log message ***
parent
83b2229f
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
25 additions
and
13 deletions
+25
-13
src/keymap.c
src/keymap.c
+19
-12
src/window.c
src/window.c
+6
-1
No files found.
src/keymap.c
View file @
1d8d96fa
...
...
@@ -142,10 +142,11 @@ synkey (frommap, fromchar, tomap, tochar)
DEFUN
(
"keymapp"
,
Fkeymapp
,
Skeymapp
,
1
,
1
,
0
,
"Return t if ARG is a keymap.
\n
\
A keymap is list (keymap . ALIST), where alist elements look like
(CHAR . DEFN) or (SYMBOL . DEFN), or a list (keymap VECTOR . ALIST)
where VECTOR is a 128-element vector of bindings for ASCII characters,
and ALIST is as above."
)
\n
\
A keymap is list (keymap . ALIST), a list (keymap VECTOR . ALIST),
\n
\
or a symbol whose function definition is a keymap is itself a keymap.
\n
\
ALIST elements look like (CHAR . DEFN) or (SYMBOL . DEFN);
\n
\
VECTOR is a 128-element vector of bindings for ASCII characters."
)
(
object
)
Lisp_Object
object
;
{
...
...
@@ -335,7 +336,9 @@ DEFUN ("copy-keymap", Fcopy_keymap, Scopy_keymap, 1, 1, 0,
"Return a copy of the keymap KEYMAP.
\n
\
The copy starts out with the same definitions of KEYMAP,
\n
\
but changing either the copy or KEYMAP does not affect the other.
\n
\
Any key definitions that are subkeymaps are recursively copied."
)
Any key definitions that are subkeymaps are recursively copied.
\n
\
However, a key definition which is a symbol whose definition is a keymap
\n
\
is not copied."
)
(
keymap
)
Lisp_Object
keymap
;
{
...
...
@@ -357,9 +360,10 @@ Any key definitions that are subkeymaps are recursively copied.")
table
=
Fcopy_sequence
(
table
);
for
(
i
=
0
;
i
<
DENSE_TABLE_SIZE
;
i
++
)
if
(
!
NULL
(
Fkeymapp
(
XVECTOR
(
table
)
->
contents
[
i
])))
XVECTOR
(
table
)
->
contents
[
i
]
=
Fcopy_keymap
(
XVECTOR
(
table
)
->
contents
[
i
]);
if
(
XTYPE
(
XVECTOR
(
copy
)
->
contents
[
i
])
!=
Lisp_Symbol
)
if
(
!
NULL
(
Fkeymapp
(
XVECTOR
(
table
)
->
contents
[
i
])))
XVECTOR
(
table
)
->
contents
[
i
]
=
Fcopy_keymap
(
XVECTOR
(
table
)
->
contents
[
i
]);
XCONS
(
tail
)
->
car
=
table
;
tail
=
XCONS
(
tail
)
->
cdr
;
...
...
@@ -372,7 +376,9 @@ Any key definitions that are subkeymaps are recursively copied.")
register
Lisp_Object
elt
;
elt
=
XCONS
(
tail
)
->
car
;
if
(
CONSP
(
elt
)
&&
!
NULL
(
Fkeymapp
(
XCONS
(
elt
)
->
cdr
)))
if
(
CONSP
(
elt
)
&&
XTYPE
(
XCONS
(
elt
)
->
cdr
)
!=
Lisp_Symbol
&&
!
NULL
(
Fkeymapp
(
XCONS
(
elt
)
->
cdr
)))
XCONS
(
elt
)
->
cdr
=
Fcopy_keymap
(
XCONS
(
elt
)
->
cdr
);
tail
=
XCONS
(
tail
)
->
cdr
;
...
...
@@ -667,8 +673,9 @@ KEY is a string representing a sequence of keystrokes.")
DEFUN
(
"define-prefix-command"
,
Fdefine_prefix_command
,
Sdefine_prefix_command
,
1
,
2
,
0
,
"Define COMMAND as a prefix command.
\n
\
A new sparse keymap is stored as COMMAND's function definition and its value.
\n
\
If a second optional argument MAPVAR is given, the map is stored as its
\n
\
value instead of as COMMAND's value; but COMMAND is still defined as a function."
)
If a second optional argument MAPVAR is given, the map is stored as
\n
\
its value instead of as COMMAND's value; but COMMAND is still defined
\n
\
as a function."
)
(
name
,
mapvar
)
Lisp_Object
name
,
mapvar
;
{
...
...
@@ -959,7 +966,7 @@ Control characters turn into C-whatever, etc.")
return
Fsymbol_name
(
key
);
case
Lisp_Cons
:
/* Mouse event */
key
=
XCONS
(
key
)
->
c
d
r
;
key
=
XCONS
(
key
)
->
c
a
r
;
if
(
XTYPE
(
key
)
==
Lisp_Symbol
)
return
Fsymbol_name
(
key
);
/* Mouse events should have an identifying symbol as their car;
...
...
src/window.c
View file @
1d8d96fa
...
...
@@ -1321,7 +1321,7 @@ set_window_width (window, width, nodelete)
}
}
static
int
window_select_count
;
int
window_select_count
;
DEFUN
(
"set-window-buffer"
,
Fset_window_buffer
,
Sset_window_buffer
,
2
,
2
,
0
,
"Make WINDOW display BUFFER as its contents.
\n
\
...
...
@@ -2575,6 +2575,11 @@ init_window_once ()
Fset_window_buffer
(
minibuf_window
,
get_minibuffer
(
0
));
selected_window
=
root_window
;
/* Make sure this window seems more recently used than
a newly-created, never-selected window. Increment
window_select_count so the first selection ever will get
something newer than this. */
XFASTINT
(
XWINDOW
(
selected_window
)
->
use_time
)
=
++
window_select_count
;
#endif
/* not MULTI_SCREEN */
}
...
...
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