;;; Source file: /usr/local/lib/jade/3.2/lisp/texinfo-mode.jl ;;; Compiled by jsh@orcrist on Sun Oct 16 20:20:51 1994 ;;; Jade 3.2 (provide (quote texinfo-mode)) (jade-byte-code "xÿ[ \"F#H H H      !\"#\"" [texinfo-keymap make-keylist texinfo-ctrl-c-keymap texinfo-ctrl-c-ctrl-c-keymap bind-keys "TAB" tab-with-spaces "Ctrl-c" (setq next-keymap-path (quote (texinfo-ctrl-c-ctrl-c-keymap))) "c" (texinfo-insert-braces "@code") "d" (texinfo-insert-braces "@dfn") "e" texinfo-insert-@end "f" (texinfo-insert-braces "@file") "i" (texinfo-insert "@item") "l" (texinfo-insert "@lisp ") "m" (texinfo-insert "@menu ") "Ctrl-m" texinfo-insert-menu-item "n" texinfo-insert-@node "s" (texinfo-insert-braces "@samp") "v" (texinfo-insert-braces "@var") "{" texinfo-insert-braces "]" texinfo-move-over-braces "}"] 30) (defun texinfo-mode nil 74734 (interactive) (jade-byte-code "þ I² H#% & &   KF& H  H  " [major-mode-kill funcall "Texinfo" mode-name texinfo-mode major-mode texinfo-mode-kill texinfo-ctrl-c-keymap ctrl-c-keymap "^@node" paragraph-regexp texinfo-keymap keymap-path eval-hook text-mode-hook texinfo-mode-hook] 3)) (defun texinfo-mode-kill nil (jade-byte-code "I I!I\"‹F$" [mode-name major-mode major-mode-kill texinfo-keymap keymap-path] 2)) (defun texinfo-insert-@end nil (interactive) (jade-byte-code "D 34sü&I²     û1  H E" [line-end prev-line 0 depth pos (jade-byte-code " þ:  `ü'küJtû$iF&û-hF&H F\"Hû" [find-prev-regexp "^@(end |)(cartouche|deffn|defun|defmac|defspec|defvr|defvar|defopt|deftypefn|deftypefun|deftypevr|deftypevar|defcv|defivar|defop|defmethod|deftp|display|enumerate|example|flushleft|flushright|format|ftable|group|ifclear|ifinfo|ifset|iftex|ignore|itemize|lisp|menu|quotation|smallexample|smalllisp|table|tex|titlepage|vtable)" pos match-start 1 match-end depth foo prev-char] 3) (quote foo) format "@end %s " copy-area match-start 2 match-end insert "@end " error "Can't find a command to @end"] 7)) (defun texinfo-insert (string) (jade-byte-code " " [insert string] 2)) (defun texinfo-insert-@node nil (interactive) (jade-byte-code " HD 4þE H F$þE H H F$þE H H F$þE H E" [insert "@node " prompt "Node name: " tmp "Next node: " ", " "Previous node: " "Up node: "] 2)) (defun texinfo-insert-braces (&optional command) (interactive) (jade-byte-code "þ Hü H IJ H û' H" [command insert current-prefix-arg "{" forward-word prefix-numeric-argument "}" "{}" goto-prev-char] 4)) (defun texinfo-move-over-braces nil (interactive) (jade-byte-code " " [goto-char next-char 1 find-next-char 125] 5)) (defun texinfo-insert-menu-item nil (interactive) (jade-byte-code "D 2þ E" [prompt "Item node: " tmp insert concat "* " "::"] 5))