Mercurial > emacs
comparison lisp/progmodes/ada-mode.el @ 87703:9e1ef9a0680b
(ada-set-syntax-table-properties): Bind
buffer-file-name and buffer-file-truename.
| author | Martin Rudalics <rudalics@gmx.at> |
|---|---|
| date | Thu, 10 Jan 2008 18:48:56 +0000 |
| parents | 0c4a74c24677 |
| children | 5d58981e6690 |
comparison
equal
deleted
inserted
replaced
| 87702:7ebe288dfbd0 | 87703:9e1ef9a0680b |
|---|---|
| 928 are treated as numbers instead of gnatprep comments." | 928 are treated as numbers instead of gnatprep comments." |
| 929 (let ((modified (buffer-modified-p)) | 929 (let ((modified (buffer-modified-p)) |
| 930 (buffer-undo-list t) | 930 (buffer-undo-list t) |
| 931 (inhibit-read-only t) | 931 (inhibit-read-only t) |
| 932 (inhibit-point-motion-hooks t) | 932 (inhibit-point-motion-hooks t) |
| 933 (inhibit-modification-hooks t)) | 933 (inhibit-modification-hooks t) |
| 934 buffer-file-name buffer-file-truename) | |
| 934 (remove-text-properties (point-min) (point-max) '(syntax-table nil)) | 935 (remove-text-properties (point-min) (point-max) '(syntax-table nil)) |
| 935 (goto-char (point-min)) | 936 (goto-char (point-min)) |
| 936 (while (re-search-forward | 937 (while (re-search-forward |
| 937 ;; The following regexp was adapted from | 938 ;; The following regexp was adapted from |
| 938 ;; `ada-font-lock-syntactic-keywords'. | 939 ;; `ada-font-lock-syntactic-keywords'. |