]> code.delx.au - gnu-emacs-elpa/commitdiff
Update compilation.
authorJackson Ray Hamilton <jackson@jacksonrayhamilton.com>
Mon, 22 Dec 2014 10:51:56 +0000 (02:51 -0800)
committerJackson Ray Hamilton <jackson@jacksonrayhamilton.com>
Mon, 22 Dec 2014 10:51:56 +0000 (02:51 -0800)
Makefile
benchmark/context-coloring-benchmark.el
context-coloring.el
lib/js2-mode/.dir-locals.el [moved from test/fixtures/js2-mode/.dir-locals.el with 100% similarity]
lib/js2-mode/js2-mode.el [moved from test/fixtures/js2-mode/js2-mode.el with 100% similarity]
test/context-coloring-test.el

index aa9f9f650f341f4888bef9363ea68663a2d9fefb..1e5e6d5b43921ae82b56e5dba24ce718464c6faf 100644 (file)
--- a/Makefile
+++ b/Makefile
@@ -12,7 +12,9 @@ benchjs:
        node_modules/.bin/matcha
 
 compile:
-       emacs -Q -batch -f batch-byte-compile *.el
+       emacs -Q \
+       -L lib/js2-mode \
+       -batch -f batch-byte-compile *.el
 
 clean:
        rm -f *.log benchmark/*.log *.elc
index 4403fe878bb669e0457726a009146e7dfb162ee0..1da2b8cdd86024faeaddce2840cbd3b9c8d601d6 100644 (file)
@@ -42,7 +42,7 @@
 
 (defun context-coloring-benchmark-js2-mode-setup ()
   (add-to-list 'load-path (context-coloring-benchmark-resolve-path
-                           "../test/fixtures/js2-mode"))
+                           "../lib/js2-mode"))
   (require 'js2-mode)
   (setq js2-mode-show-parse-errors nil)
   (setq js2-mode-show-strict-warnings nil)
index e3ea326b05e8ac04314a8d3733f2c809423bf821..09bee0cdc4fde0ff218f823448ba04642db4757f 100644 (file)
@@ -5,7 +5,7 @@
 ;; Author: Jackson Ray Hamilton <jackson@jacksonrayhamilton.com>
 ;; Keywords: context coloring syntax highlighting
 ;; Version: 1.0.0
-;; Package-Requires: ((emacs "24"))
+;; Package-Requires: ((emacs "24") (js2-mode "20141118"))
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -38,6 +38,8 @@
 
 ;;; Code:
 
+(require 'js2-mode)
+
 
 ;;; Constants
 
@@ -171,7 +173,8 @@ imply that it should be colorized again.")
 
 (defcustom context-coloring-face-count 7
   "Number of faces defined for highlighting delimiter levels.
-Determines level at which to cycle through faces again.")
+Determines level at which to cycle through faces again."
+  :group 'context-coloring)
 
 
 ;;; Face functions
@@ -326,14 +329,14 @@ parsed list of tokens to `context-coloring-apply-tokens'."
     ;; accumulates the chunks into a message.
     (set-process-filter
      context-coloring-scopifier-process
-     (lambda (process chunk)
+     (lambda (_process chunk)
        (setq output (concat output chunk))))
 
     ;; When the process's message is complete, this sentinel parses it as JSON
     ;; and applies the tokens to the buffer.
     (set-process-sentinel
      context-coloring-scopifier-process
-     (lambda (process event)
+     (lambda (_process event)
        (when (equal "finished\n" event)
          (let ((tokens (context-coloring-parse-array output)))
            (with-current-buffer buffer
@@ -401,7 +404,7 @@ of the current buffer, then does it."
   (interactive)
   (context-coloring-dispatch))
 
-(defun context-coloring-change-function (start end length)
+(defun context-coloring-change-function (_start _end _length)
   "Registers a change so that a context-colored buffer can be
 colorized soon."
   ;; Tokenization is obsolete if there was a change.
index 9b17a369a12130ae4cedf0419f431ecf578de30a..633aec4d7f02ceaa99f302d20ca28613f56e4945 100644 (file)
@@ -24,7 +24,7 @@ FIXTURE."
 FIXTURE."
   `(context-coloring-test-with-fixture
     ,fixture
-    (add-to-list 'load-path (context-coloring-test-resolve-path "./fixtures/js2-mode"))
+    (add-to-list 'load-path (context-coloring-test-resolve-path "../lib/js2-mode"))
     (require 'js2-mode)
     (setq js2-mode-show-parse-errors nil)
     (setq js2-mode-show-strict-warnings nil)