Mercurial > emacs
comparison lisp/progmodes/prolog.el @ 258:1e0bc00dca7a
*** empty log message ***
author | Jim Blandy <jimb@redhat.com> |
---|---|
date | Thu, 09 May 1991 21:50:55 +0000 |
parents | 5647f2040009 |
children | 505130d1ddf8 |
comparison
equal
deleted
inserted
replaced
257:e5ba2ba35226 | 258:1e0bc00dca7a |
---|---|
82 (if prolog-mode-map | 82 (if prolog-mode-map |
83 nil | 83 nil |
84 (setq prolog-mode-map (make-sparse-keymap)) | 84 (setq prolog-mode-map (make-sparse-keymap)) |
85 (prolog-mode-commands prolog-mode-map)) | 85 (prolog-mode-commands prolog-mode-map)) |
86 | 86 |
87 ;;;###autoload | |
87 (defun prolog-mode () | 88 (defun prolog-mode () |
88 "Major mode for editing Prolog code for Prologs. | 89 "Major mode for editing Prolog code for Prologs. |
89 Blank lines and `%%...' separate paragraphs. `%'s start comments. | 90 Blank lines and `%%...' separate paragraphs. `%'s start comments. |
90 Commands: | 91 Commands: |
91 \\{prolog-mode-map} | 92 \\{prolog-mode-map} |
225 (setq inferior-prolog-mode-map (copy-keymap comint-mode-map)) | 226 (setq inferior-prolog-mode-map (copy-keymap comint-mode-map)) |
226 (prolog-mode-commands inferior-prolog-mode-map)) | 227 (prolog-mode-commands inferior-prolog-mode-map)) |
227 (use-local-map inferior-prolog-mode-map) | 228 (use-local-map inferior-prolog-mode-map) |
228 (run-hooks 'prolog-mode-hook)) | 229 (run-hooks 'prolog-mode-hook)) |
229 | 230 |
231 ;;;###autoload | |
230 (defun run-prolog () | 232 (defun run-prolog () |
231 "Run an inferior Prolog process, input and output via buffer *prolog*." | 233 "Run an inferior Prolog process, input and output via buffer *prolog*." |
232 (interactive) | 234 (interactive) |
233 (require 'comint) | 235 (require 'comint) |
234 (switch-to-buffer (make-comint "prolog" prolog-program-name)) | 236 (switch-to-buffer (make-comint "prolog" prolog-program-name)) |