Use .dir-locals.el instead of file variables

Greg Hendershott · Greg Hendershott · commit bc3152a310f0 · 2015-07-14T20:22:08.000-04:00
diff --git a/.dir-locals.el b/.dir-locals.el
@@ -0,0 +1,7 @@
+((nil
+  . ((indent-tabs-mode         . nil)
+     (require-final-newline    . t)
+     (show-trailing-whitespace . t)))
+ (prog-mode
+  . ((comment-column . 40)
+     (fill-column    . 78))))
diff --git a/cmds.rkt b/cmds.rkt
@@ -743,11 +743,3 @@
           (list 'def/uses def-beg def-end tweaked-uses)))
       ;; Append both lists and print as Elisp values.
       (elisp-println (append infos defs/uses)))))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/defn.rkt b/defn.rkt
@@ -262,11 +262,3 @@
   (check-equal? (find-definition "display") 'kernel)
   (check-match (find-definition "displayln")
                (list* (pregexp "/racket/private/misc\\.rkt$") _)))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/error.rkt b/error.rkt
@@ -162,11 +162,3 @@
   (check-not-exn
    (λ ()
      (maybe-suggest-packages (exn:fail "" (current-continuation-marks))))))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/find-module-path-completions.rkt b/find-module-path-completions.rkt
@@ -43,11 +43,3 @@
     (λ (str)
       (for ([x (in-list (get str))])
         (displayln (path->string (cadr x)))))))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/gui.rkt b/gui.rkt
@@ -31,11 +31,3 @@
 
 (define (gui-dyn-req sym)
   (dynamic-require 'racket/gui/base sym))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/image.rkt b/image.rkt
@@ -24,11 +24,3 @@
 (define (convert-image v)
   (cond [(and (convertible? v) (convert v 'png-bytes)) => save-temporary-image]
         [else v]))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/keywords.rkt b/keywords.rkt
@@ -96,12 +96,3 @@
 ;; (prn builtins1)
 ;; (prn builtins2)
 ;; (prn types)
-
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/logger.rkt b/logger.rkt
@@ -83,11 +83,3 @@
            ",log <logger> default -- set logger to use the default, 'all other' level."
            ",log <level>          -- set the default level, for 'all other' loggers.\n")
          "\n; "))]))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/older-racket.rkt b/older-racket.rkt
@@ -80,11 +80,3 @@
 (define hash-clear!
   (dynamic-require 'racket/base 'hash-clear!
                    (const our-hash-clear!)))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/racket-bug-report.el b/racket-bug-report.el
@@ -69,17 +69,6 @@
           (pp `(disabled-minor-modes ,@(mapcar #'f (cl-remove-if     #'cadr sorted))))))
       (princ "```\n"))))
 
-(defun racket-bug-report--val (id)
-)
-
 (provide 'racket-bug-report)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;;; racket-bug-report.el ends here
diff --git a/racket-collection.el b/racket-collection.el
@@ -323,12 +323,4 @@ Also constrain point in case user tried to navigate past
 
 (provide 'racket-collection)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-collection.el ends here
diff --git a/racket-common.el b/racket-common.el
@@ -522,12 +522,4 @@ existence using `fboundp'."
 
 (provide 'racket-common)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-common.el ends here
diff --git a/racket-complete.el b/racket-complete.el
@@ -156,12 +156,4 @@ See `racket--invalidate-completion-cache' and
 
 (provide 'racket-complete)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-complete.el ends here
diff --git a/racket-custom.el b/racket-custom.el
@@ -245,14 +245,6 @@ Instead you can insert actual λ characters using
   :tag "Selfeval Face"
   :group 'racket-faces)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 (provide 'racket-custom)
 
 ;; racket-custom.el ends here
diff --git a/racket-edit.el b/racket-edit.el
@@ -1006,12 +1006,4 @@ containing spaces by escaping them."
 
 (provide 'racket-edit)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-edit.el ends here
diff --git a/racket-font-lock.el b/racket-font-lock.el
@@ -267,12 +267,4 @@ Needed to support let, because we need the whole form (if any)."
 
 (provide 'racket-font-lock)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-font-lock.el ends here
diff --git a/racket-indent.el b/racket-indent.el
@@ -453,12 +453,4 @@ doesn't hurt to do so."
 
 (provide 'racket-indent)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-indent.el ends here
diff --git a/racket-keywords-and-builtins.el b/racket-keywords-and-builtins.el
@@ -2666,12 +2666,4 @@
 
 (provide 'racket-keywords-and-builtins)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-keywords-and-builtins.el ends here
diff --git a/racket-make-doc.el b/racket-make-doc.el
@@ -243,12 +243,4 @@
                        nil nil)))
     (buffer-substring-no-properties (point-min) (point-max))))
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;;; racket-make-doc.el ends here
diff --git a/racket-mode.el b/racket-mode.el
@@ -185,12 +185,4 @@ http://www.gnu.org/licenses/ for details.")
 
 (provide 'racket-mode)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;;; racket-mode.el ends here
diff --git a/racket-repl.el b/racket-repl.el
@@ -459,12 +459,4 @@ With prefix arg, open the N-th last shown image."
 
 (provide 'racket-repl)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-repl.el ends here
diff --git a/racket-tests.el b/racket-tests.el
@@ -133,12 +133,4 @@ special forms it handles."
 
 (provide 'racket-tests)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;;; racket-tests.el ends here
diff --git a/racket-unicode-input-method.el b/racket-unicode-input-method.el
@@ -219,12 +219,4 @@ can turn it off by setting `input-method-highlight-flag' to nil via
 
 (provide 'racket-unicode-input-method)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;;; racket-unicode-input-method.el ends here
diff --git a/racket-util.el b/racket-util.el
@@ -84,12 +84,4 @@ strings."
 
 (provide 'racket-util)
 
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
-
 ;; racket-util.el ends here
diff --git a/run.rkt b/run.rkt
@@ -208,11 +208,3 @@
     (λ (value display? port)
       (cond [(convert? value) (print (convert value) port)]
             [else (orig value display? port)]))))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/scribble.rkt b/scribble.rkt
@@ -157,11 +157,3 @@
              'nbsp
              ,@provide-xexprs)
        ,@xs)]))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/try-catch.rkt b/try-catch.rkt
@@ -15,11 +15,3 @@
     [(_ body:expr ...+ catch:catch-clause ...+)
      #'(with-handlers (catch.handler ...)
          body ...)]))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
diff --git a/util.rkt b/util.rkt
@@ -15,11 +15,3 @@
     [(_ ([lib:id id:id] ...+) body:expr ...+)
      #'(let ([id (dynamic-require 'lib 'id)] ...)
          body ...)]))
-
-;; Local Variables:
-;; coding: utf-8
-;; comment-column: 40
-;; indent-tabs-mode: nil
-;; require-final-newline: t
-;; show-trailing-whitespace: t
-;; End:
