(setcdr lang-slot (cons key-slot (cdr lang-slot)))))
(setcdr key-slot info)))
-(defun set-language-info-alist (lang-env alist)
+(defun set-language-info-alist (lang-env alist &optional parents)
"Store ALIST as the definition of language environment LANG-ENV.
ALIST is an alist of KEY and INFO values. See the documentation of
`set-language-info' for the meanings of KEY and INFO."