Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
lyskom-elisp-client
lyskom-elisp-client
Commits
12da63be
Commit
12da63be
authored
May 25, 1993
by
Linus Tolke
Browse files
emacs19s keymaps supported.
parent
9a245db0
Changes
3
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
12da63be
No preview for this file type
src/completing-read.el
View file @
12da63be
...
...
@@ -413,15 +413,23 @@ parst matching ([^)]) in string and alist are disgarded."
(
if
lyskom-initial-completing-map
nil
(
setq
lyskom-initial-completing-map
(
make-keymap
))
(
if
(
fboundp
'map-keymap
)
;lucid-emacs' way of doing things.
(
map-keymap
(
function
(
lambda
(
keydesc
binding
)
(
define-key
lyskom-initial-completing-map
keydesc
'lyskom-hack-minibuf
)))
global-map
)
(
cond
((
fboundp
'map-keymap
)
;lucid-emacs' way of doing things.
(
map-keymap
(
function
(
lambda
(
keydesc
binding
)
(
define-key
lyskom-initial-completing-map
keydesc
'lyskom-hack-minibuf
)))
global-map
))
((
string-match
"^19"
emacs-version
)
(
let
((
i
(
length
(
car
(
cdr
lyskom-initial-completing-map
)))))
(
while
(
>=
(
setq
i
(
1-
i
))
0
)
(
aset
(
car
(
cdr
lyskom-initial-completing-map
))
i
'lyskom-hack-minibuf
)))
)
(
t
; emacs-18.
(
let
((
i
(
length
lyskom-initial-completing-map
)))
(
while
(
>=
(
setq
i
(
1-
i
))
0
)
(
aset
lyskom-initial-completing-map
i
'lyskom-hack-minibuf
))))
(
aset
lyskom-initial-completing-map
i
'lyskom-hack-minibuf
))))
)
(
define-key
lyskom-initial-completing-map
"\C-g"
'lyskom-complete-quit
))
...
...
src/edit-text.el
View file @
12da63be
...
...
@@ -746,17 +746,28 @@ BUG: does not descend in the maps."
(
lambda
(
event
function
)
(
define-key
map
event
function
)))
newmap
))
((
arrayp
newmap
)
(
while
(
<
r
(
length
newmap
))
(
if
(
aref
newmap
r
)
(
define-key
map
(
char-to-string
r
)
(
aref
newmap
r
)))
(
setq
r
(
1+
r
))))
(
t
(
mapcar
(
function
(
lambda
(
ele
)
(
define-key
map
(
char-to-string
(
car
ele
))
(
cdr
ele
))))
(
cdr
newmap
))))
((
and
(
string-match
"^19"
emacs-version
)
(
arrayp
(
car
(
cdr
newmap
))))
(
while
(
<
r
(
length
(
car
(
cdr
newmap
))))
(
if
(
aref
(
car
(
cdr
newmap
))
r
)
(
define-key
map
(
char-to-string
r
)
(
aref
(
car
(
cdr
newmap
))
r
)))
(
setq
r
(
1+
r
))))
((
arrayp
newmap
)
(
while
(
<
r
(
length
newmap
))
(
if
(
aref
newmap
r
)
(
define-key
map
(
char-to-string
r
)
(
aref
newmap
r
)))
(
setq
r
(
1+
r
))))
(
t
(
mapcar
(
function
(
lambda
(
ele
)
(
define-key
map
(
cond
((
integerp
(
car
ele
))
(
char-to-string
(
car
ele
)))
((
vector
(
car
ele
))))
(
cdr
ele
))))
(
cdr
newmap
))))
map
))))
...
...
Write
Preview
Supports
Markdown
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