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 | 038ed78d546d9d0112e9cdd568cc1a7bf11c7c81 (patch) | |
| tree | 7197e57b6b8f1db7bde6b2d60d7b323b8085345b /elisp/geiser-base.el | |
| parent | 267fde61250a698c1abc8201ca2445a6f462d03a (diff) | |
| download | geiser-038ed78d546d9d0112e9cdd568cc1a7bf11c7c81.tar.gz geiser-038ed78d546d9d0112e9cdd568cc1a7bf11c7c81.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 |