Path: utzoo!utgpu!water!watmath!uunet!tut.cis.ohio-state.edu!UUNET.UU.NET!kddlab!photon.stars.flab.fujitsu.junet!umerin From: kddlab!photon.stars.flab.fujitsu.junet!umerin@UUNET.UU.NET (Masanobu UMEDA) Newsgroups: gnu.emacs.bug Subject: Prolog mode Message-ID: <8809240848.AA01401@photon.stars.flab.fujitsu.junet> Date: 24 Sep 88 08:48:02 GMT Sender: daemon@tut.cis.ohio-state.edu Reply-To: umerin%flab.flab.Fujitsu.JUNET@uunet.uu.net Distribution: gnu Organization: GNUs Not Usenet Lines: 43 In GNU Emacs 18.52.2 of Sat Sep 24 1988 on photon (berkeley-unix) Prolog mode should be able to specify program name of Prolog using lisp variable. The following diffs will enable this feature. Thank you for your attention. Masanobu UMEDA umerin@flab.flab.Fujitsu.JUNET umerin%flab.flab.Fujitsu.JUNET@uunet.uu.NET --------------------------------------------------------------------------- *** lisp/prolog.el Sat Apr 9 16:20:05 1988 --- /usr/umerin/src/emacs/prolog.el Sat Sep 24 17:34:13 1988 *************** *** 23,28 **** --- 23,31 ---- (defvar prolog-mode-abbrev-table nil) (defvar prolog-mode-map nil) + (defvar prolog-program-name "prolog" + "*Program name for invoking an inferior Prolog with `run-prolog'.") + (defvar prolog-consult-string "reconsult(user).\n" "*(Re)Consult mode (for C-Prolog and Quintus Prolog). ") *************** *** 241,247 **** "Run an inferior Prolog process, input and output via buffer *prolog*." (interactive) (require 'shell) ! (switch-to-buffer (make-shell "prolog" "prolog")) (inferior-prolog-mode)) (defun prolog-consult-region (compile beg end) --- 244,250 ---- "Run an inferior Prolog process, input and output via buffer *prolog*." (interactive) (require 'shell) ! (switch-to-buffer (make-shell "prolog" prolog-program-name)) (inferior-prolog-mode)) (defun prolog-consult-region (compile beg end)