diff options
| -rw-r--r-- | elisp/geiser-base.el | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/elisp/geiser-base.el b/elisp/geiser-base.el index 5436224..6100898 100644 --- a/elisp/geiser-base.el +++ b/elisp/geiser-base.el @@ -16,15 +16,14 @@ (require 'ring) -(eval-after-load "ring" - '(when (not (fboundp 'ring-member)) - (defun ring-member (ring item) - (catch 'found - (dotimes (ind (ring-length ring)) - (when (equal item (ring-ref ring ind)) - (throw 'found ind))))))) - -(when (not (fboundp 'looking-at-p)) +(unless (fboundp 'ring-member) + (defun ring-member (ring item) + (catch 'found + (dotimes (ind (ring-length ring)) + (when (equal item (ring-ref ring ind)) + (throw 'found ind)))))) + +(unless (fboundp 'looking-at-p) (defsubst looking-at-p (regexp) (with-no-warnings (let ((inhibit-changing-match-data t)) |