diff options
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-completion.el | 3 | ||||
| -rw-r--r-- | elisp/geiser-eval.el | 2 | ||||
| -rw-r--r-- | elisp/geiser-syntax.el | 13 |
3 files changed, 2 insertions, 16 deletions
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el index dadf6dd..799280e 100644 --- a/elisp/geiser-completion.el +++ b/elisp/geiser-completion.el @@ -188,8 +188,7 @@ terminates a current completion." geiser-completion--module-list-func nil nil nil (or history geiser-completion--module-history) - (or default - (format "%s" (or (geiser-syntax--buffer-module) "")))))) + default))) (defun geiser--respecting-message (format &rest format-args) "Display TEXT as a message, without hiding any minibuffer contents." diff --git a/elisp/geiser-eval.el b/elisp/geiser-eval.el index cc7bc35..c493092 100644 --- a/elisp/geiser-eval.el +++ b/elisp/geiser-eval.el @@ -34,7 +34,7 @@ ;;; Plug-able functions: (make-variable-buffer-local - (defvar geiser-eval--get-module-function 'geiser-syntax--buffer-module + (defvar geiser-eval--get-module-function nil "Function used to obtain the module for current buffer. It takes an optional argument, for cases where we want to force its value.")) 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 () |