diff options
| author | Richard M. Stallman <rms@gnu.org> | 1997-04-15 23:30:35 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1997-04-15 23:30:35 +0000 |
| commit | e2e0a9d448bd545e167d27b82165eef1150dcdac (patch) | |
| tree | d615326ea5a3640ed0b3b94d3be65a96a5cf1b9c | |
| parent | cd4fef4b266d568129e41caec4b1f9b7ebc73d82 (diff) | |
| download | emacs-e2e0a9d448bd545e167d27b82165eef1150dcdac.tar.gz | |
(pascal-mode): Set comment-start.
| -rw-r--r-- | lisp/progmodes/pascal.el | 6 |
1 files changed, 4 insertions, 2 deletions
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) |