diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:19:18 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-05-24 20:19:18 +0200 |
| commit | 41ef7b6d8fb0b74d47a258cc31c7581f6dc256fc (patch) | |
| tree | 22ed1bbf332f426ac53a93953a84ca33d446fc4a /elisp/geiser-syntax.el | |
| parent | ce75f3662895726cdea87427a4a9d5ec6365cee8 (diff) | |
| download | geiser-41ef7b6d8fb0b74d47a258cc31c7581f6dc256fc.tar.gz geiser-41ef7b6d8fb0b74d47a258cc31c7581f6dc256fc.tar.bz2 | |
Elisp leftovers trimmed.
Diffstat (limited to 'elisp/geiser-syntax.el')
| -rw-r--r-- | elisp/geiser-syntax.el | 13 |
1 files changed, 0 insertions, 13 deletions
diff --git a/elisp/geiser-syntax.el b/elisp/geiser-syntax.el index 81025a9..264687a 100644 --- a/elisp/geiser-syntax.el +++ b/elisp/geiser-syntax.el @@ -30,19 +30,6 @@ (require 'scheme) -;;; Modules: - -(defconst geiser-syntax--module-definition-re - "(define-module +\\(([^)]+)\\)") - -(defun geiser-syntax--buffer-module (&optional buffer) - (let ((buffer (or buffer (current-buffer)))) - (with-current-buffer buffer - (save-excursion - (goto-char (point-min)) - (when (re-search-forward geiser-syntax--module-definition-re nil t) - (car (read-from-string (match-string-no-properties 1)))))))) - ;;; Indentation: (defun geiser-syntax--setup-scheme-indent () |