Fresh Fish 5/FreshFish_July-August1994.bin/bbs/util/jade-3.0.lha/Jade/lisp/texinfo-mode.jlc

Text File | 1994-04-20 | 1.8 KB | 21 lines

(provide (quote texinfo-mode))

(unless (boundp (quote texinfo-keymap)) (eval-hook (quote texinfo-mode-hook)) (setq texinfo-keymap (make-keylist) texinfo-custom-keymap (make-keylist)) (bind-keys texinfo-keymap "ctrl-c" (quote (setq next-keymap-path (quote (texinfo-custom-keymap))))) (bind-keys texinfo-custom-keymap "c" (quote (texinfo-insert-braces "@code")) "d" (quote (texinfo-insert-braces "@dfn")) "e" (quote texinfo-insert-@end) "f" (quote (texinfo-insert-braces "@file")) "i" (quote (texinfo-insert "@item")) "l" (quote (texinfo-insert "@lisp\n")) "m" (quote (texinfo-insert "@menu\n")) "ctrl-m" (quote texinfo-insert-menu-item) "n" (quote texinfo-insert-@node) "s" (quote (texinfo-insert-braces "@samp")) "v" (quote (texinfo-insert-braces "@var")) "{" (quote texinfo-insert-braces) "]" (quote texinfo-move-over-braces) "}" (quote texinfo-move-over-braces)))

(defun texinfo-mode nil (lisp-code "\tH#%†&‡ˆF&‰" [eval-hook texinfo-mode-hook "Texinfo-mode" mode-name texinfo-mode-kill major-mode-kill "^@node" paragraph-regexp texinfo-keymap ctrl-c-keymap] 2))

(defun texinfo-mode-kill nil (lisp-code "I IF!" [mode-name ctrl-c-keymap] 2))

(defun texinfo-insert-@end nil (lisp-code "\t" [insert "@end"] 2))

(defun texinfo-insert (string) (lisp-code "\t" [insert string] 2))

(defun texinfo-insert-@node nil (lisp-code "\tHD\t4þ€Å\tH\tF$þ€Å†\tH\tH‡\tF$þ€Å†\tH\tHˆ\tF$þ€Å†\tH\tE" [insert "@node " prompt "Node name: " tmp "Next node: " ", " "Previous node: " "Up node: "] 2))

(defun texinfo-insert-braces (&optional command) (lisp-code "þ€‡\tH\tH" [command insert "{}" goto-prev-char] 2))

(defun texinfo-move-over-braces nil (lisp-code "\t\t\t" [goto next-char find-next-char 125] 4))

(defun texinfo-insert-menu-item nil (lisp-code "D\t2þ€‘†\tE" [prompt "Item node: " tmp insert concat "* " "::"] 5))