[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 4cf5a3a: * lisp/emacs-lisp/faceup.el: Don't require
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] master 4cf5a3a: * lisp/emacs-lisp/faceup.el: Don't require CL |
Date: |
Mon, 4 Dec 2017 13:49:51 -0500 (EST) |
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."
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 4cf5a3a: * lisp/emacs-lisp/faceup.el: Don't require CL,
Stefan Monnier <=