diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 00:47:05 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 00:47:05 +0100 |
| commit | 754aa7a194c412f52b4733142566ed5e33a04f4f (patch) | |
| tree | 7296e1cfde7208e5c244e72355eab820c6de2470 /elisp/geiser-base.el | |
| parent | 9e91cef8b3d10e7eab88cc16d425fefc36c7321d (diff) | |
| download | geiser-chez-754aa7a194c412f52b4733142566ed5e33a04f4f.tar.gz geiser-chez-754aa7a194c412f52b4733142566ed5e33a04f4f.tar.bz2 | |
New command to display generic methods (C-cC-dg) implemented.
Diffstat (limited to 'elisp/geiser-base.el')
| -rw-r--r-- | elisp/geiser-base.el | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el index 2a8d5a9..362930d 100644 --- a/elisp/geiser-base.el +++ b/elisp/geiser-base.el @@ -91,6 +91,12 @@ (let* ((str (buffer-substring-no-properties begin end)) (pieces (split-string str nil t))) (mapconcat 'identity pieces " "))))) + +(defun geiser--insert-with-face (str face) + (let ((p (point))) + (insert str) + (put-text-property p (point) 'face face))) + (provide 'geiser-base) ;;; geiser-base.el ends here |