;ELC ;;; Compiled ;;; in Emacs version 26.3 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. ;;; This file does not contain utf-8 non-ASCII characters, ;;; and so can be loaded in Emacs versions earlier than 23. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (require 'bytecomp) (defconst psgml-common-files '("psgml.el" "psgml-parse.el" "psgml-edit.el" "psgml-dtd.el" "psgml-info.el" "psgml-api.el")) (defconst psgml-emacs-files '("psgml-other.el")) (defconst psgml-xemacs-files '("psgml-lucid.el")) (defvar psgml-source-dir nil) (defconst psgml-elisp-source (append psgml-common-files psgml-emacs-files)) #@22 (fn &optional ASK) (defalias 'psgml-find-source-dir #[256 "\203\301\207\302\303D\211\203*\304\305\306@\"!\203#\305\302@\"\307\262\202 \211A\262\202 ?\205C\203@\305\310\311\307\211\301$!\211\202C\312\313!\207" [psgml-source-dir t "." "./psgml-1.3.2" file-exists-p expand-file-name "psgml-maint.el" nil read-file-name "Where is the psgml source? " error "No psgml source in current directory"] 8 (#$ . 756)]) #@86 Compile the PSGML source files that needs compilation. (fn &optional INTERACTIVE-P) (defalias 'psgml-compile-files #[256 "\304!\210\211 B\305\306 \"\210\307\310!*\207" [psgml-source-dir load-path default-directory psgml-elisp-source psgml-find-source-dir mapc psgml-byte-compile-file message "Done compiling"] 4 (#$ . 1189) (list t)]) #@13 (fn FILE) (defalias 'psgml-byte-compile-file #[257 "\300!\301\"\205 \302!\207" [byte-compile-dest-file file-newer-than-file-p byte-compile-file] 5 (#$ . 1535)]) #@37 Print list of elc files to install. (defalias 'psgml-install-elc #[0 "\301\302\303\304#!\207" [psgml-elisp-source princ mapconcat byte-compile-dest-file " "] 5 (#$ . 1709)])