"Fossies" - the Fresh Open Source Software Archive  

Source code changes of the file "style/polyglossia.el" between
auctex-12.2.tar.gz and auctex-12.3.tar.gz

About: AUCTEX is an extensible package for writing and formatting TeX files in GNU Emacs and XEmacs.

polyglossia.el  (auctex-12.2):polyglossia.el  (auctex-12.3)
skipping to change at line 151 skipping to change at line 151
;; Append the language to the list if it's the default one. ;; Append the language to the list if it's the default one.
(add-to-list 'active-languages (car elt) default)) (add-to-list 'active-languages (car elt) default))
LaTeX-polyglossia-lang-list) LaTeX-polyglossia-lang-list)
active-languages)) active-languages))
(defun LaTeX-polyglossia-lang-option-member (language option) (defun LaTeX-polyglossia-lang-option-member (language option)
"Return non-nil if OPTION has been given to polyglossia LANGUAGE. "Return non-nil if OPTION has been given to polyglossia LANGUAGE.
The value is actually the tail of the list of options given to LANGUAGE." The value is actually the tail of the list of options given to LANGUAGE."
(member option (cdr (cdr (assoc language LaTeX-polyglossia-lang-list))))) (member option (cdr (cdr (assoc language LaTeX-polyglossia-lang-list)))))
(defun LaTeX-arg-polyglossia-lang (_optional default multiple setkeys) (defun LaTeX-arg-polyglossia-lang (_optional _default multiple setkeys)
"Prompt for language and its options with completion and insert them "Prompt for language and its options with completion and insert them
as arguments. as arguments.
This function is triggered by \"\setdefaultlanguage\", This function is triggered by \"\setdefaultlanguage\",
\"\setotherlanguage\", \"\setotherlanguages\", and \"\setkeys\" \"\setotherlanguage\", \"\setotherlanguages\", and \"\setkeys\"
macros by polyglossia package. macros by polyglossia package.
OPTIONAL is ignored, if DEFAULT is non-nil treat inserted OPTIONAL and DEFAULT are ignored, if MULTIPLE is non-nil prompt
language as default, if MULTIPLE is non-nil prompt for multiple for multiple languages, if SETKEYS is non-nil insert options as
languages, if SETKEYS is non-nil insert options as second second mandatory argument."
mandatory argument."
;; DEFAULT = t , MULTIPLE = nil, SETKEYS = nil: "\setdefaultlanguage". ;; DEFAULT = t , MULTIPLE = nil, SETKEYS = nil: "\setdefaultlanguage".
;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = nil: "\setotherlanguage". ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = nil: "\setotherlanguage".
;; DEFAULT = nil, MULTIPLE = t , SETKEYS = nil: "\setotherlanguages". ;; DEFAULT = nil, MULTIPLE = t , SETKEYS = nil: "\setotherlanguages".
;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = t : "\setkeys". ;; DEFAULT = nil, MULTIPLE = nil, SETKEYS = t : "\setkeys".
;; Note: `DEFAULT' is currently ignored because we don't really have a
;; mechanism to identify the default polyglossia language.
(let ((language (funcall (let ((language (funcall
(if multiple (if multiple
'TeX-completing-read-multiple 'TeX-completing-read-multiple
'completing-read) 'completing-read)
(if multiple "Languages: " "Language: ") (if multiple "Languages: " "Language: ")
(if setkeys (if setkeys
(LaTeX-polyglossia-active-languages) (LaTeX-polyglossia-active-languages)
LaTeX-polyglossia-language-list))) LaTeX-polyglossia-language-list)))
var options) var options)
(if multiple (if multiple
skipping to change at line 234 skipping to change at line 236
))) )))
(defun LaTeX-polyglossia-load-languages () (defun LaTeX-polyglossia-load-languages ()
"Load style files of babel active languages." "Load style files of babel active languages."
(mapc (lambda (elt) (TeX-run-style-hooks (concat "gloss-" elt))) (mapc (lambda (elt) (TeX-run-style-hooks (concat "gloss-" elt)))
(LaTeX-polyglossia-active-languages))) (LaTeX-polyglossia-active-languages)))
(TeX-add-style-hook (TeX-add-style-hook
"polyglossia" "polyglossia"
(lambda () (lambda ()
(unless (featurep 'tex-buf)
(require 'tex-buf))
(TeX-check-engine-add-engines 'luatex 'xetex) (TeX-check-engine-add-engines 'luatex 'xetex)
(TeX-auto-add-regexp (TeX-auto-add-regexp
`(,LaTeX-polyglossia-lang-regexp (3 1 2) LaTeX-auto-polyglossia-lang)) `(,LaTeX-polyglossia-lang-regexp (3 1 2) LaTeX-auto-polyglossia-lang))
(TeX-auto-add-regexp (TeX-auto-add-regexp
`(,LaTeX-polyglossia-setkeys-regexp (1 2) LaTeX-auto-polyglossia-setkeys)) `(,LaTeX-polyglossia-setkeys-regexp (1 2) LaTeX-auto-polyglossia-setkeys))
(TeX-run-style-hooks "etoolbox" "makecmds" "xkeyval" "fontspec") (TeX-run-style-hooks "etoolbox" "makecmds" "xkeyval" "fontspec")
(TeX-add-symbols (TeX-add-symbols
'("setdefaultlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) '("setdefaultlanguage" (LaTeX-arg-polyglossia-lang t nil nil))
'("setmainlanguage" (LaTeX-arg-polyglossia-lang t nil nil)) '("setmainlanguage" (LaTeX-arg-polyglossia-lang t nil nil))
'("setotherlanguage" (LaTeX-arg-polyglossia-lang nil nil nil)) '("setotherlanguage" (LaTeX-arg-polyglossia-lang nil nil nil))
 End of changes. 4 change blocks. 
5 lines changed or deleted 9 lines changed or added

Home  |  About  |  Features  |  All  |  Newest  |  Dox  |  Diffs  |  RSS Feeds  |  Screenshots  |  Comments  |  Imprint  |  Privacy  |  HTTP(S)