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

* language.el (lyskom-languages): Ny variabel.

(lyskom-define-language): Sätt den.
parent a2d921a6
......@@ -32,14 +32,19 @@
(require 'lyskom-vars "vars")
;;; Variables
;;(defvar lyskom-language-symbols nil
;; "Symbols with language data bound to them")
(defvar lyskom-languages nil
"A alist of defined languages.
Each entry is a pair (SYMBOL . (NAME NAME ...)) where symbol is the symbol
used for identification, and the NAMEs are names of the language.")
(defvar lyskom-language-categories nil
"Categories used")
;;; Variables
(defvar lyskom-language-vars nil
"A list of all language-dependent variables.")
......@@ -190,9 +195,11 @@ if 'lyskom-menu is not found."
(get category 'lyskom-language-symbols)))
(defun lyskom-define-language (language name)
;; Do nothing for now
(defun lyskom-define-language (language &rest names)
(let ((match (assq language lyskom-languages)))
(if match
(setcdr match names)
(setq lyskom-languages (cons (cons language names) lyskom-languages)))))
(defun lyskom-set-language (language)
"Set the current language to LANGUAGE."
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