[nongnu] externals/sly 4717cb9 44/47: Tolerate leading whitespace in slime-search-buffer-package

[ELPA Syncer]

branch: externals/sly
commit 4717cb9e72712afe5f9a9cd41d40fdeb4582c1eb
Author: Luís Borges de Oliveira <lbo@siscog.pt>
Commit: João Távora <joaotavora@gmail.com>

    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 <joaotavora@gmail.com>
---
 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)