# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 808697316 0
# Node ID 83fd8f17cfe41aae4cc1a04940cbacac235b4517
# Parent  1df99da28f3d0096308607722992ad7cfa953146
(pascal-mode): Set comment-start.
(pascal-toggle-completions): Doc fix.

diff -r 1df99da28f3d -r 83fd8f17cfe4 lisp/progmodes/pascal.el
--- a/lisp/progmodes/pascal.el	Thu Aug 17 19:40:54 1995 +0000
+++ b/lisp/progmodes/pascal.el	Thu Aug 17 22:08:36 1995 +0000
@@ -196,10 +196,10 @@
 will do all lineups.")
 
 (defvar pascal-toggle-completions nil
-  "*Non-nil means that \\<pascal-mode-map>\\[pascal-complete-label] should \
-not display a completion buffer when
-the label couldn't be completed, but instead toggle the possible completions
-with repeated \\[pascal-complete-label]'s.")
+  "*Non-nil means \\<pascal-mode-map>\\[pascal-complete-word] should try all possible completions one by one.
+Repeated use of \\[pascal-complete-word] will show you all of them.
+Normally, when there is more than one possible completion,
+it displays a list of all possible completions.")
 
 (defvar pascal-type-keywords
   '("array" "file" "packed" "char" "integer" "real" "string" "record")
@@ -320,6 +320,8 @@
   (setq parse-sexp-ignore-comments nil)
   (make-local-variable 'case-fold-search)
   (setq case-fold-search t)
+  (make-local-variable 'comment-start)
+  (setq comment-start "{")
   (make-local-variable 'comment-start-skip)
   (setq comment-start-skip "(\\*+ *\\|{ *")
   (make-local-variable 'comment-end)