diff options
author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-27 01:51:21 +0100 |
---|---|---|
committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-27 01:51:21 +0100 |
commit | 1e312c9d83a3a9c4bd7c4bf5cfd4b1802cc0aada (patch) | |
tree | 497a1d689e224946f0748ddc06cfe3fe5b4399e8 | |
parent | b39fd77d8899bc7ff6608645afc9e2eb0eb0d33c (diff) | |
download | geiser-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.el | 6 |
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) |