Skip to content
Browse files

Reduce dependecy on pre-defined faces.

* slime.el (slime-apropos-symbol, slime-apropos-label): New faces.
(slime-print-apropos): Use them.

Reported by: Daimrod <daimrod@gmail.com>
  • Loading branch information...
1 parent f03e667 commit 928bc05e9f5cef3734088f0d1a311fc4ccb3f970 Helmut Eller committed
Showing with 21 additions and 2 deletions.
  1. +9 −0 ChangeLog
  2. +12 −2 slime.el
View
9 ChangeLog
@@ -1,3 +1,12 @@
+2012-05-21 Helmut Eller <heller@common-lisp.net>
+
+ Reduce dependecy on pre-defined faces.
+
+ * slime.el (slime-apropos-symbol, slime-apropos-label): New faces.
+ (slime-print-apropos): Use them.
+
+ Reported by: Daimrod <daimrod@gmail.com>
+
2012-05-12 Helmut Eller <heller@common-lisp.net>
* swank-sbcl.lisp (stream-force-output): Undo last few changes.
View
14 slime.el
@@ -4561,6 +4561,16 @@ If PACKAGE is NIL, then search in all packages."
(error "No symbol given"))
(slime-eval-describe `(swank:describe-function ,symbol-name)))
+(defface slime-apropos-symbol
+ '((t (:inherit bold)))
+ "Face for the symbol name in Apropos output."
+ :group 'slime)
+
+(defface slime-apropos-label
+ '((t (:inherit italic)))
+ "Face for label (`Function', `Variable' ...) in Apropos output."
+ :group 'slime)
+
(defun slime-apropos-summary (string case-sensitive-p package only-external-p)
"Return a short description for the performed apropos search."
(concat (if case-sensitive-p "Case-sensitive " "")
@@ -4621,7 +4631,7 @@ With prefix argument include internal symbols."
(dolist (plist plists)
(let ((designator (plist-get plist :designator)))
(assert designator)
- (slime-insert-propertized `(face ,apropos-symbol-face) designator))
+ (slime-insert-propertized `(face slime-apropos-symbol) designator))
(terpri)
(loop for (prop namespace)
in '((:variable "Variable")
@@ -4642,7 +4652,7 @@ With prefix argument include internal symbols."
(start (point)))
(when value
(princ " ")
- (slime-insert-propertized `(face ,apropos-label-face) namespace)
+ (slime-insert-propertized `(face slime-apropos-label) namespace)
(princ ": ")
(princ (etypecase value
(string value)

0 comments on commit 928bc05

Please sign in to comment.
Something went wrong with that request. Please try again.