From: Andrea Corallo <akrl@sdf.org>
Date: Wed, 23 Sep 2020 07:50:01 +0000 (+0200)
Subject: * lisp/emacs-lisp/comp.el (comp-never-optimize-functions): Clean-up.
X-Git-Tag: emacs-28.0.90~2727^2~423
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=b94a0a931ee7963515c009e7e683e907897567bb;p=emacs.git

* lisp/emacs-lisp/comp.el (comp-never-optimize-functions): Clean-up.
---

diff --git a/lisp/emacs-lisp/comp.el b/lisp/emacs-lisp/comp.el
index f6c6748b748..e33d58cb406 100644
--- a/lisp/emacs-lisp/comp.el
+++ b/lisp/emacs-lisp/comp.el
@@ -94,17 +94,11 @@ Skip if any is matching."
   :group 'comp)
 
 (defcustom comp-never-optimize-functions
-  '(;; Mandatory for Emacs to be working correctly
-    macroexpand scroll-down scroll-up narrow-to-region widen rename-buffer
-    make-indirect-buffer delete-file top-level abort-recursive-edit
-    ;; For user convenience
-    yes-or-no-p
-    ;; Make the Evil happy :/
-    read-key-sequence select-window set-window-buffer split-window-internal
-    use-global-map use-local-map)
-  "Primitive functions for which we do not perform trampoline optimization.
-This is especially useful for primitives known to be advised or
-redefined when compilation is performed at `comp-speed' > 0."
+  '(;; The following two are mandatory for Emacs to be working
+    ;; correctly (see comment in `advice--add-function'). DO NOT
+    ;; REMOVE.
+    macroexpand rename-buffer)
+  "Primitive functions for which we do not perform trampoline optimization."
   :type 'list
   :group 'comp)