[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r99324: * progmodes/ada-mode.el (ada-
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r99324: * progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete. |
Date: |
Thu, 14 Jan 2010 13:36:14 +0100 |
User-agent: |
Bazaar (2.0.2) |
------------------------------------------------------------
revno: 99324
author: Stephen Leake <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Thu 2010-01-14 13:36:14 +0100
message:
* progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.
(ada-mode): Don't obey `ada-clean-buffer-before-saving' anymore.
modified:
lisp/ChangeLog
lisp/progmodes/ada-mode.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2010-01-14 06:13:16 +0000
+++ b/lisp/ChangeLog 2010-01-14 12:36:14 +0000
@@ -1,3 +1,8 @@
+2010-01-14 Stephen Leake <address@hidden>
+
+ * progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.
+ (ada-mode): Don't obey `ada-clean-buffer-before-saving' anymore.
+
2010-01-14 Glenn Morris <address@hidden>
* frame.el (show-trailing-whitespace): Safe if boolean. (Bug#5312)
=== modified file 'lisp/progmodes/ada-mode.el'
--- a/lisp/progmodes/ada-mode.el 2010-01-13 08:35:10 +0000
+++ b/lisp/progmodes/ada-mode.el 2010-01-14 12:36:14 +0000
@@ -229,11 +229,13 @@
(const ada-no-auto-case))
:group 'ada)
-;; FIXME If this is not something required by the ada language, this
-;; should be removed.
(defcustom ada-clean-buffer-before-saving t
"*Non-nil means remove trailing spaces and untabify the buffer before
saving."
:type 'boolean :group 'ada)
+(make-obsolete-variable 'ada-clean-buffer-before-saving
+ "use the `write-file-functions' hook."
+ "23.2")
+
(defcustom ada-indent 3
"*Size of Ada indentation.
@@ -1303,14 +1305,6 @@
(set-syntax-table ada-mode-syntax-table)
- (if ada-clean-buffer-before-saving
- (progn
- ;; remove all spaces at the end of lines in the whole buffer.
- (add-hook 'local-write-file-hooks 'delete-trailing-whitespace)
- ;; convert all tabs to the correct number of spaces.
- (add-hook 'local-write-file-hooks
- (lambda () (untabify (point-min) (point-max))))))
-
(set (make-local-variable 'skeleton-further-elements)
'((< '(backward-delete-char-untabify
(min ada-indent (current-column))))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r99324: * progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.,
Juanma Barranquero <=