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 | aa0126ced4d1b35d7e8c7ea5e49637dbed997bb5 (patch) | |
| tree | 01729348f82dab446a11f7d707980c8b830308f3 /elisp/geiser-syntax.el | |
| parent | 18933e07da1f255fe30d236cd1d525373084f0d0 (diff) | |
| download | geiser-guile-aa0126ced4d1b35d7e8c7ea5e49637dbed997bb5.tar.gz geiser-guile-aa0126ced4d1b35d7e8c7ea5e49637dbed997bb5.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 () |