;ELC ;;; compiled by cline@apl.fox.cs.cmu.edu on Thu Nov 21 20:44:58 1996 ;;; from file /afs/cs/user/cline/lib/emacs/sml/sml-menus.el ;;; emacs version 19.27.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/afs/cs/user/cline/lib/emacs/sml/sml-menus.el' was compiled for Emacs 19")) (byte-code "ѯ \f2" [nil (byte-code "!" [require easymenu] 2) ((error (byte-code "!" [require auc-menu] 2))) "SML" "Process" ["Start default ML compiler" (sml nil) t] ["-" nil nil] ["load ML source file" sml-load-file :active (featurep (quote sml-proc))] ["switch to ML buffer" (switch-to-sml nil) :active (featurep (quote sml-proc))] ["--" nil nil] ["send buffer contents" sml-send-buffer :active (featurep (quote sml-proc))] ["send region" sml-send-region :active (featurep (quote sml-proc))] ["send paragraph" sml-send-function :active (featurep (quote sml-proc))] ["goto next error" sml-next-error :active (featurep (quote sml-proc))] ["---" nil nil] ["Standard ML of New Jersey" sml-smlnj t] ["Poly/ML" sml-poly-ml t] ["Help for Inferior ML" (describe-function (quote inferior-sml-mode)) :active (featurep (quote sml-proc))] ["electric pipe" sml-electric-pipe t] ["insert SML form" sml-insert-form t] "Forms" ["abstype" (sml-abstype) t] ["datatype" (sml-datatype) t] ["-" nil nil] ["let" (sml-let) t] ["local" (sml-local) t] ["case" (sml-case) t] ["--" nil nil] ["signature" (sml-signature) t] ["functor" (sml-functor) t] ["structure" (sml-structure) t] ["---" nil nil] ["abstraction" (sml-abstraction) t] "Format/Mode Variables" ["indent region" sml-indent-region t] ["outdent" sml-back-to-outer-indent t] ["-" nil nil] ["set indent-level" sml-indent-level t] ["set pipe-indent" sml-pipe-indent t] ["--" nil nil] ["toggle type-of-indent" (sml-type-of-indent) t] ["toggle nested-if-indent" (sml-nested-if-indent) t] ["toggle case-indent" (sml-case-indent) t] ["toggle electric-semi-mode" (sml-electric-semi-mode) t] ["-----" nil nil] ["SML mode help (brief)" describe-mode t] ["SML mode *info*" sml-mode-info t] ["SML mode version" sml-mode-version t] ["-----" nil nil] ["Fontify buffer" (sml-mode-fontify-buffer) :active (or (featurep (quote sml-font)) (featurep (quote sml-hilite)))] sml-menu] 17) (defalias 'sml-mode-fontify-buffer #[nil "! ! !" [featurep sml-font font-lock-fontify-buffer sml-hilite hilit-rehighlight-buffer message "No highlight scheme specified"] 2 "\ Just as it suggests."]) (byte-code "\n @ A\" ! C / @ @!\" @ B# A+ć" [sml-mode-map maps sml-menu menu easy-menu-create-keymaps keymap keymapp define-key vector menu-bar intern] 7) (defun sml-mode-menu-bar nil "\ Make sure menus appear in the menu bar as well as under mouse 3." nil) (byte-code "\"$" [add-hook sml-mode-hook sml-mode-menu-bar autoload sml "sml-proc" sml-no-doc t] 5) (autoload (quote sml-smlnj) "sml-smlnj" "\ An autoload function" t) (autoload (quote sml-poly-ml) "sml-poly-ml" "\ An autoload function" t) (provide (quote sml-menus))