summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-15 04:05:51 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-15 04:05:51 +0100
commitf6b03b27810e70304b89fd6185437dcf35d27b94 (patch)
tree57755b3cc9b1d6a04002cea4464c0ff1e508f2c3 /elisp
parent2cf00aa48f879c692da445b80a0dd93b4838c90d (diff)
downloadgeiser-chez-f6b03b27810e70304b89fd6185437dcf35d27b94.tar.gz
geiser-chez-f6b03b27810e70304b89fd6185437dcf35d27b94.tar.bz2
CLism removed
copy-list is from cl.
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-impl.el21
1 files changed, 11 insertions, 10 deletions
diff --git a/elisp/geiser-impl.el b/elisp/geiser-impl.el
index 4a5ce17..7df87cf 100644
--- a/elisp/geiser-impl.el
+++ b/elisp/geiser-impl.el
@@ -88,6 +88,10 @@ determine its scheme flavour."
(let* ((user (if user (format " Used via `%s'." user) ""))
(extra-doc (format "%s%s" doc user)))
(add-to-list 'geiser-impl--method-docs (cons method extra-doc))
+ (setq geiser-impl--method-docs
+ (sort geiser-impl--method-docs
+ (lambda (a b) (string< (symbol-name (car a))
+ (symbol-name (car b))))))
(put method 'function-documentation doc)))
(defun geiser-implementation-help ()
@@ -102,16 +106,13 @@ determine its scheme flavour."
(princ "\n\n (define-geiser-implementation NAME &rest METHODS)\n\n")
(princ (documentation 'define-geiser-implementation))
(princ "\n\nMethods used to define an implementation:\n\n")
- (let ((ms (sort (copy-list geiser-impl--method-docs)
- (lambda (a b) (string< (symbol-name (car a))
- (symbol-name (car b)))))))
- (dolist (m ms)
- (let ((p (with-current-buffer (help-buffer) (point))))
- (princ (format "%s: " (car m)))
- (princ (cdr m))
- (with-current-buffer (help-buffer)
- (fill-region-as-paragraph p (point)))
- (princ "\n\n"))))
+ (dolist (m geiser-impl--method-docs)
+ (let ((p (with-current-buffer (help-buffer) (point))))
+ (princ (format "%s: " (car m)))
+ (princ (cdr m))
+ (with-current-buffer (help-buffer)
+ (fill-region-as-paragraph p (point)))
+ (princ "\n\n")))
(with-current-buffer standard-output (buffer-string)))))
(defun geiser-impl--register-local-method (var-name method fallback doc)