diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-16 00:46:31 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-16 00:46:31 +0100 |
| commit | fbc65dfc767da1dc3b28262eae041e9d303752c2 (patch) | |
| tree | 47d8e715d9a608258e4bc8064504be801cd0dd17 /elisp/geiser-custom.el | |
| parent | ecf460e9aca83a32bb1149ecd5b0238c7a5cb233 (diff) | |
| download | geiser-guile-fbc65dfc767da1dc3b28262eae041e9d303752c2.tar.gz geiser-guile-fbc65dfc767da1dc3b28262eae041e9d303752c2.tar.bz2 | |
New command: module documentation.
Diffstat (limited to 'elisp/geiser-custom.el')
| -rw-r--r-- | elisp/geiser-custom.el | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/elisp/geiser-custom.el b/elisp/geiser-custom.el index 591d11a..27bcd33 100644 --- a/elisp/geiser-custom.el +++ b/elisp/geiser-custom.el @@ -43,11 +43,12 @@ :group 'faces) (defmacro geiser-custom--defface (face def group doc) - `(defface ,face (face-default-spec ,def) - ,(format "Face for %s." doc) - :group ',group - :group 'geiser-faces - :group 'faces)) + (let ((face (intern (format "geiser-font-lock-%s" face)))) + `(defface ,face (face-default-spec ,def) + ,(format "Face for %s." doc) + :group ',group + :group 'geiser-faces + :group 'faces))) (put 'geiser-custom--defface 'lisp-indent-function 1) |