home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / plbin.zip / pl / lisp / qpstart.el < prev    next >
Lisp/Scheme  |  1992-05-26  |  1KB  |  36 lines
  1. ;;;  SCCS: @(#)89/11/21 qpstart.el    1.1
  2. ;;;            Quintus Prolog - GNU Emacs Interface
  3. ;;;                         Support Functions
  4. ;;;
  5. ;;;                Consolidated by Sitaram Muralidhar
  6. ;;;
  7. ;;;                   sitaram@quintus.com
  8. ;;;              Quintus Computer Systems, Inc.
  9. ;;;                  2 May 1989       
  10. ;;;
  11. ;;; This file defines functions that support the Quintus Prolog - GNU Emacs
  12. ;;; interface.
  13. ;;;
  14. ;;;                   Acknowledgements
  15. ;;;
  16. ;;;
  17. ;;; This interface was made possible by contributions from Fernando
  18. ;;; Pereira and various customers of Quintus Computer Systems, Inc.,
  19. ;;; based on code for Quintus's Unipress Emacs interface. 
  20. ;;; 
  21. ;;; Define load-path argument.
  22. ;;;
  23. (defconst load-path-arg 2 
  24.   "The argument in command-line-args which identifies the directory in
  25. which the Quintus Prolog Emacs interface files are located")
  26. ;;;
  27. ;;; Set load-path variable.
  28. ;;; 
  29. (setq load-path (cons 
  30.           (file-name-directory 
  31.             (nth load-path-arg command-line-args))
  32.           load-path))
  33.  
  34. ;;; Load the rest
  35. (load "qprolog-mode" nil t) 
  36.