;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\301\302!\210\301\303!\210\304\305\306#\207" [TeX-dialect require tex latex TeX-add-style-hook "wrapfig" #[0 "\300\301\302\303#\207" [LaTeX-add-environments ("wrapfigure" (lambda (env &rest ignore) (LaTeX-insert-environment env (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) (placement (completing-read "Placement: " '(("r") ("R") ("l") ("L") ("i") ("I") ("o") ("O")))) (overhang (TeX-read-string "(Optional) Overhang: ")) (width (TeX-read-string "Width: "))) (concat (unless (string= narrow #1="") (format "[%s]" narrow)) (format "{%s}" placement) (unless (string= overhang #1#) (format "[%s]" overhang)) (format "{%s}" width)))))) ("wraptable" (lambda (env &rest ignore) (LaTeX-insert-environment env (let ((narrow (TeX-read-string "(Optional) Number of narrow lines: ")) (placement (completing-read "Placement: " '(("r") ("R") ("l") ("L") ("i") ("I") ("o") ("O")))) (overhang (TeX-read-string "(Optional) Overhang: ")) (width (TeX-read-string "Width: "))) (concat (unless (string= narrow #1#) (format "[%s]" narrow)) (format "{%s}" placement) (unless (string= overhang #1#) (format "[%s]" overhang)) (format "{%s}" width)))))) ("wrapfloat" (lambda (env &rest ignore) (LaTeX-insert-environment env (let ((floattype (if (and (fboundp 'LaTeX-newfloat-DeclareFloatingEnvironment-list) (LaTeX-newfloat-DeclareFloatingEnvironment-list)) (completing-read "Float type: " (mapcar #'car (LaTeX-newfloat-DeclareFloatingEnvironment-list))) (TeX-read-string "Float type: "))) (narrow (TeX-read-string "(Optional) Number of narrow lines: ")) (placement (completing-read "Placement: " '(("r") ("R") ("l") ("L") ("i") ("I") ("o") ("O")))) (overhang (TeX-read-string "(Optional) Overhang: ")) (width (TeX-read-string "Width: "))) (concat (format "{%s}" floattype) (unless (string= narrow #1#) (format "[%s]" narrow)) (format "{%s}" placement) (unless (string= overhang #1#) (format "[%s]" overhang)) (format "{%s}" width))))))] 4]] 4) #@42 Package options for the wrapfig package. (defvar LaTeX-wrapfig-package-options '("verbose") (#$ . 2045))