[Emacs-diffs] master 4cf5a3a: * lisp/emacs-lisp/faceup.el: Don't require CL

[Stefan Monnier]

branch: master
commit 4cf5a3ac57de0b897c49ea7a406c547569131e0e
Author: Stefan Monnier <address@hidden>
Commit: Stefan Monnier <address@hidden>

    * lisp/emacs-lisp/faceup.el: Don't require CL
    
    (faceup-markup-start-char, faceup-markup-end-char): Use char immediates.
---
 lisp/emacs-lisp/faceup.el | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/lisp/emacs-lisp/faceup.el b/lisp/emacs-lisp/faceup.el
index 3a0f7e5..8d2818f 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."