From: Richard M. Stallman Date: Thu, 17 Aug 1995 22:08:36 +0000 (+0000) Subject: (pascal-mode): Set comment-start. X-Git-Tag: emacs-19.34~2978 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=105ad0da853d7459489a148629e8b8741799b07f;p=emacs.git (pascal-mode): Set comment-start. (pascal-toggle-completions): Doc fix. --- 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)