Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!cwjcc!gatech!udel!rochester!bbn!gateway!utrccm!ecb
From: ecb@utrccm (ecb)
Newsgroups: comp.emacs
Subject: emacs mode for pascal
Message-ID: <8907211251.AA21383@utrccm.SMC.UTC.COM>
Date: 21 Jul 89 12:51:41 GMT
References: <1367@irisa.irisa.fr>
Sender: news@bbn.COM
Organization: BBN news/mail gateway
Lines: 54


on 19 Jul 89 12:28:42 GMT,
Henry Thomas <mcvax!inria!irisa!thomas@uunet.uu.NET> said:
Henry> Sender: arpa-unix-emacs-request@bbn.COM
Henry> Source-Info:  From (or Sender) name not authenticated.

Henry> I am looking for a pascal mode for emacs, ideally including indentation.
Henry> If someone has such a thing, please e-mail it to me.
Henry> Thanks.

Here is the one I have. Warning: I am not a pascal programmer so I
                                 have *never* tried this. 

I just knew it existed on our system so when I saw your request I
snarfed it up and sent it out. Use at your own risk. 

			Bud Boman
			United Technologies Research Center
			(203) 727-7128
			ecb@utrccm.smc.utc.com


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; pascal.el -- Pascal mode for Gnuemacs
;;; Copyright (C) 1987 Mark A. Ardis.

(provide 'pascal)

;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

(defvar pascal-mode-map nil
  "Keymap for Pascal Mode."
  ) ; pascal-mode-map

;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

(defun pascal-mode ()
  "Fundamental mode plus Pascal templates:
\\{pascal-mode-map}
"
  (interactive)
					; Local Variables
  (let ()
					; Body
    (setq major-mode 'pascal-mode)
    (setq mode-name "Pascal")
    (template-mode)
    (setq pascal-mode-map (current-local-map))
    ) ; let
  ) ; defun pascal-mode

;;;+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

;;; end of pascal.el