# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 861147035 0
# Node ID b758fbf989b7141740f5ae8d472f9e9767d6e3ad
# Parent  e2757a9ccbe9fcfe985a8a6e3e72b2267cbdbb09
(pascal-mode): Set comment-start.

diff -r e2757a9ccbe9 -r b758fbf989b7 lisp/progmodes/pascal.el
--- a/lisp/progmodes/pascal.el	Tue Apr 15 20:33:18 1997 +0000
+++ b/lisp/progmodes/pascal.el	Tue Apr 15 23:30:35 1997 +0000
@@ -98,7 +98,7 @@
 (defvar pascal-imenu-generic-expression
   '("^[ \t]*\\(function\\|procedure\\)[ \t\n]+\\([a-zA-Z0-9_.:]+\\)" . (2))
   "Imenu expression for Pascal-mode.  See `imenu-generic-expression'.")
-  
+
 (defvar pascal-keywords
   '("and" "array" "begin" "case" "const" "div" "do" "downto" "else" "end" 
     "file" "for" "function" "goto" "if" "in" "label" "mod" "nil" "not" "of" 
@@ -301,7 +301,7 @@
     Non-nil means a comment { ... } is set after the ends which ends cases and
     functions. The name of the function or case will be set between the braces.
  pascal-auto-lineup       (default t)
-    List of contexts where auto lineup of :'s or ='s hould be done.
+    List of contexts where auto lineup of :'s or ='s should be done.
 
 See also the user variables pascal-type-keywords, pascal-start-keywords and
 pascal-separator-keywords.
@@ -319,6 +319,8 @@
   (setq indent-line-function 'pascal-indent-line)
   (make-local-variable 'comment-indent-function)
   (setq comment-indent-function 'pascal-indent-comment)
+  (make-local-variable 'comment-start)
+  (setq comment-start "{")
   (make-local-variable 'parse-sexp-ignore-comments)
   (setq parse-sexp-ignore-comments nil)
   (make-local-variable 'case-fold-search)