diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-12-04 13:49:46 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2017-12-04 13:49:46 -0500 |
| commit | 4cf5a3ac57de0b897c49ea7a406c547569131e0e (patch) | |
| tree | e07dd69ba32beb612f055591eb70820863547742 /lisp/emacs-lisp/faceup.el | |
| parent | f55293159f0a7d9fb08dafe7e0dcd8b4354dbd0d (diff) | |
| download | emacs-4cf5a3ac57de0b897c49ea7a406c547569131e0e.tar.gz emacs-4cf5a3ac57de0b897c49ea7a406c547569131e0e.tar.bz2 emacs-4cf5a3ac57de0b897c49ea7a406c547569131e0e.zip | |
* lisp/emacs-lisp/faceup.el: Don't require CL
(faceup-markup-start-char, faceup-markup-end-char): Use char immediates.
Diffstat (limited to 'lisp/emacs-lisp/faceup.el')
| -rw-r--r-- | lisp/emacs-lisp/faceup.el | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/lisp/emacs-lisp/faceup.el b/lisp/emacs-lisp/faceup.el index 3a0f7e5c7a5..8d2818fbab8 100644 --- a/lisp/emacs-lisp/faceup.el +++ b/lisp/emacs-lisp/faceup.el @@ -410,9 +410,6 @@ ;;; Code: -(eval-when-compile - (require 'cl)) - (defvar faceup-default-property 'face "The property that should be represented in Faceup without the (prop) part.") @@ -456,8 +453,8 @@ When treated as a non-face-like property: «(prop):(a):AAA»«(prop):(a b):XXX»«(prop):(a):AAA»") -(defvar faceup-markup-start-char 171) ;; « -(defvar faceup-markup-end-char 187) ;; » +(defvar faceup-markup-start-char ?«) +(defvar faceup-markup-end-char ?») (defvar faceup-face-short-alist '(;; Generic faces (uppercase letters) @@ -1022,7 +1019,7 @@ variable, can easily define their own explainer functions.") ;;;###autoload (defmacro faceup-defexplainer (function) - "Defines an Ert explainer function for FUNCTION. + "Define an Ert explainer function for FUNCTION. FUNCTION must return an explanation when the test fails and `faceup-test-explain' is set." |