From fedcb5ffc0e5ce3f89cb9e92cd04e3177c189ea5 Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Thu, 10 Jan 2008 18:49:31 +0000 Subject: [PATCH] (ada-set-syntax-table-properties): Bind buffer-file-name and buffer-file-truename. --- lisp/ChangeLog | 9 +++++++++ lisp/progmodes/ada-mode.el | 3 ++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index fef1f8eb449..42e81111208 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2008-01-10 Martin Rudalics + + * 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 * 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 2c3acdda176..1673bb3f69a 100644 --- 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 -- 2.39.5