From 105ad0da853d7459489a148629e8b8741799b07f Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Thu, 17 Aug 1995 22:08:36 +0000 Subject: [PATCH] (pascal-mode): Set comment-start. (pascal-toggle-completions): Doc fix. --- lisp/progmodes/pascal.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/pascal.el b/lisp/progmodes/pascal.el index 02d884f28f2..2e9a759ffdb 100644 --- a/lisp/progmodes/pascal.el +++ b/lisp/progmodes/pascal.el @@ -196,10 +196,10 @@ instance will do lineup in case-statements and parameterlist, while '(all) will do all lineups.") (defvar pascal-toggle-completions nil - "*Non-nil means that \\\\[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-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 @@ no args, if that value is non-nil." (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) -- 2.39.2