Submission of ulem.el The font-lock stuff didn't behave like I intended (although it should, compared to the other files).
Form will be send in tomorrow, Saturday; I don't know if you get an automatic confirmation on this from FSF upon reception of the signed form? For reference, create -> creates in the documentation for TeX-auto-add-type: This function create a set of variables and functions to maintain a separate type of information in the parser. -- Med Venlig Hilsen / Kind Regards, Mads Jensen Rubinsteinsvej 31,st.th DK-2450 Kbh. SV Denmark +45 6168 8518
;;; ulem.el --- AUCTeX style for `ulem.sty' ;; Author: Mads Jensen <[email protected]> ;; Keywords: tex ;;; Commentary: ;; This file adds support for `ulem.sty'. ;;; Code: (TeX-add-style-hook "ulem" (lambda () (TeX-add-symbols '("uline" 1) '("uuline" 1) '("uwave" 1) '("sout" 1) '("xout" 1) ;; can be used with \renewcommand or \setlength '("ULthickness" 0) '("ULdepth" 0) ;; custom commands can be defined with these commands; see the ;; documentation for an example '("ULon" 0) '("markoverwith" 0) ;; \useunder {underline_command}{font_declaration}{font_command} ;; replaces occurences of font_declaration and font_command with the ;; underline_command '("useunder" TeX-arg-ulem-useunder TeX-arg-macro TeX-arg-macro)) ;; Fontification (when (and (featurep 'font-latex) (eq TeX-install-font-lock 'font-latex-setup)) ;; Tell font-lock about the update. (font-latex-add-keywords '(("useunder" "{{{") '("uline" "{") '("uwave" "{") '("sout" "{") '("xout" "{")) 'function) (setq font-lock-set-defaults nil) (font-lock-set-defaults)))) (defun TeX-arg-ulem-useunder (optional &optional prompt) "Prompt for underline command used in \\useunder" (TeX-argument-insert (completing-read (TeX-argument-prompt optional prompt "Underline command") (mapcar 'list '("\\uline" "\\uuline" "\\uwave" "\\sout" "\\xout")) nil t) optional)) (defvar LaTeX-ulem-package-options '("UWforbf" "ULforem" "normalbf" "normalem") "Package options for the ulem package.") ;;; ulem.el ends here
signature.asc
Description: OpenPGP digital signature
_______________________________________________ auctex-devel mailing list [email protected] http://lists.gnu.org/mailman/listinfo/auctex-devel
