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 | e936de0b972da715bc6131e257a6a9cdea7391ec (patch) | |
| tree | 54213f7ec3c4f198f906126b0141a8800b3f6af2 /lisp/progmodes/pascal.el | |
| parent | 20606f3dac9c264bc6f96d1a39e47c3ef14aecfb (diff) | |
| download | emacs-e936de0b972da715bc6131e257a6a9cdea7391ec.tar.gz emacs-e936de0b972da715bc6131e257a6a9cdea7391ec.tar.bz2 emacs-e936de0b972da715bc6131e257a6a9cdea7391ec.zip | |
(pascal-mode): Set comment-start.
Diffstat (limited to 'lisp/progmodes/pascal.el')
| -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) |