diff options
| author | Stephen Leake <stephen_leake@member.fsf.org> | 2010-01-14 13:36:14 +0100 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2010-01-14 13:36:14 +0100 |
| commit | 5c9434d0a0a6995089224a4bcb2286d13de46aec (patch) | |
| tree | 327900f0deb0846204d125979527d8b9959863f7 /lisp/progmodes | |
| parent | d12bd91784f39bc65d9fdccc00676778f035c79d (diff) | |
| download | emacs-5c9434d0a0a6995089224a4bcb2286d13de46aec.tar.gz emacs-5c9434d0a0a6995089224a4bcb2286d13de46aec.tar.bz2 emacs-5c9434d0a0a6995089224a4bcb2286d13de46aec.zip | |
* progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.
(ada-mode): Don't obey `ada-clean-buffer-before-saving' anymore.
Diffstat (limited to 'lisp/progmodes')
| -rw-r--r-- | lisp/progmodes/ada-mode.el | 14 |
1 files changed, 4 insertions, 10 deletions
diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index d0affdc0726..e246118fae2 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -229,11 +229,13 @@ It may be `downcase-word', `upcase-word', `ada-loose-case-word' or (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 @@ the file name." (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)))))) |