* lisp/emacs-lisp/faceup.el: Don't require CL

(faceup-markup-start-char, faceup-markup-end-char): Use char immediates.

diff --git a/lisp/emacs-lisp/faceup.el b/lisp/emacs-lisp/faceup.el
index 3a0f7e5c7a5551e135f5fcae69f22a8dfdad5045..8d2818fbab8a500e397600c1a0510acbcec8d453 100644 (file)
--- 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."