summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-27 01:51:21 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-27 01:51:21 +0100
commit1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada (patch)
tree497a1d689e224946f0748ddc06cfe3fe5b4399e8
parentb39fd77d8899bc7ff6608645afc9e2eb0eb0d33c (diff)
downloadgeiser-chez-1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada.tar.gz
geiser-chez-1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada.tar.bz2
Fix for xref sorting by module
Since, you know, module names are now uninterned symbols.
-rw-r--r--elisp/geiser-xref.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-xref.el b/elisp/geiser-xref.el
index d8b46d0..11c815e 100644
--- a/elisp/geiser-xref.el
+++ b/elisp/geiser-xref.el
@@ -76,8 +76,8 @@
(newline))))
(defun geiser-xref--module< (xr1 xr2)
- (let ((m1 (cdr (assoc "module" xr1)))
- (m2 (cdr (assoc "module" xr2))))
+ (let ((m1 (format "%s" (cdr (assoc "module" xr1))))
+ (m2 (format "%s" (cdr (assoc "module" xr2)))))
(cond ((equal m1 m2)
(string< (format "%s" (cdr (assoc "signature" xr1)))
(format "%s" (cdr (assoc "signature" xr2)))))
@@ -92,7 +92,7 @@
(newline)
(let ((last-module))
(dolist (xref (sort xrefs 'geiser-xref--module<))
- (let ((module (cdr (assoc "module" xref))))
+ (let ((module (format "%s" (cdr (assoc "module" xref)))))
(when (not (equal module last-module))
(insert "\n In module ")
(geiser--insert-with-face (format "%s" module)