Article View: gnu.emacs.bug
Article #1004Prolog mode
From: Masanobu UMEDA
Date: Sat, 24 Sep 1988 08:48
Date: Sat, 24 Sep 1988 08:48
43 lines
1961 bytes
1961 bytes
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)
Technical Details
Message-ID:
<8809240848.AA01401@photon.stars.flab.fujitsu.junet>Path:
arc1-ca.pugleaf.net!utzoo!utgpu!water!watmath!uunet!tut.cis.ohio-state.edu!UUNET.UU.NET!kddlab!photon.stars.flab.fujitsu.junet!umerinShow Full Headers
Complete Article Headers
Path: arc1-ca.pugleaf.net!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