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
4ebcaf0e
Commit
4ebcaf0e
authored
Oct 19, 2004
by
Jay Belanger
Browse files
(calc-init-extensions): Define `calc-alg-map' and `calc-alg-esc-map'
for current Emacs.
parent
8a41a047
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
10 additions
and
12 deletions
+10
-12
lisp/calc/calc-ext.el
lisp/calc/calc-ext.el
+10
-12
No files found.
lisp/calc/calc-ext.el
View file @
4ebcaf0e
...
...
@@ -640,29 +640,27 @@
(
define-key
calc-mode-map
(
format
"u%c"
x
)
'calc-quick-units
)))
"0123456789"
)
(
or
calc-emacs-type-19
(
progn
(
let
((
i
?A
))
(
while
(
and
(
<=
i
?z
)
(
vectorp
calc-mode-map
))
(
if
(
eq
(
car-safe
(
aref
calc-mode-map
i
))
'keymap
)
(
aset
calc-mode-map
i
(
cons
'keymap
(
cons
(
cons
?\e
(
aref
calc-mode-map
i
))
(
cdr
(
aref
calc-mode-map
i
))))))
(
while
(
<=
i
?z
)
(
if
(
eq
(
car-safe
(
aref
(
nth
1
calc-mode-map
)
i
))
'keymap
)
(
aset
(
nth
1
calc-mode-map
)
i
(
cons
'keymap
(
cons
(
cons
?\e
(
aref
(
nth
1
calc-mode-map
)
i
))
(
cdr
(
aref
(
nth
1
calc-mode-map
)
i
))))))
(
setq
i
(
1+
i
))))
(
setq
calc-alg-map
(
copy-
sequence
calc-mode-map
)
calc-alg-esc-map
(
copy-
sequence
esc-map
))
(
setq
calc-alg-map
(
copy-
keymap
calc-mode-map
)
calc-alg-esc-map
(
copy-
keymap
esc-map
))
(
let
((
i
32
))
(
while
(
<
i
127
)
(
or
(
memq
i
'
(
?
'
?
`
?=
??
))
(
aset
calc-alg-map
i
'calc-auto-algebraic-entry
))
(
aset
(
nth
1
calc-alg-map
)
i
'calc-auto-algebraic-entry
))
(
or
(
memq
i
'
(
?#
?x
?0
?1
?2
?3
?4
?5
?6
?7
?8
?9
))
(
aset
calc-alg-esc-map
i
(
aref
calc-mode-map
i
)))
(
aset
(
nth
1
calc-alg-esc-map
)
i
(
aref
(
nth
1
calc-mode-map
)
i
)))
(
setq
i
(
1+
i
))))
(
define-key
calc-alg-map
"\e"
calc-alg-esc-map
)
(
define-key
calc-alg-map
"\e\t"
'calc-roll-up
)
(
define-key
calc-alg-map
"\e\C-m"
'calc-last-args-stub
)
(
define-key
calc-alg-map
"\e\177"
'calc-pop-above
)
))
;; The following is a relic for backward compatability only.
;; The calc-define property list is now the recommended method.
...
...
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