(ada-set-syntax-table-properties): Bind

buffer-file-name and buffer-file-truename.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fef1f8eb4499613286280d113142983c343cf486..42e8111120821d7bf454c7cf606d726dc2a80fcc 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,12 @@
+2008-01-10  Martin Rudalics  <rudalics@gmx.at>
+
+       * progmodes/ada-mode.el (ada-set-syntax-table-properties):
+       Bind buffer-file-name and buffer-file-truename.
+
+       * fringe.el (fringe-mode-explicit): New variable.
+       (set-fringe-mode): Don't alter default-frame-alist when just
+       loading this file.
+
 2008-01-10  Tassilo Horn  <tassilo@member.fsf.org>
 
        * doc-view.el (doc-view-buffer-file-name): New variable.

diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el
index 2c3acdda1766b65e87c499868875cfccc6063271..1673bb3f69a259f4aed552d16f2366c43f5efc05 100644 (file)
--- a/lisp/progmodes/ada-mode.el
+++ b/lisp/progmodes/ada-mode.el
@@ -930,7 +930,8 @@ are treated as numbers instead of gnatprep comments."
        (buffer-undo-list t)
        (inhibit-read-only t)
        (inhibit-point-motion-hooks t)
-       (inhibit-modification-hooks t))
+       (inhibit-modification-hooks t)
+       buffer-file-name buffer-file-truename)
     (remove-text-properties (point-min) (point-max) '(syntax-table nil))
     (goto-char (point-min))
     (while (re-search-forward