From 4cf5a3ac57de0b897c49ea7a406c547569131e0e Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 4 Dec 2017 13:49:46 -0500 Subject: [PATCH] * 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 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." -- 2.11.4.GIT