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'. |