Skip to content

Commit

Permalink
Highlight `ert-deftest' forms.
Browse files Browse the repository at this point in the history
  • Loading branch information
haxney committed Sep 30, 2012
1 parent 97323bb commit f6fc81c
Showing 1 changed file with 7 additions and 6 deletions.
13 changes: 7 additions & 6 deletions package-test.el
Expand Up @@ -35,15 +35,16 @@

(require 'package)

;; Highlight `ert-deftest' declaration
(eval-after-load "semantic-el"
'(semantic-elisp-setup-form-parser
(lambda (form start end)
(semantic-tag-new-function
(symbol-name (nth 1 form))
nil
(semantic-elisp-desymbolify-args (nth 2 form))
:user-visible-flag (eq (car-safe (nth 4 form)) 'interactive)
:documentation (semantic-elisp-do-doc (nth 3 form))))
(semantic-tag-new-function
(symbol-name (nth 1 form))
nil
(semantic-elisp-desymbolify-args (nth 2 form))
:user-visible-flag (eq (car-safe (nth 4 form)) 'interactive)
:documentation (semantic-elisp-do-doc (nth 3 form))))
ert-deftest))

(defvar package-test-original-user-dir package-user-dir
Expand Down

0 comments on commit f6fc81c

Please sign in to comment.