diff options
| author | Stefan Monnier | 2001-12-02 07:17:48 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-12-02 07:17:48 +0000 |
| commit | 157704f7cf82ba9779803b5e2683824edb46c951 (patch) | |
| tree | 681e4d683bed63cf41d9dfd4e4578099d0086e34 | |
| parent | 52dcc11466283cd06b326fd5bf83d19dcb4aaf25 (diff) | |
| download | emacs-157704f7cf82ba9779803b5e2683824edb46c951.tar.gz emacs-157704f7cf82ba9779803b5e2683824edb46c951.zip | |
(delphi-mode): Don't use make-local-hook.
| -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 8af7d07e2a3..ebd31901442 100644 --- a/lisp/progmodes/delphi.el +++ b/lisp/progmodes/delphi.el | |||
| @@ -65,11 +65,15 @@ | |||
| 65 | (provide 'delphi) | 65 | (provide 'delphi) |
| 66 | 66 | ||
| 67 | (defconst delphi-version | 67 | (defconst delphi-version |
| 68 | (let ((revision "$Revision: 3.5 $")) | 68 | (let ((revision "$Revision: 3.6 $")) |
| 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.6 2001/07/16 12:22:59 pj | ||
| 74 | ;;; | ||
| 75 | ;;; Some fixes to follow coding conventions. | ||
| 76 | ;;; | ||
| 73 | ;;; Revision 3.5 2001/01/26 20:54:03 fx | 77 | ;;; Revision 3.5 2001/01/26 20:54:03 fx |
| 74 | ;;; (delphi-comment-face, delphi-string-face) | 78 | ;;; (delphi-comment-face, delphi-string-face) |
| 75 | ;;; (delphi-keyword-face, delphi-other-face): Fix :type. | 79 | ;;; (delphi-keyword-face, delphi-other-face): Fix :type. |
| @@ -2021,7 +2025,6 @@ no args, if that value is non-nil." | |||
| 2021 | 2025 | ||
| 2022 | ;; We need to keep track of changes to the buffer to determine if we need | 2026 | ;; We need to keep track of changes to the buffer to determine if we need |
| 2023 | ;; to retokenize changed text. | 2027 | ;; to retokenize changed text. |
| 2024 | (make-local-hook 'after-change-functions) | ||
| 2025 | (add-hook 'after-change-functions 'delphi-after-change nil t) | 2028 | (add-hook 'after-change-functions 'delphi-after-change nil t) |
| 2026 | 2029 | ||
| 2027 | (widen) | 2030 | (widen) |