(ebrowse-draw-tree-fn): Use copy-sequence.

[gnu-emacs] / lisp / progmodes / delphi.el

diff --git a/lisp/progmodes/delphi.el b/lisp/progmodes/delphi.el
index 930dd09f1ff1f578b2a32bc20ef1321d306203cf..ffa86d3b69bfada68889484a48c00dcf64f430b8 100644 (file)
--- a/lisp/progmodes/delphi.el
+++ b/lisp/progmodes/delphi.el
@@ -1,4 +1,4 @@
-;; delphi.el --- Major mode for editing Delphi source (Object Pascal) in Emacs
+;;; delphi.el --- major mode for editing Delphi source (Object Pascal) in Emacs
 
 ;; Copyright (C) 1998, 1999 Free Software Foundation, Inc.
 
@@ -65,23 +65,10 @@
 (provide 'delphi)
 
 (defconst delphi-version
-  (let ((revision "$Revision: 3.2 $"))
+  (let ((revision "$Revision: 3.7 $"))
     (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.
-;;;
-;;; Revision 3.1  1999/08/04 04:45:47  blaak
-;;; Make auto-indent on newline optional
-;;;
-;;; Revision 3.0  1999/08/03 04:59:02  blaak
-;;; Re-release as an official Emacs language mode
-;;;
 
 (eval-and-compile
   ;; Allow execution on pre Emacs 20 versions.
@@ -179,22 +166,22 @@ differs from the default."
 
 (defcustom delphi-comment-face 'font-lock-comment-face
   "*Face used to color delphi comments."
-  :type 'facep
+  :type 'face
   :group 'delphi)
 
 (defcustom delphi-string-face 'font-lock-string-face
   "*Face used to color delphi strings."
-  :type 'facep
+  :type 'face
   :group 'delphi)
 
 (defcustom delphi-keyword-face 'font-lock-keyword-face
   "*Face used to color delphi keywords."
-  :type 'facep
+  :type 'face
   :group 'delphi)
 
 (defcustom delphi-other-face nil
   "*Face used to color everything else."
-  :type 'facep
+  :type 'face
   :group 'delphi)
 
 (defconst delphi-directives
@@ -276,7 +263,7 @@ are followed by an expression.")
   `(,@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)
+(defconst delphi-decl-sections '(type const var label resourcestring)
   "Denotes the start of a declaration section.")
 
 (defconst delphi-class-types '(class object)
@@ -2011,7 +1998,6 @@ no args, if that value is non-nil."
 
   ;; We need to keep track of changes to the buffer to determine if we need
   ;; to retokenize changed text.
-  (make-local-hook 'after-change-functions)
   (add-hook 'after-change-functions 'delphi-after-change nil t)
 
   (widen)
@@ -2023,3 +2009,5 @@ no args, if that value is non-nil."
        (delphi-progress-done))))
 
   (run-hooks 'delphi-mode-hook))
+
+;;; delphi.el ends here