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 | dba34f8fdf4cf29703126abc498261ea410a9702 (patch) | |
| tree | 0cff79320ee26788d525bb67b98be1dae9e34e5f /elisp/geiser-custom.el | |
| parent | 90cab862978ec01dfb7fa2b06592d835400d798c (diff) | |
| download | geiser-dba34f8fdf4cf29703126abc498261ea410a9702.tar.gz geiser-dba34f8fdf4cf29703126abc498261ea410a9702.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) |