diff options
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." |