From aa0126ced4d1b35d7e8c7ea5e49637dbed997bb5 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 24 May 2009 20:19:18 +0200 Subject: Elisp leftovers trimmed. --- elisp/geiser-completion.el | 3 +-- elisp/geiser-eval.el | 2 +- elisp/geiser-syntax.el | 13 ------------- 3 files changed, 2 insertions(+), 16 deletions(-) (limited to 'elisp') 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 @@ -29,19 +29,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: -- cgit v1.2.3