Try to guess language by emacs major mode before file extension.

The explicit language specified in an emacs file local variable is going to be more correct than the file extension.
2016-04-20 10:11:39 -07:00
parent a7d55eea1d
commit 647519fd48
1 changed files with 2 additions and 2 deletions
--- a/highlight.scm
+++ b/highlight.scm
@@ -65,8 +65,8 @@
    ((html) 'html)
    (else #f)))

-(let ((type (or (guess-type-by-file-extension *file*)
-                (guess-type-by-emacs-major-mode-variable *file-contents*))))
+(let ((type (or (guess-type-by-emacs-major-mode-variable *file-contents*)
+                (guess-type-by-file-extension *file*))))
  (if (not type)
      (begin (display *file-contents*) (exit 0))
      (begin