Commit 5c9434d0 authored by Stephen Leake's avatar Stephen Leake Committed by Juanma Barranquero
Browse files

* progmodes/ada-mode.el (ada-clean-buffer-before-saving): Make obsolete.

  (ada-mode): Don't obey `ada-clean-buffer-before-saving' anymore.
parent d12bd917
2010-01-14 Stephen Leake <>
* 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 <>
* frame.el (show-trailing-whitespace): Safe if boolean. (Bug#5312)
......@@ -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."
(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
;; 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))))))
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment