; * lisp/loadup.el: Don't prohibit advice when ls-lisp is loaded.

diff --git a/lisp/loadup.el b/lisp/loadup.el
index 3b58d5fb9b7a582bbc81ef911477c51c53e9fc21..d447523dc42be9ef870b1d1633a347bd1ad290d0 100644 (file)
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -393,14 +393,18 @@
 ;; from the repository.  It is generated just after temacs is built.
 (load "leim/leim-list.el" t)
 
-;; Actively disallow advised functions during preload since:
-;; - advices in Emacs's core are generally considered bad style;
-;; - `Snarf-documentation' looses docstrings of primitives advised
-;;   during preload (bug#66032#20).
-(mapatoms
- (lambda (f)
-   (and (advice--p (symbol-function f))
-        (error "Preload advice on %s" f))))
+(unless (featurep 'ls-lisp)
+  ;; Actively disallow advised functions during preload since:
+  ;; - advices in Emacs's core are generally considered bad style;
+  ;; - `Snarf-documentation' looses docstrings of primitives advised
+  ;;   during preload (bug#66032#20).
+  ;;
+  ;; Don't verify this under MS-Windows and Android, both systems that
+  ;; load ls-lisp, which advises insert-directory.
+  (mapatoms
+   (lambda (f)
+     (and (advice--p (symbol-function f))
+          (error "Advice installed on preloaded function %s" f)))))
 
 ;; If you want additional libraries to be preloaded and their
 ;; doc strings kept in the DOC file rather than in core,