Mercurial > emacs
changeset 106829:e9774faca8a4
* progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.
(ada-mode): Don't obey `ada-clean-buffer-before-saving' anymore.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Thu, 14 Jan 2010 13:36:14 +0100 |
| parents | 1562bc1aa080 |
| children | 4ff0e607507d 238592f6c24a |
| files | lisp/ChangeLog lisp/progmodes/ada-mode.el |
| diffstat | 2 files changed, 9 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Jan 14 20:51:58 2010 +0900 +++ b/lisp/ChangeLog Thu Jan 14 13:36:14 2010 +0100 @@ -1,3 +1,8 @@ +2010-01-14 Stephen Leake <stephen_leake@member.fsf.org> + + * 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 <rgm@gnu.org> * frame.el (show-trailing-whitespace): Safe if boolean. (Bug#5312)
--- a/lisp/progmodes/ada-mode.el Thu Jan 14 20:51:58 2010 +0900 +++ b/lisp/progmodes/ada-mode.el Thu Jan 14 13:36:14 2010 +0100 @@ -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))))))