comparison lisp/progmodes/delphi.el @ 27647:c8d739c1aaf0

Make resourcestring a declaration region, like const and var.

27646:b8928337c55a

;;; Code:

(provide 'delphi)

(defconst delphi-version
  (let ((revision "$Revision: 3.2 $"))
    (string-match ": \\([^ ]+\\)" revision)
    (match-string 1 revision))
  "Version of this delphi mode.")
;;; $Log: delphi.el,v $
;;; Revision 3.2  1999/08/18 05:08:39  blaak
;;; checked in with -k by blaak at 1999/08/18 05:08:39
;;;
;;; Revision 3.2  1999/08/04 05:09:19  blaak
;;; Consider assembly sections as blocks, to indent them better.

(defconst delphi-match-block-statements
  `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
  "Statements that match the indentation of the parent block.")

(defconst delphi-decl-sections '(type const var label)
  "Denotes the start of a declaration section.")

(defconst delphi-class-types '(class object)
  "Class types.")

27647:c8d739c1aaf0

;;; Code:

(provide 'delphi)

(defconst delphi-version
  (let ((revision "$Revision: 3.3 $"))
    (string-match ": \\([^ ]+\\)" revision)
    (match-string 1 revision))
  "Version of this delphi mode.")
;;; $Log: delphi.el,v $
;;; Revision 3.3  2000/02/01 14:32:21  fx
;;; (delphi): Add :version to defgroup.
;;;
;;; Revision 3.2  1999/08/18 05:08:39  blaak
;;; checked in with -k by blaak at 1999/08/18 05:08:39
;;;
;;; Revision 3.2  1999/08/04 05:09:19  blaak
;;; Consider assembly sections as blocks, to indent them better.

(defconst delphi-match-block-statements
  `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
  "Statements that match the indentation of the parent block.")

(defconst delphi-decl-sections '(type const var label resourcestring)
  "Denotes the start of a declaration section.")

(defconst delphi-class-types '(class object)
  "Class types.")