From: Richard M. Stallman <rms@gnu.org>
Date: Tue, 15 Apr 1997 23:30:35 +0000 (+0000)
Subject: (pascal-mode): Set comment-start.
X-Git-Tag: emacs-20.1~2463
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=e936de0b972da715bc6131e257a6a9cdea7391ec;p=emacs.git

(pascal-mode): Set comment-start.
---

diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el
index 1055e692689..e9bd779718e 100644
--- a/lisp/progmodes/pascal.el
+++ b/lisp/progmodes/pascal.el
@@ -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 @@ Variables controlling indentation/edit style:
     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 @@ no args, if that value is non-nil."
   (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)