diff options
Diffstat (limited to 'test/literate')
| -rw-r--r-- | test/literate/fontification.el | 5 | ||||
| -rw-r--r-- | test/literate/roxy.el | 15 | ||||
| -rw-r--r-- | test/literate/tokens.el | 1 |
3 files changed, 12 insertions, 9 deletions
diff --git a/test/literate/fontification.el b/test/literate/fontification.el index 41bed7c..f3e6827 100644 --- a/test/literate/fontification.el +++ b/test/literate/fontification.el @@ -1,5 +1,6 @@ -(defun face-at-point () - (get-char-property (point) 'face)) +;; -*- lexical-binding: t; -*- +;; (defun face-at-point () +;; (get-char-property (point) 'face)) (defmacro with-ess-toggled-font-lock-keyword (enable keywords &rest body) (declare (indent 2) diff --git a/test/literate/roxy.el b/test/literate/roxy.el index 1d0de69..d11f5da 100644 --- a/test/literate/roxy.el +++ b/test/literate/roxy.el @@ -1,9 +1,10 @@ +;; -*- lexical-binding: t; -*- -(defun face-at-point () - (get-char-property (point) 'face)) +;; (defun face-at-point () +;; (get-char-property (point) 'face)) -(defun faces-at-point () - (let ((face (get-char-property (point) 'face))) - (if (listp face) - face - (list face)))) +;; (defun faces-at-point () +;; (let ((face (get-char-property (point) 'face))) +;; (if (listp face) +;; face +;; (list face)))) diff --git a/test/literate/tokens.el b/test/literate/tokens.el index 3351dcf..0329869 100644 --- a/test/literate/tokens.el +++ b/test/literate/tokens.el @@ -1,3 +1,4 @@ +;; -*- lexical-binding: t; -*- (defun token= (type &optional value) "Check that the next token conforms to TYPE and VALUE. |