|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ p ┃
Length: 6210 (0x1842)
Names: »prolog.elc«
└─⟦a0efdde77⟧ Bits:30001252 EUUGD11 Tape, 1987 Spring Conference Helsinki
└─ ⟦this⟧ »EUUGD11/gnu-31mar87/emacs/lisp/prolog.elc«
0x0000…0020 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c ┆ (defvar prolog-mode-syntax-tabl┆
0x0020…0040 65 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 61 62 62 72 ┆e nil) (defvar prolog-mode-abbr┆
0x0040…0060 65 76 2d 74 61 62 6c 65 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d 6d 6f ┆ev-table nil) (defvar prolog-mo┆
0x0060…0080 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d 63 6f 6e 73 ┆de-map nil) (defvar prolog-cons┆
0x0080…00a0 75 6c 74 2d 73 74 72 69 6e 67 20 22 72 65 63 6f 6e 73 75 6c 74 28 75 73 65 72 29 2e 0a 22 20 22 ┆ult-string "reconsult(user). " "┆
0x00a0…00c0 2a 28 52 65 29 43 6f 6e 73 75 6c 74 20 6d 6f 64 65 20 28 66 6f 72 20 43 2d 50 72 6f 6c 6f 67 20 ┆*(Re)Consult mode (for C-Prolog ┆
0x00c0…00e0 61 6e 64 20 51 75 69 6e 74 75 73 20 50 72 6f 6c 6f 67 29 2e 20 22 29 0a 0a 28 64 65 66 76 61 72 ┆and Quintus Prolog). ") (defvar┆
0x00e0…0100 20 70 72 6f 6c 6f 67 2d 63 6f 6d 70 69 6c 65 2d 73 74 72 69 6e 67 20 22 63 6f 6d 70 69 6c 65 28 ┆ prolog-compile-string "compile(┆
0x0100…0120 75 73 65 72 29 2e 0a 22 20 22 2a 43 6f 6d 70 69 6c 65 20 6d 6f 64 65 20 28 66 6f 72 20 51 75 69 ┆user). " "*Compile mode (for Qui┆
0x0120…0140 6e 74 75 73 20 50 72 6f 6c 6f 67 29 2e 22 29 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d ┆ntus Prolog).") (defvar prolog-┆
0x0140…0160 65 6f 66 2d 73 74 72 69 6e 67 20 22 65 6e 64 5f 6f 66 5f 66 69 6c 65 2e 0a 22 20 22 2a 53 74 72 ┆eof-string "end_of_file. " "*Str┆
0x0160…0180 69 6e 67 20 74 68 61 74 20 72 65 70 72 65 73 65 6e 74 73 20 65 6e 64 20 6f 66 20 66 69 6c 65 20 ┆ing that represents end of file ┆
0x0180…01a0 66 6f 72 20 70 72 6f 6c 6f 67 2e 0a 6e 69 6c 20 6d 65 61 6e 73 20 73 65 6e 64 20 61 63 74 75 61 ┆for prolog. nil means send actua┆
0x01a0…01c0 6c 20 6f 70 65 72 61 69 6e 67 20 73 79 73 74 65 6d 20 65 6e 64 20 6f 66 20 66 69 6c 65 2e 22 29 ┆l operaing system end of file.")┆
0x01c0…01e0 0a 0a 28 64 65 66 76 61 72 20 70 72 6f 6c 6f 67 2d 69 6e 64 65 6e 74 2d 77 69 64 74 68 20 34 29 ┆ (defvar prolog-indent-width 4)┆
0x01e0…0200 0a 0a 28 69 66 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6e ┆ (if prolog-mode-syntax-table n┆
0x0200…0220 69 6c 20 28 6c 65 74 20 28 28 74 61 62 6c 65 20 28 6d 61 6b 65 2d 73 79 6e 74 61 78 2d 74 61 62 ┆il (let ((table (make-syntax-tab┆
0x0220…0240 6c 65 29 29 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 35 20 22 77 ┆le))) (modify-syntax-entry 95 "w┆
0x0240…0260 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 39 32 ┆" table) (modify-syntax-entry 92┆
0x0260…0280 20 22 5c 5c 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 ┆ "\\" table) (modify-syntax-entr┆
0x0280…02a0 79 20 34 37 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 ┆y 47 "." table) (modify-syntax-e┆
0x02a0…02c0 6e 74 72 79 20 34 32 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 ┆ntry 42 "." table) (modify-synta┆
0x02c0…02e0 78 2d 65 6e 74 72 79 20 34 33 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 ┆x-entry 43 "." table) (modify-sy┆
0x02e0…0300 6e 74 61 78 2d 65 6e 74 72 79 20 34 35 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 69 66 79 ┆ntax-entry 45 "." table) (modify┆
0x0300…0320 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 31 20 22 2e 22 20 74 61 62 6c 65 29 20 28 6d 6f 64 ┆-syntax-entry 61 "." table) (mod┆
0x0320…0340 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 37 20 22 3c 22 20 74 61 62 6c 65 29 20 28 ┆ify-syntax-entry 37 "<" table) (┆
0x0340…0360 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 30 20 22 2e 22 20 74 61 62 6c 65 ┆modify-syntax-entry 60 "." table┆
0x0360…0380 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 36 32 20 22 2e 22 20 74 61 ┆) (modify-syntax-entry 62 "." ta┆
0x0380…03a0 62 6c 65 29 20 28 6d 6f 64 69 66 79 2d 73 79 6e 74 61 78 2d 65 6e 74 72 79 20 33 39 20 22 5c 22 ┆ble) (modify-syntax-entry 39 "\"┆
0x03a0…03c0 22 20 74 61 62 6c 65 29 20 28 73 65 74 71 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 73 79 6e 74 61 ┆" table) (setq prolog-mode-synta┆
0x03c0…03e0 78 2d 74 61 62 6c 65 20 74 61 62 6c 65 29 29 29 0a 0a 28 64 65 66 69 6e 65 2d 61 62 62 72 65 76 ┆x-table table))) (define-abbrev┆
0x03e0…0400 2d 74 61 62 6c 65 20 28 71 75 6f 74 65 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 61 62 62 72 65 76 ┆-table (quote prolog-mode-abbrev┆
0x0400…0420 2d 74 61 62 6c 65 29 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 ┆-table) nil) (defun prolog-mode┆
0x0420…0440 2d 76 61 72 69 61 62 6c 65 73 20 6e 69 6c 20 28 62 79 74 65 2d 63 6f 64 65 20 22 cb 08 21 88 0a ┆-variables nil (byte-code " ! ┆
0x0440…0460 89 11 88 cc c3 21 88 cd 0c 50 89 13 88 cc c5 21 88 0b 89 15 88 cc c6 21 88 ce 89 16 06 88 cc c7 ┆ ! P ! ! ┆
0x0460…0480 21 88 cf 89 16 07 88 cc c8 21 88 d0 89 16 08 88 cc c9 21 88 d1 89 16 09 88 cc ca 21 88 d2 89 16 ┆! ! ! ! ┆
0x0480…04a0 0a 87 22 20 5b 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 73 79 6e 74 61 78 2d 74 61 62 6c 65 20 6c 6f ┆ " [prolog-mode-syntax-table lo┆
0x04a0…04c0 63 61 6c 2d 61 62 62 72 65 76 2d 74 61 62 6c 65 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 61 62 62 ┆cal-abbrev-table prolog-mode-abb┆
0x04c0…04e0 72 65 76 2d 74 61 62 6c 65 20 70 61 72 61 67 72 61 70 68 2d 73 74 61 72 74 20 70 61 67 65 2d 64 ┆rev-table paragraph-start page-d┆
0x04e0…0500 65 6c 69 6d 69 74 65 72 20 70 61 72 61 67 72 61 70 68 2d 73 65 70 61 72 61 74 65 20 69 6e 64 65 ┆elimiter paragraph-separate inde┆
0x0500…0520 6e 74 2d 6c 69 6e 65 2d 66 75 6e 63 74 69 6f 6e 20 63 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 20 63 ┆nt-line-function comment-start c┆
0x0520…0540 6f 6d 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e ┆omment-start-skip comment-column┆
0x0540…0560 20 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 2d 68 6f 6f 6b 20 73 65 74 2d 73 79 6e 74 61 78 2d ┆ comment-indent-hook set-syntax-┆
0x0560…0580 74 61 62 6c 65 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 20 22 5e 25 25 5c 5c ┆table make-local-variable "^%%\\┆
0x0580…05a0 7c 5e 24 5c 5c 7c 22 20 70 72 6f 6c 6f 67 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 22 25 22 20 22 ┆|^$\\|" prolog-indent-line "%" "┆
0x05a0…05c0 25 2b 20 2a 22 20 34 38 20 70 72 6f 6c 6f 67 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 5d 20 ┆%+ *" 48 prolog-comment-indent] ┆
0x05c0…05e0 31 30 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 6e 64 ┆10)) (defun prolog-mode-command┆
0x05e0…0600 73 20 28 6d 61 70 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c1 08 c2 c3 23 88 c1 08 c4 c5 23 87 ┆s (map) (byte-code " # # ┆
0x0600…0620 22 20 5b 6d 61 70 20 64 65 66 69 6e 65 2d 6b 65 79 20 22 09 22 20 70 72 6f 6c 6f 67 2d 69 6e 64 ┆" [map define-key " " prolog-ind┆
0x0620…0640 65 6e 74 2d 6c 69 6e 65 20 22 1b 18 22 20 70 72 6f 6c 6f 67 2d 63 6f 6e 73 75 6c 74 2d 72 65 67 ┆ent-line " " prolog-consult-reg┆
0x0640…0660 69 6f 6e 5d 20 35 29 29 0a 0a 28 69 66 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 ┆ion] 5)) (if prolog-mode-map ni┆
0x0660…0680 6c 20 28 73 65 74 71 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 20 28 6d 61 6b 65 2d 73 70 ┆l (setq prolog-mode-map (make-sp┆
0x0680…06a0 61 72 73 65 2d 6b 65 79 6d 61 70 29 29 20 28 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 63 6f 6d 6d 61 ┆arse-keymap)) (prolog-mode-comma┆
0x06a0…06c0 6e 64 73 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 ┆nds prolog-mode-map)) (defun pr┆
0x06c0…06e0 6f 6c 6f 67 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 20 66 6f 72 20 ┆olog-mode nil "\ Major mode for ┆
0x06e0…0700 65 64 69 74 69 6e 67 20 50 72 6f 6c 6f 67 20 63 6f 64 65 20 66 6f 72 20 50 72 6f 6c 6f 67 73 2e ┆editing Prolog code for Prologs.┆
0x0700…0720 0a 42 6c 61 6e 6b 20 6c 69 6e 65 73 20 61 6e 64 20 60 25 25 2e 2e 2e 27 20 73 65 70 61 72 61 74 ┆ Blank lines and `%%...' separat┆
0x0720…0740 65 20 70 61 72 61 67 72 61 70 68 73 2e 20 20 60 25 27 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 6e ┆e paragraphs. `%'s start commen┆
0x0740…0760 74 73 2e 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 5c 5c 7b 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 ┆ts. Commands: \\{prolog-mode-map┆
0x0760…0780 7d 0a 45 6e 74 72 79 20 74 6f 20 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 ┆} Entry to this mode calls the v┆
0x0780…07a0 61 6c 75 65 20 6f 66 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 68 6f 6f 6b 0a 69 66 20 74 68 61 74 ┆alue of prolog-mode-hook if that┆
0x07a0…07c0 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 ┆ value is non-nil." (interactive┆
0x07c0…07e0 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c3 88 c4 20 88 c5 08 21 88 c6 89 11 88 c7 89 12 88 c8 ┆) (byte-code " ! ┆
0x07e0…0800 20 88 c9 ca 21 87 22 20 5b 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 20 6d 61 6a 6f 72 2d 6d ┆ ! " [prolog-mode-map major-m┆
0x0800…0820 6f 64 65 20 6d 6f 64 65 2d 6e 61 6d 65 20 6e 69 6c 20 6b 69 6c 6c 2d 61 6c 6c 2d 6c 6f 63 61 6c ┆ode mode-name nil kill-all-local┆
0x0820…0840 2d 76 61 72 69 61 62 6c 65 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 70 72 6f 6c 6f 67 2d ┆-variables use-local-map prolog-┆
0x0840…0860 6d 6f 64 65 20 22 50 72 6f 6c 6f 67 22 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 76 61 72 69 61 62 ┆mode "Prolog" prolog-mode-variab┆
0x0860…0880 6c 65 73 20 72 75 6e 2d 68 6f 6f 6b 73 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 ┆les run-hooks prolog-mode-hook] ┆
0x0880…08a0 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 6c 6f 67 2d 69 6e 64 65 6e 74 2d 6c 69 6e 65 20 28 ┆5)) (defun prolog-indent-line (┆
0x08a0…08c0 26 6f 70 74 69 6f 6e 61 6c 20 77 68 6f 6c 65 2d 65 78 70 29 20 22 5c 0a 49 6e 64 65 6e 74 20 63 ┆&optional whole-exp) "\ Indent c┆
0x08c0…08e0 75 72 72 65 6e 74 20 6c 69 6e 65 20 61 73 20 50 72 6f 6c 6f 67 20 63 6f 64 65 2e 0a 57 69 74 68 ┆urrent line as Prolog code. With┆
0x08e0…0900 20 61 72 67 75 6d 65 6e 74 2c 20 69 6e 64 65 6e 74 20 61 6e 79 20 61 64 64 69 74 69 6f 6e 61 6c ┆ argument, indent any additional┆
0x0900…0920 20 6c 69 6e 65 73 20 6f 66 20 74 68 65 20 73 61 6d 65 20 63 6c 61 75 73 65 0a 72 69 67 69 64 6c ┆ lines of the same clause rigidl┆
0x0920…0940 79 20 61 6c 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 6f 6e 65 20 28 6e 6f 74 20 79 65 74 29 2e ┆y along with this one (not yet).┆
0x0940…0960 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 70 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 ┆" (interactive "p") (byte-code "┆
0x0960…0980 c3 88 c4 20 64 60 5a c3 1a 19 18 c5 20 88 60 89 12 88 c6 c7 21 88 c8 08 69 5a 21 83 5c 22 00 c3 ┆ d`Z ` ! iZ! \" ┆
0x0980…09a0 82 29 00 c9 0a 60 5c 22 88 08 6a 88 64 09 5a 60 56 85 36 00 64 09 5a 62 2b 87 22 20 5b 69 6e 64 ┆ ) `\" j d Z`V 6 d Zb+ " [ind┆
0x09a0…09c0 65 6e 74 20 70 6f 73 20 62 65 67 20 6e 69 6c 20 70 72 6f 6c 6f 67 2d 69 6e 64 65 6e 74 2d 6c 65 ┆ent pos beg nil prolog-indent-le┆
0x09c0…09e0 76 65 6c 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 ┆vel beginning-of-line skip-chars┆
0x09e0…0a00 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 7a 65 72 6f 70 20 64 65 6c 65 74 65 2d 72 65 67 69 6f ┆-forward " " zerop delete-regio┆
0x0a00…0a20 6e 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 6c 6f 67 2d 69 6e 64 65 6e 74 2d 6c 65 76 ┆n] 7)) (defun prolog-indent-lev┆
0x0a20…0a40 65 6c 20 6e 69 6c 20 22 5c 0a 43 6f 6d 70 75 74 65 20 70 72 6f 6c 6f 67 20 69 6e 64 65 6e 74 61 ┆el nil "\ Compute prolog indenta┆
0x0a40…0a60 74 69 6f 6e 20 6c 65 76 65 6c 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 8a c9 20 88 ca cb 21 ┆tion level." (byte-code " !┆
0x0a60…0a80 88 cc cd 21 83 12 00 ce 82 cf 00 cc cf 21 83 1c 00 08 82 cf 00 6f 83 24 00 ce 82 cf 00 c1 c6 c6 ┆ ! ! o $ ┆
0x0a80…0aa0 c6 1d 1c 1b 1a cc d0 21 83 38 00 c1 89 15 82 3b 00 c6 89 15 88 0a 85 67 00 d1 d2 21 88 c9 20 88 ┆ ! 8 ; g ! ┆
0x0aa0…0ac0 6f 85 4e 00 c6 89 12 88 ca cb 21 88 cc cf 21 86 5c 5c 00 cc d3 21 3f 85 63 00 c6 89 12 88 82 3c ┆o N ! ! \\ !? c <┆
0x0ac0…0ae0 00 88 69 89 13 88 cc d4 21 83 76 00 0b 82 ce 00 cc d5 21 83 82 00 c1 89 14 82 85 00 c6 89 14 88 ┆ i ! v ! ┆
0x0ae0…0b00 d6 20 88 6f 86 90 00 d7 d2 21 88 cc d8 21 83 af 00 0c 85 9e 00 cc d9 21 83 a8 00 0b 0e 07 5c 5c ┆ o ! ! ! \\┆
0x0b00…0b20 82 ac 00 0e 08 0b 5d 82 ce 00 cc da 21 83 ba 00 0e 08 82 ce 00 0d 86 c1 00 cc db 21 83 cd 00 0b ┆ ] ! ! ┆
0x0b20…0b40 0e 07 5a ce 5d 82 ce 00 ce 2c 29 87 22 20 5b 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e 20 74 20 ┆ Z ] ,) " [comment-column t ┆
0x0b40…0b60 65 6d 70 74 79 20 69 6e 64 20 6d 6f 72 65 20 6c 65 73 73 20 6e 69 6c 20 70 72 6f 6c 6f 67 2d 69 ┆empty ind more less nil prolog-i┆
0x0b60…0b80 6e 64 65 6e 74 2d 77 69 64 74 68 20 74 61 62 2d 77 69 64 74 68 20 62 65 67 69 6e 6e 69 6e 67 2d ┆ndent-width tab-width beginning-┆
0x0b80…0ba0 6f 66 2d 6c 69 6e 65 20 73 6b 69 70 2d 63 68 61 72 73 2d 66 6f 72 77 61 72 64 20 22 20 09 22 20 ┆of-line skip-chars-forward " " ┆
0x0ba0…0bc0 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 25 25 25 22 20 30 20 22 25 5b 5e 25 5d 22 20 22 29 22 20 66 ┆looking-at "%%%" 0 "%[^%]" ")" f┆
0x0bc0…0be0 6f 72 77 61 72 64 2d 6c 69 6e 65 20 2d 31 20 22 0a 22 20 22 25 25 5b 5e 25 5d 22 20 22 28 22 20 ┆orward-line -1 " " "%%[^%]" "(" ┆
0x0be0…0c00 65 6e 64 2d 6f 66 2d 70 72 6f 6c 6f 67 2d 63 6c 61 75 73 65 20 66 6f 72 77 61 72 64 2d 63 68 61 ┆end-of-prolog-clause forward-cha┆
0x0c00…0c20 72 20 22 5b 2c 28 3b 3e 5d 22 20 22 5b 5e 2c 5d 22 20 22 2d 22 20 22 5b 5e 2e 5d 22 5d 20 32 30 ┆r "[,(;>]" "[^,]" "-" "[^.]"] 20┆
0x0c20…0c40 29 29 0a 0a 28 64 65 66 75 6e 20 65 6e 64 2d 6f 66 2d 70 72 6f 6c 6f 67 2d 63 6c 61 75 73 65 20 ┆)) (defun end-of-prolog-clause ┆
0x0c40…0c60 6e 69 6c 20 22 5c 0a 47 6f 20 74 6f 20 65 6e 64 20 6f 66 20 63 6c 61 75 73 65 20 69 6e 20 74 68 ┆nil "\ Go to end of clause in th┆
0x0c60…0c80 69 73 20 6c 69 6e 65 2e 22 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 88 8a c4 20 88 60 29 ┆is line." (byte-code " ! `)┆
0x0c80…0ca0 18 c5 09 08 c6 23 85 17 00 c7 c8 21 62 88 c9 ca 21 29 87 22 20 5b 65 6f 6c 70 6f 73 20 63 6f 6d ┆ # !b !) " [eolpos com┆
0x0ca0…0cc0 6d 65 6e 74 2d 73 74 61 72 74 2d 73 6b 69 70 20 62 65 67 69 6e 6e 69 6e 67 2d 6f 66 2d 6c 69 6e ┆ment-start-skip beginning-of-lin┆
0x0cc0…0ce0 65 20 31 20 65 6e 64 2d 6f 66 2d 6c 69 6e 65 20 72 65 2d 73 65 61 72 63 68 2d 66 6f 72 77 61 72 ┆e 1 end-of-line re-search-forwar┆
0x0ce0…0d00 64 20 6d 6f 76 65 20 6d 61 74 63 68 2d 62 65 67 69 6e 6e 69 6e 67 20 30 20 73 6b 69 70 2d 63 68 ┆d move match-beginning 0 skip-ch┆
0x0d00…0d20 61 72 73 2d 62 61 63 6b 77 61 72 64 20 22 20 09 22 5d 20 36 29 29 0a 0a 28 64 65 66 75 6e 20 70 ┆ars-backward " "] 6)) (defun p┆
0x0d20…0d40 72 6f 6c 6f 67 2d 63 6f 6d 6d 65 6e 74 2d 69 6e 64 65 6e 74 20 6e 69 6c 20 22 5c 0a 43 6f 6d 70 ┆rolog-comment-indent nil "\ Comp┆
0x0d40…0d60 75 74 65 20 70 72 6f 6c 6f 67 20 63 6f 6d 6d 65 6e 74 20 69 6e 64 65 6e 74 61 74 69 6f 6e 2e 22 ┆ute prolog comment indentation."┆
0x0d60…0d80 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c2 c3 21 83 0a 00 c4 82 1f 00 c2 c5 21 83 15 00 c6 20 82 ┆ (byte-code " ! ! ┆
0x0d80…0da0 1f 00 8a c7 c8 21 88 69 54 09 5d 29 87 22 20 5b 74 20 63 6f 6d 6d 65 6e 74 2d 63 6f 6c 75 6d 6e ┆ ! iT ]) " [t comment-column┆
0x0da0…0dc0 20 6c 6f 6f 6b 69 6e 67 2d 61 74 20 22 25 25 25 22 20 30 20 22 25 25 22 20 70 72 6f 6c 6f 67 2d ┆ looking-at "%%%" 0 "%%" prolog-┆
0x0dc0…0de0 69 6e 64 65 6e 74 2d 6c 65 76 65 6c 20 73 6b 69 70 2d 63 68 61 72 73 2d 62 61 63 6b 77 61 72 64 ┆indent-level skip-chars-backward┆
0x0de0…0e00 20 22 20 09 22 5d 20 36 29 29 0a 0a 28 64 65 66 76 61 72 20 69 6e 66 65 72 69 6f 72 2d 70 72 6f ┆ " "] 6)) (defvar inferior-pro┆
0x0e00…0e20 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 29 0a 0a 28 64 65 66 75 6e 20 69 6e 66 65 72 69 ┆log-mode-map nil) (defun inferi┆
0x0e20…0e40 6f 72 2d 70 72 6f 6c 6f 67 2d 6d 6f 64 65 20 6e 69 6c 20 22 5c 0a 4d 61 6a 6f 72 20 6d 6f 64 65 ┆or-prolog-mode nil "\ Major mode┆
0x0e40…0e60 20 66 6f 72 20 69 6e 74 65 72 61 63 74 69 6e 67 20 77 69 74 68 20 61 6e 20 69 6e 66 65 72 69 6f ┆ for interacting with an inferio┆
0x0e60…0e80 72 20 50 72 6f 6c 6f 67 20 70 72 6f 63 65 73 73 2e 0a 0a 54 68 65 20 66 6f 6c 6c 6f 77 69 6e 67 ┆r Prolog process. The following┆
0x0e80…0ea0 20 63 6f 6d 6d 61 6e 64 73 20 61 72 65 20 61 76 61 69 6c 61 62 6c 65 3a 0a 5c 5c 7b 69 6e 66 65 ┆ commands are available: \\{infe┆
0x0ea0…0ec0 72 69 6f 72 2d 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 7d 0a 0a 45 6e 74 72 79 20 74 6f 20 ┆rior-prolog-mode-map} Entry to ┆
0x0ec0…0ee0 74 68 69 73 20 6d 6f 64 65 20 63 61 6c 6c 73 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 70 72 6f ┆this mode calls the value of pro┆
0x0ee0…0f00 6c 6f 67 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 77 69 74 68 20 6e 6f 20 61 72 67 75 6d 65 6e 74 73 2c ┆log-mode-hook with no arguments,┆
0x0f00…0f20 0a 69 66 20 74 68 61 74 20 76 61 6c 75 65 20 69 73 20 6e 6f 6e 2d 6e 69 6c 2e 20 20 4c 69 6b 65 ┆ if that value is non-nil. Like┆
0x0f20…0f40 77 69 73 65 20 77 69 74 68 20 74 68 65 20 76 61 6c 75 65 20 6f 66 20 73 68 65 6c 6c 2d 6d 6f 64 ┆wise with the value of shell-mod┆
0x0f40…0f60 65 2d 68 6f 6f 6b 2e 0a 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 69 73 20 63 61 6c 6c ┆e-hook. prolog-mode-hook is call┆
0x0f60…0f80 65 64 20 61 66 74 65 72 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 2e 0a 0a 59 6f 75 20 63 ┆ed after shell-mode-hook. You c┆
0x0f80…0fa0 61 6e 20 73 65 6e 64 20 74 65 78 74 20 74 6f 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 50 72 6f ┆an send text to the inferior Pro┆
0x0fa0…0fc0 6c 6f 67 20 66 72 6f 6d 20 6f 74 68 65 72 20 62 75 66 66 65 72 73 0a 75 73 69 6e 67 20 74 68 65 ┆log from other buffers using the┆
0x0fc0…0fe0 20 63 6f 6d 6d 61 6e 64 73 20 73 65 6e 64 2d 72 65 67 69 6f 6e 2c 20 73 65 6e 64 2d 73 74 72 69 ┆ commands send-region, send-stri┆
0x0fe0…1000 6e 67 20 61 6e 64 20 5c 5c 5b 70 72 6f 6c 6f 67 2d 63 6f 6e 73 75 6c 74 2d 72 65 67 69 6f 6e 5d ┆ng and \\[prolog-consult-region]┆
0x1000…1020 2e 0a 0a 43 6f 6d 6d 61 6e 64 73 3a 0a 54 61 62 20 69 6e 64 65 6e 74 73 20 66 6f 72 20 50 72 6f ┆. Commands: Tab indents for Pro┆
0x1020…1040 6c 6f 67 3b 20 77 69 74 68 20 61 72 67 75 6d 65 6e 74 2c 20 73 68 69 66 74 73 20 72 65 73 74 0a ┆log; with argument, shifts rest ┆
0x1040…1060 20 6f 66 20 65 78 70 72 65 73 73 69 6f 6e 20 72 69 67 69 64 6c 79 20 77 69 74 68 20 74 68 65 20 ┆ of expression rigidly with the ┆
0x1060…1080 63 75 72 72 65 6e 74 20 6c 69 6e 65 2e 0a 50 61 72 61 67 72 61 70 68 73 20 61 72 65 20 73 65 70 ┆current line. Paragraphs are sep┆
0x1080…10a0 61 72 61 74 65 64 20 6f 6e 6c 79 20 62 79 20 62 6c 61 6e 6b 20 6c 69 6e 65 73 20 61 6e 64 20 27 ┆arated only by blank lines and '┆
0x10a0…10c0 25 25 27 2e 20 27 25 27 73 20 73 74 61 72 74 20 63 6f 6d 6d 65 6e 74 73 2e 0a 0a 52 65 74 75 72 ┆%%'. '%'s start comments. Retur┆
0x10c0…10e0 6e 20 61 74 20 65 6e 64 20 6f 66 20 62 75 66 66 65 72 20 73 65 6e 64 73 20 6c 69 6e 65 20 61 73 ┆n at end of buffer sends line as┆
0x10e0…1100 20 69 6e 70 75 74 2e 0a 52 65 74 75 72 6e 20 6e 6f 74 20 61 74 20 65 6e 64 20 63 6f 70 69 65 73 ┆ input. Return not at end copies┆
0x1100…1120 20 72 65 73 74 20 6f 66 20 6c 69 6e 65 20 74 6f 20 65 6e 64 20 61 6e 64 20 73 65 6e 64 73 20 69 ┆ rest of line to end and sends i┆
0x1120…1140 74 2e 0a 5c 5c 5b 73 68 65 6c 6c 2d 73 65 6e 64 2d 65 6f 66 5d 20 73 65 6e 64 73 20 65 6e 64 2d ┆t. \\[shell-send-eof] sends end-┆
0x1140…1160 6f 66 2d 66 69 6c 65 20 61 73 20 69 6e 70 75 74 2e 0a 5c 5c 5b 6b 69 6c 6c 2d 73 68 65 6c 6c 2d ┆of-file as input. \\[kill-shell-┆
0x1160…1180 69 6e 70 75 74 5d 20 61 6e 64 20 5c 5c 5b 62 61 63 6b 77 61 72 64 2d 6b 69 6c 6c 2d 77 6f 72 64 ┆input] and \\[backward-kill-word┆
0x1180…11a0 5d 20 61 72 65 20 6b 69 6c 6c 20 63 6f 6d 6d 61 6e 64 73 2c 20 69 6d 69 74 61 74 69 6e 67 20 6e ┆] are kill commands, imitating n┆
0x11a0…11c0 6f 72 6d 61 6c 20 55 6e 69 78 20 69 6e 70 75 74 20 65 64 69 74 69 6e 67 2e 0a 5c 5c 5b 69 6e 74 ┆ormal Unix input editing. \\[int┆
0x11c0…11e0 65 72 72 75 70 74 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 5d 20 69 6e 74 65 72 72 75 70 74 73 20 ┆errupt-shell-subjob] interrupts ┆
0x11e0…1200 74 68 65 20 73 68 65 6c 6c 20 6f 72 20 69 74 73 20 63 75 72 72 65 6e 74 20 73 75 62 6a 6f 62 20 ┆the shell or its current subjob ┆
0x1200…1220 69 66 20 61 6e 79 2e 0a 5c 5c 5b 73 74 6f 70 2d 73 68 65 6c 6c 2d 73 75 62 6a 6f 62 5d 20 73 74 ┆if any. \\[stop-shell-subjob] st┆
0x1220…1240 6f 70 73 2c 20 6c 69 6b 65 77 69 73 65 2e 20 5c 5c 5b 71 75 69 74 2d 73 68 65 6c 6c 2d 73 75 62 ┆ops, likewise. \\[quit-shell-sub┆
0x1240…1260 6a 6f 62 5d 20 73 65 6e 64 73 20 71 75 69 74 20 73 69 67 6e 61 6c 2c 20 6c 69 6b 65 77 69 73 65 ┆job] sends quit signal, likewise┆
0x1260…1280 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c4 88 c9 ┆." (interactive) (byte-code " ┆
0x1280…12a0 20 88 ca 89 10 88 cb 89 11 88 cc 89 12 88 cd 20 88 ce cf 21 88 0b 83 20 00 c4 82 29 00 d0 0d 21 ┆ ! ) !┆
0x12a0…12c0 89 13 88 d1 0b 21 88 d2 0b 21 88 d3 c6 21 88 d4 20 89 16 06 88 d3 c7 21 88 d4 20 89 16 07 88 d5 ┆ ! ! ! ! ┆
0x12c0…12e0 c8 21 88 d6 89 16 08 88 d7 d8 d9 5c 22 87 22 20 5b 6d 61 6a 6f 72 2d 6d 6f 64 65 20 6d 6f 64 65 ┆ ! \" " [major-mode mode┆
0x12e0…1300 2d 6e 61 6d 65 20 6d 6f 64 65 2d 6c 69 6e 65 2d 70 72 6f 63 65 73 73 20 69 6e 66 65 72 69 6f 72 ┆-name mode-line-process inferior┆
0x1300…1320 2d 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 6d 61 70 20 6e 69 6c 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d ┆-prolog-mode-map nil shell-mode-┆
0x1320…1340 6d 61 70 20 6c 61 73 74 2d 69 6e 70 75 74 2d 73 74 61 72 74 20 6c 61 73 74 2d 69 6e 70 75 74 2d ┆map last-input-start last-input-┆
0x1340…1360 65 6e 64 20 73 68 65 6c 6c 2d 70 72 6f 6d 70 74 2d 70 61 74 74 65 72 6e 20 6b 69 6c 6c 2d 61 6c ┆end shell-prompt-pattern kill-al┆
0x1360…1380 6c 2d 6c 6f 63 61 6c 2d 76 61 72 69 61 62 6c 65 73 20 69 6e 66 65 72 69 6f 72 2d 70 72 6f 6c 6f ┆l-local-variables inferior-prolo┆
0x1380…13a0 67 2d 6d 6f 64 65 20 22 49 6e 66 65 72 69 6f 72 20 50 72 6f 6c 6f 67 22 20 28 22 3a 20 25 73 22 ┆g-mode "Inferior Prolog" (": %s"┆
0x13a0…13c0 29 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 76 61 72 69 61 62 6c 65 73 20 72 65 71 75 69 72 65 20 ┆) prolog-mode-variables require ┆
0x13c0…13e0 73 68 65 6c 6c 20 63 6f 70 79 2d 61 6c 69 73 74 20 70 72 6f 6c 6f 67 2d 6d 6f 64 65 2d 63 6f 6d ┆shell copy-alist prolog-mode-com┆
0x13e0…1400 6d 61 6e 64 73 20 75 73 65 2d 6c 6f 63 61 6c 2d 6d 61 70 20 6d 61 6b 65 2d 6c 6f 63 61 6c 2d 76 ┆mands use-local-map make-local-v┆
0x1400…1420 61 72 69 61 62 6c 65 20 6d 61 6b 65 2d 6d 61 72 6b 65 72 20 6d 61 6b 65 2d 76 61 72 69 61 62 6c ┆ariable make-marker make-variabl┆
0x1420…1440 65 2d 62 75 66 66 65 72 2d 6c 6f 63 61 6c 20 22 5e 7c 20 5b 20 3f 5d 5b 2d 20 5d 20 2a 22 20 72 ┆e-buffer-local "^| [ ?][- ] *" r┆
0x1440…1460 75 6e 2d 68 6f 6f 6b 73 20 73 68 65 6c 6c 2d 6d 6f 64 65 2d 68 6f 6f 6b 20 70 72 6f 6c 6f 67 2d ┆un-hooks shell-mode-hook prolog-┆
0x1460…1480 6d 6f 64 65 2d 68 6f 6f 6b 5d 20 31 34 29 29 0a 0a 28 64 65 66 75 6e 20 72 75 6e 2d 70 72 6f 6c ┆mode-hook] 14)) (defun run-prol┆
0x1480…14a0 6f 67 20 6e 69 6c 20 22 5c 0a 52 75 6e 20 61 6e 20 69 6e 66 65 72 69 6f 72 20 50 72 6f 6c 6f 67 ┆og nil "\ Run an inferior Prolog┆
0x14a0…14c0 20 70 72 6f 63 65 73 73 2c 20 69 6e 70 75 74 20 61 6e 64 20 6f 75 74 70 75 74 20 76 69 61 20 62 ┆ process, input and output via b┆
0x14c0…14e0 75 66 66 65 72 20 2a 70 72 6f 6c 6f 67 2a 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 29 20 28 ┆uffer *prolog*." (interactive) (┆
0x14e0…1500 62 79 74 65 2d 63 6f 64 65 20 22 c0 88 c1 c2 21 88 c3 c4 c5 c5 5c 22 21 88 c6 20 87 22 20 5b 6e ┆byte-code " ! \"! " [n┆
0x1500…1520 69 6c 20 72 65 71 75 69 72 65 20 73 68 65 6c 6c 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 ┆il require shell switch-to-buffe┆
0x1520…1540 72 20 6d 61 6b 65 2d 73 68 65 6c 6c 20 22 70 72 6f 6c 6f 67 22 20 69 6e 66 65 72 69 6f 72 2d 70 ┆r make-shell "prolog" inferior-p┆
0x1540…1560 72 6f 6c 6f 67 2d 6d 6f 64 65 5d 20 35 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f 6c 6f 67 2d 63 ┆rolog-mode] 5)) (defun prolog-c┆
0x1560…1580 6f 6e 73 75 6c 74 2d 72 65 67 69 6f 6e 20 28 63 6f 6d 70 69 6c 65 20 62 65 67 20 65 6e 64 29 20 ┆onsult-region (compile beg end) ┆
0x1580…15a0 22 5c 0a 53 65 6e 64 20 74 68 65 20 72 65 67 69 6f 6e 20 74 6f 20 74 68 65 20 50 72 6f 6c 6f 67 ┆"\ Send the region to the Prolog┆
0x15a0…15c0 20 70 72 6f 63 65 73 73 20 6d 61 64 65 20 62 79 20 4d 2d 78 20 72 75 6e 2d 70 72 6f 6c 6f 67 2e ┆ process made by M-x run-prolog.┆
0x15c0…15e0 0a 20 49 66 20 43 4f 4d 50 49 4c 45 20 28 70 72 65 66 69 78 20 61 72 67 29 20 69 73 20 6e 6f 74 ┆ If COMPILE (prefix arg) is not┆
0x15e0…1600 20 6e 69 6c 2c 0a 20 75 73 65 20 63 6f 6d 70 69 6c 65 20 6d 6f 64 65 20 72 61 74 68 65 72 20 74 ┆ nil, use compile mode rather t┆
0x1600…1620 68 61 6e 20 63 6f 6e 73 75 6c 74 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 ┆han consult mode." (interactive ┆
0x1620…1640 22 50 0a 72 22 29 20 28 62 79 74 65 2d 63 6f 64 65 20 22 c6 88 8a 08 83 0e 00 c7 c8 09 5c 22 82 ┆"P r") (byte-code " \" ┆
0x1640…1660 12 00 c7 c8 0a 5c 22 88 c9 c8 0b 0c 23 88 c7 c8 ca 5c 22 88 0d 83 29 00 c7 c8 0d 5c 22 82 2c 00 ┆ \" # \" ) \" , ┆
0x1660…1680 cb c8 21 29 87 22 20 5b 63 6f 6d 70 69 6c 65 20 70 72 6f 6c 6f 67 2d 63 6f 6d 70 69 6c 65 2d 73 ┆ !) " [compile prolog-compile-s┆
0x1680…16a0 74 72 69 6e 67 20 70 72 6f 6c 6f 67 2d 63 6f 6e 73 75 6c 74 2d 73 74 72 69 6e 67 20 62 65 67 20 ┆tring prolog-consult-string beg ┆
0x16a0…16c0 65 6e 64 20 70 72 6f 6c 6f 67 2d 65 6f 66 2d 73 74 72 69 6e 67 20 6e 69 6c 20 73 65 6e 64 2d 73 ┆end prolog-eof-string nil send-s┆
0x16c0…16e0 74 72 69 6e 67 20 22 70 72 6f 6c 6f 67 22 20 73 65 6e 64 2d 72 65 67 69 6f 6e 20 22 0a 22 20 70 ┆tring "prolog" send-region " " p┆
0x16e0…1700 72 6f 63 65 73 73 2d 73 65 6e 64 2d 65 6f 66 5d 20 37 29 29 0a 0a 28 64 65 66 75 6e 20 70 72 6f ┆rocess-send-eof] 7)) (defun pro┆
0x1700…1720 6c 6f 67 2d 63 6f 6e 73 75 6c 74 2d 72 65 67 69 6f 6e 2d 61 6e 64 2d 67 6f 20 28 63 6f 6d 70 69 ┆log-consult-region-and-go (compi┆
0x1720…1740 6c 65 20 62 65 67 20 65 6e 64 29 20 22 5c 0a 53 65 6e 64 20 74 68 65 20 72 65 67 69 6f 6e 20 74 ┆le beg end) "\ Send the region t┆
0x1740…1760 6f 20 74 68 65 20 69 6e 66 65 72 69 6f 72 20 50 72 6f 6c 6f 67 2c 20 61 6e 64 20 73 77 69 74 63 ┆o the inferior Prolog, and switc┆
0x1760…1780 68 20 74 6f 20 2a 70 72 6f 6c 6f 67 2a 20 62 75 66 66 65 72 2e 0a 20 49 66 20 43 4f 4d 50 49 4c ┆h to *prolog* buffer. If COMPIL┆
0x1780…17a0 45 20 28 70 72 65 66 69 78 20 61 72 67 29 20 69 73 20 6e 6f 74 20 6e 69 6c 2c 0a 20 75 73 65 20 ┆E (prefix arg) is not nil, use ┆
0x17a0…17c0 63 6f 6d 70 69 6c 65 20 6d 6f 64 65 20 72 61 74 68 65 72 20 74 68 61 6e 20 63 6f 6e 73 75 6c 74 ┆compile mode rather than consult┆
0x17c0…17e0 20 6d 6f 64 65 2e 22 20 28 69 6e 74 65 72 61 63 74 69 76 65 20 22 50 0a 72 22 29 20 28 62 79 74 ┆ mode." (interactive "P r") (byt┆
0x17e0…1800 65 2d 63 6f 64 65 20 22 c3 88 c4 08 09 0a 23 88 c5 c6 21 87 22 20 5b 63 6f 6d 70 69 6c 65 20 62 ┆e-code " # ! " [compile b┆
0x1800…1820 65 67 20 65 6e 64 20 6e 69 6c 20 70 72 6f 6c 6f 67 2d 63 6f 6e 73 75 6c 74 2d 72 65 67 69 6f 6e ┆eg end nil prolog-consult-region┆
0x1820…1840 20 73 77 69 74 63 68 2d 74 6f 2d 62 75 66 66 65 72 20 22 2a 70 72 6f 6c 6f 67 2a 22 5d 20 34 29 ┆ switch-to-buffer "*prolog*"] 4)┆
0x1840…1842 29 0a ┆) ┆