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
f2d032b1
Commit
f2d032b1
authored
Aug 30, 2003
by
Johan Sundström
Browse files
kom-change-language now changes keybindings by default.
parent
bbebae45
Changes
2
Hide whitespace changes
Inline
Side-by-side
src/ChangeLog
View file @
f2d032b1
2003-08-30 Johan Sundström <jhs@lysator.liu.se>
* commands2.el (kom-change-language): Now always changes bindings,
unless explicitly overridden with an integer argument (for some
form of backwards compatibility for users who already have burnt
in "C-u x change language" into their spines by now). I have never
wanted to change languages without changing key bindings as well,
but considering it was implemented like this, someone might still
want to do that (hence this slight prefix awkwardness).
2003-08-30 David Byers <byers@lysator.liu.se>
Fix bug 1101:
...
...
src/commands2.el
View file @
f2d032b1
...
...
@@ -2168,8 +2168,8 @@ the exception of the letterbox flag (which cannot be modified)."
(
def-kom-command
kom-change-language
(
&optional
global
)
"Change the current language in the current LysKOM session.
With a prefix argument, also make cha
ng
e
s
that would affect all
sessions, such as key bindings
.
Also changes key bindi
ngs
in all sessions, unless given an
integer prefix argument
.
The selected language is not saved between sessions. To permanently
set and save language settings. use `kom-customize' instead.
...
...
@@ -2177,7 +2177,7 @@ set and save language settings. use `kom-customize' instead.
See `kom-default-language'.
Lisp documentation:
T
he optional argument GLOBAL i
ndicates that
the change
should
have a
If t
he optional argument GLOBAL i
s 0,
the change
will
have a
global effect, including changes to key binding."
(
interactive
"P"
)
(
let*
((
completion-ignore-case
t
)
...
...
@@ -2191,7 +2191,7 @@ global effect, including changes to key binding."
'lyskom-language-history
)))
(
when
(
lyskom-string-assoc
language
table
)
(
lyskom-set-language
(
cdr
(
lyskom-string-assoc
language
table
))
'local
)
(
when
global
(
when
(
listp
global
)
(
lyskom-set-language
(
cdr
(
lyskom-string-assoc
language
table
))
'global
))
(
lyskom-format-insert
...
...
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