diff options
| author | Ray Blaak | 2000-02-09 07:04:15 +0000 |
|---|---|---|
| committer | Ray Blaak | 2000-02-09 07:04:15 +0000 |
| commit | e97a246146ef29f263a14cd6bd6a60a6e937618c (patch) | |
| tree | 1f6fb08b03cad329ee42336889cf2bc6554b09cd | |
| parent | 69da54ba20cdf44d2618acfa7ae7234ed21ace97 (diff) | |
| download | emacs-e97a246146ef29f263a14cd6bd6a60a6e937618c.tar.gz emacs-e97a246146ef29f263a14cd6bd6a60a6e937618c.zip | |
Make resourcestring a declaration region, like const and var.
| -rw-r--r-- | lisp/progmodes/delphi.el | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el index 930dd09f1ff..3a3153096e0 100644 --- a/lisp/progmodes/delphi.el +++ b/lisp/progmodes/delphi.el | |||
| @@ -65,11 +65,14 @@ | |||
| 65 | (provide 'delphi) | 65 | (provide 'delphi) |
| 66 | 66 | ||
| 67 | (defconst delphi-version | 67 | (defconst delphi-version |
| 68 | (let ((revision "$Revision: 3.2 $")) | 68 | (let ((revision "$Revision: 3.3 $")) |
| 69 | (string-match ": \\([^ ]+\\)" revision) | 69 | (string-match ": \\([^ ]+\\)" revision) |
| 70 | (match-string 1 revision)) | 70 | (match-string 1 revision)) |
| 71 | "Version of this delphi mode.") | 71 | "Version of this delphi mode.") |
| 72 | ;;; $Log: delphi.el,v $ | 72 | ;;; $Log: delphi.el,v $ |
| 73 | ;;; Revision 3.3 2000/02/01 14:32:21 fx | ||
| 74 | ;;; (delphi): Add :version to defgroup. | ||
| 75 | ;;; | ||
| 73 | ;;; Revision 3.2 1999/08/18 05:08:39 blaak | 76 | ;;; Revision 3.2 1999/08/18 05:08:39 blaak |
| 74 | ;;; checked in with -k by blaak at 1999/08/18 05:08:39 | 77 | ;;; checked in with -k by blaak at 1999/08/18 05:08:39 |
| 75 | ;;; | 78 | ;;; |
| @@ -276,7 +279,7 @@ are followed by an expression.") | |||
| 276 | `(,@delphi-end-block-statements ,@delphi-mid-block-statements) | 279 | `(,@delphi-end-block-statements ,@delphi-mid-block-statements) |
| 277 | "Statements that match the indentation of the parent block.") | 280 | "Statements that match the indentation of the parent block.") |
| 278 | 281 | ||
| 279 | (defconst delphi-decl-sections '(type const var label) | 282 | (defconst delphi-decl-sections '(type const var label resourcestring) |
| 280 | "Denotes the start of a declaration section.") | 283 | "Denotes the start of a declaration section.") |
| 281 | 284 | ||
| 282 | (defconst delphi-class-types '(class object) | 285 | (defconst delphi-class-types '(class object) |