Emacs: added status message to toggle-indent-tabs
parent
7fcc4cc0ba
commit
53ae5144c0
|
@ -328,7 +328,10 @@ region. Output result at the end after an ' = ' separtor."
|
||||||
(defun toggle-indent-tabs ()
|
(defun toggle-indent-tabs ()
|
||||||
(interactive)
|
(interactive)
|
||||||
(if indent-tabs-mode
|
(if indent-tabs-mode
|
||||||
(setq indent-tabs-mode nil)
|
(progn
|
||||||
|
(message "Indent using tabs")
|
||||||
|
(setq indent-tabs-mode nil))
|
||||||
|
(message "Indent using spaces")
|
||||||
(setq indent-tabs-mode t)))
|
(setq indent-tabs-mode t)))
|
||||||
|
|
||||||
(define-key my-keys-minor-mode-map (kbd "C-c C-i") 'toggle-indent-tabs)
|
(define-key my-keys-minor-mode-map (kbd "C-c C-i") 'toggle-indent-tabs)
|
||||||
|
|
|
@ -103,7 +103,7 @@
|
||||||
;; WARNING: this can break some configuration files needing whitespaces at the
|
;; WARNING: this can break some configuration files needing whitespaces at the
|
||||||
;; end.
|
;; end.
|
||||||
; (add-hook 'before-save-hook 'delete-trailing-whitespace)
|
; (add-hook 'before-save-hook 'delete-trailing-whitespace)
|
||||||
(setq whitespace-style (quote (face empty trailing tab-mark)))
|
(setq whitespace-style (quote (face trailing tab-mark)))
|
||||||
;; Does not seem to work properly.
|
;; Does not seem to work properly.
|
||||||
; (setq whitespace-action '(report-on-bogus))
|
; (setq whitespace-action '(report-on-bogus))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue