branch: externals/sly
commit 4717cb9e72712afe5f9a9cd41d40fdeb4582c1eb
Author: Luís Borges de Oliveira <[email protected]>
Commit: João Távora <[email protected]>
Tolerate leading whitespace in slime-search-buffer-package
* sly.el (sly-search-buffer-package): Tweak regexp.
Cherry-picked-from: SLIME commit 01ae4f703697b6e17fbea85af85617825d40362d
Co-authored-by: João Távora <[email protected]>
---
sly.el | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/sly.el b/sly.el
index a765519..d84958b 100644
--- a/sly.el
+++ b/sly.el
@@ -2369,7 +2369,7 @@ or nil if nothing suitable can be found.")
(defun sly-search-buffer-package ()
(let ((case-fold-search t)
- (regexp (concat "^(\\(cl:\\|common-lisp:\\)?in-package\\>[ \t']*"
+ (regexp (concat "^[ \t]*(\\(cl:\\|common-lisp:\\)?in-package\\>[ \t']*"
"\\([^)]+\\)[ \t]*)")))
(save-excursion
(when (or (re-search-backward regexp nil t)
