Commit dd7911e1 authored by David Kågedal's avatar David Kågedal
Browse files

No commit message

No commit message
parent 4a238414
Nyheter i lyskom.el 0.44.1
==========================
Nyheter i lyskom.el 0.45
========================
Version 0.45 av elispklienten finns nu tillgänglig på följande URL.
......
......@@ -93,13 +93,13 @@
(setq tmp (cdr tmp))
(setq missing nil)
(mapcar '(lambda (lang)
(if (and (not (assq (car check)
(if (and (not (assq (car check)
(language-value (car lang) sym)))
(not (memq (car check)
(language-value
(car lang)
(missing-sym sym)))))
(setq missing (cons lang missing))
(setq missing (cons lang missing))
(if (and (stringp (cdr check))
(assq (car check)
(language-value (car lang) sym)))
......@@ -116,15 +116,15 @@
(format-string
(cdr (assq (car check)
(language-value (car lang) sym))))
)))))
language-files)
)))))
language-files)
(if missing
(message " Missing %S in %s"
(car check)
(mapconcat
'(lambda (x) (format "%s" (cdr x)))
missing
", "))))))
(message " Missing %S in %s"
(car check)
(mapconcat
'(lambda (x) (format "%s" (cdr x)))
missing
", "))))))
......@@ -171,6 +171,6 @@
(defun check-language (file-spec)
(message "Checking %S in %s" (car file-spec) (cdr file-spec))
(mapcar (function
(lambda (x) (check-language-value (car file-spec)
x)))
(lambda (x)
(check-language-value (car file-spec) x)))
language-variables))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment