.dir-locals.el: Assert default GNU settings.

* .dir-locals.el: Assert default GNU settings.

.dir-locals.el

@@ -1,5 +1,5 @@
 ;;; GNU Mes --- Maxwell Equations of Software
-;;; Copyright © 2018 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
 ;;;
 ;;; This file is part of GNU Mes.
 ;;;
@@ -16,10 +16,38 @@
 ;;; You should have received a copy of the GNU General Public License
 ;;; along with GNU Mes.  If not, see <http://www.gnu.org/licenses/>.
 
-((nil
+;; The GNU project defaults.  These are also the GNU Emacs defaults.
+;; Re-asserting theme here, however, as a courtesy for setups that use
+;; a global override.
+(
+ ;; For writing GNU C code, see
+ ;; https://www.gnu.org/prep/standards/html_node/Writing-C.html
+ (c-mode . ((c-file-style . "gnu")
+            (indent-tabs-mode . nil)))
+
+ (makefile-mode . ((indent-tabs-mode . t)))
+
+ (nil . ((indent-tabs-mode . nil)
+         (fill-column . 72)))
+
+ (scheme-mode
   .
-  ((indent-tabs-mode . nil)
+  ((geiser-active-implementations . (guile))
    (eval
+    .
+    (progn
+      (defun prefix-dir-locals-dir (elt)
+        (concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
+      (mapcar
+       (lambda (dir) (add-to-list 'geiser-guile-load-path dir))
+       (mapcar
+        #'prefix-dir-locals-dir
+        '("scripts" "module")))))))
+
+ (texinfo-mode    . ((indent-tabs-mode . nil)
+                     (fill-column . 72)))
+ (nil .
+      ((eval
         .
         (progn
 	  (let ((top (locate-dominating-file default-directory ".dir-locals.el"))))
@@ -80,21 +108,4 @@
             (let* ((string (buffer-substring point mark))
 		   (code (as string "--64")))
               (insert " ")
-          (insert code)))))))
- (makefile-mode
-  (indent-tabs-mode . t))
- (scheme-mode
-  .
-  ((geiser-active-implementations . (guile))
-   (eval
-    .
-    (progn
-      (defun prefix-dir-locals-dir (elt)
-        (concat (locate-dominating-file buffer-file-name ".dir-locals.el") elt))
-      (mapcar
-       (lambda (dir) (add-to-list 'geiser-guile-load-path dir))
-       (mapcar
-        #'prefix-dir-locals-dir
-        '("scripts" "module")))))))
- (texinfo-mode    . ((indent-tabs-mode . nil)
-                     (fill-column . 72))))
+              (insert code))))))))