Mercurial > emacs

comparison lisp/progmodes/prolog.el @ 258:1e0bc00dca7a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** 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))