procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Make resourcestring a declaration region, like const and var.

Browse source
This commit is contained in:
Ray Blaak 2000-02-09 07:04:15 +00:00
parent 69da54ba20
commit e97a246146
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/progmodes/delphi.el
View file

@ -65,11 +65,14 @@
(provide 'delphi) (provide 'delphi)
(defconst delphi-version (defconst delphi-version
(let ((revision "$Revision: 3.2 $")) (let ((revision "$Revision: 3.3 $"))
(string-match ": \\([^ ]+\\)" revision) (string-match ": \\([^ ]+\\)" revision)
(match-string 1 revision)) (match-string 1 revision))
"Version of this delphi mode.") "Version of this delphi mode.")
;;; $Log: delphi.el,v $ ;;; $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 ;;; Revision 3.2 1999/08/18 05:08:39 blaak
;;; checked in with -k by blaak at 1999/08/18 05:08:39 ;;; checked in with -k by blaak at 1999/08/18 05:08:39
;;; ;;;
@ -276,7 +279,7 @@ are followed by an expression.")
`(,@delphi-end-block-statements ,@delphi-mid-block-statements) `(,@delphi-end-block-statements ,@delphi-mid-block-statements)
"Statements that match the indentation of the parent block.") "Statements that match the indentation of the parent block.")
(defconst delphi-decl-sections '(type const var label) (defconst delphi-decl-sections '(type const var label resourcestring)
"Denotes the start of a declaration section.") "Denotes the start of a declaration section.")
(defconst delphi-class-types '(class object) (defconst delphi-class-types '(class object)