Skip to content
GitLab
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
2776a341
Commit
2776a341
authored
Aug 22, 1996
by
David Byers
Browse files
Ny fil
parent
bb6c0c2a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/check-strings.el
0 → 100644
View file @
2776a341
;;;;;
;;;;; $Id$
;;;;; Copyright (C) 1996 Lysator Academic Computer Association.
;;;;;
;;;;
;;;; This file is used for checking swedish-strings.el and
;;;; english-strings.el. Run using
;;;;
;;;; emacs -batch -l check-strings.el -f lyskom-check-strings
;;;;
;;;;
(
defvar
swedish-strings
)
(
defvar
swedish-missing-strings
)
(
defvar
english-strings
)
(
defvar
english-missing-strings
)
(
defvar
swedish-commands
)
(
defvar
swedish-missing-bindings
)
(
defvar
english-commands
)
(
defvar
english-missing-bindings
)
(
defvar
swedish-bindings
)
(
defvar
english-bindings
)
(
defvar
keybindings
nil
)
(
defvar
keymaps
nil
)
(
defun
suppress-keymap
(
&rest
args
)
nil
)
(
defmacro
define-key
(
map
key
cmd
)
(
`
(
progn
(
setq
keymaps
(
cons
(
quote
(
,
map
))
keymaps
))
(
x-define-key
(
,
cmd
)))))
(
defun
define-prefix-command
(
&rest
args
)
nil
)
(
defun
x-define-key
(
cmd
)
(
if
(
not
(
assq
cmd
keybindings
))
(
setq
keybindings
(
cons
(
cons
cmd
nil
)
keybindings
))))
(
defun
reset-keybindings
()
(
setq
keybindings
nil
)
(
mapcar
(
function
(
lambda
(
x
)
(
set
x
nil
)))
keymaps
)
(
setq
keymaps
nil
))
(
defun
do-check
(
var
&optional
missing
)
(
do-check-strings
(
symbol-value
(
intern
(
concat
"swedish-"
(
symbol-name
var
))))
"Swedish"
(
symbol-value
(
intern
(
concat
"english-"
(
symbol-name
var
))))
"English"
(
if
missing
(
symbol-value
(
intern
(
concat
"english-"
(
symbol-name
missing
))))))
(
do-check-strings
(
symbol-value
(
intern
(
concat
"english-"
(
symbol-name
var
))))
"English"
(
symbol-value
(
intern
(
concat
"swedish-"
(
symbol-name
var
))))
"Swedish"
(
if
missing
(
symbol-value
(
intern
(
concat
"swedish-"
(
symbol-name
missing
)))))))
(
defun
lyskom-check-strings
()
(
load-file
"vars.el"
)
(
load-file
"swedish-strings.el"
)
(
setq
swedish-strings
lyskom-strings
)
(
setq
swedish-missing-strings
lyskom-missing-strings
)
(
setq
swedish-commands
lyskom-commands
)
(
setq
swedish-bindings
keybindings
)
(
setq
swedish-missing-bindings
lyskom-missing-bindings
)
(
makunbound
'lyskom-strings
)
(
makunbound
'lyskom-commands
)
(
makunbound
'lyskom-missing-bindings
)
(
makunbound
'lyskom-missing-strings
)
(
reset-keybindings
)
(
load-file
"english-strings.el"
)
(
setq
english-strings
lyskom-strings
)
(
setq
english-missing-strings
lyskom-missing-strings
)
(
setq
english-commands
lyskom-commands
)
(
setq
english-bindings
keybindings
)
(
setq
english-missing-bindings
lyskom-missing-bindings
)
(
message
"Checking lyskom-strings"
)
(
do-check
'strings
'missing-strings
)
(
message
"Checking lyskom-commands"
)
(
do-check
'commands
)
(
message
"Checking keybindings"
)
(
do-check
'bindings
'missing-bindings
)
)
(
defun
do-check-strings
(
l1
n1
l2
n2
&optional
ignores
)
(
while
l1
(
if
(
and
(
not
(
assq
(
car
(
car
l1
))
l2
))
(
not
(
memq
(
car
(
car
l1
))
ignores
)))
(
message
"%-25S present in %s, but not in %s"
(
car
(
car
l1
))
n1
n2
))
(
setq
l1
(
cdr
l1
))))
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new 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