Ajout option 'display trailing whitespace' à la configuration emacs

diff --git a/stage5/misc/emacs/emacsrc b/stage5/misc/emacs/emacsrc
index ba35287..4664123 100644 (file)
--- a/stage5/misc/emacs/emacsrc
+++ b/stage5/misc/emacs/emacsrc
@@ -22,6 +22,9 @@
 ;; Replaces tabs in files with spaces
 (setq-default indent-tabs-mode nil)
 
+;; Display trailing whitespace
+(setq-default show-trailing-whitespace t)
+
 ;; Makes the compilation buffer always scrolls to follow
 ;; output as it comes in.
 (setq compilation-scroll-output t)
@@ -60,7 +63,7 @@
   (compile "make clean"))
 
 (defun compile-make ()
-  (interactive) 
+  (interactive)
   (compile "make"))
 
 (defun checkpatch()
@@ -112,9 +115,19 @@
   (setq indent-tabs-mode t)
 )
 
+(defun dap-c-mode ()
+  "C mode with adjusted defaults for use with DAP source code."
+  (interactive)
+  (c-mode)
+  (c-set-style "K&R")
+  (setq c-basic-offset 4))
+
 ;; Default for .h and .d files -> linux mode.
 (add-to-list 'auto-mode-alist '("\.[ch]$" . linux-c-mode))
 
+;; Default for DAP .h and .d files -> linux mode.
+(add-to-list 'auto-mode-alist '(".*/dap.*" . dap-c-mode))
+
 ;; Verilog mode
 (autoload 'verilog-mode "verilog-mode" "Verilog mode" t)
 (add-to-list 'auto-mode-alist '("\\.v\\'" . verilog-mode))
@@ -140,6 +153,9 @@
 (autoload 'muttrc-mode "muttrc-mode" "Major mode to edit muttrc files" t)
 (add-to-list 'auto-mode-alist '("muttrc\\'" . muttrc-mode))
 
+;; Default for Altium Delphi scripts (.pas) files -> linux mode.
+(add-to-list 'auto-mode-alist '("\\.pas$" . delphi-mode))
+
 ;; When an Emacs init file gets large or has a lot of function definitions, you
 ;; should consider compiling it: it will load faster when Emacs starts, and its
 ;; functions will execute faster.