Fix failing tests on CMUCL.

* sly-buttons.el (sly-button--searchable-buttons-at): Ensure the non-overlay button is actually not an overlay.

Fix failing tests on CMUCL.
* sly-buttons.el (sly-button--searchable-buttons-at): Ensure the non-overlay button is actually not an overlay.
375ddced · João Távora · 2c558beb · 375ddced
Commit 375ddced authored 10 years ago by João Távora
Hide whitespace changes
Inline Side-by-side

Showing

with 4 additions and 1 deletion
+4 -1
--- a/lib/sly-buttons.el
+++ b/lib/sly-buttons.el
@@ -175,7 +175,10 @@
  (cl-incf sly-button--next-search-id))

 (defun sly-button--searchable-buttons-at (pos filter)
-  (let ((non-overlay-button (sly-button-at pos 'sly-button 'no-error)))
+  (let* ((probe (sly-button-at pos 'sly-button 'no-error))
+         (non-overlay-button (and probe
+                                  (not (overlayp probe))
+                                  probe)))
    (cl-remove-duplicates
     (append (sly-button--overlays-at pos filter)
             (if (and non-overlay-button