From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Wed, 10 Feb 2021 19:37:10 +0000 (+0100)
Subject: Fix build problem with previous facemenu change
X-Git-Tag: emacs-28.0.90~3818
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=81e55fa6c37d51845b50ae22a935185cd441e99b;p=emacs.git

Fix build problem with previous facemenu change

* lisp/facemenu.el (facemenu-add-face-function): Move to avoid a
warning.
(list-colors-display): Autoload.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index dc5f8f46aba..6290b02add2 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -85,10 +85,6 @@
 
 ;;; Code:
 
-;; Global bindings:
-(define-key global-map [C-down-mouse-2] 'facemenu-menu)
-(define-key global-map "\M-o" 'facemenu-keymap)
-
 (defgroup facemenu nil
   "Create a face menu for interactively adding fonts to text."
   :group 'faces
diff --git a/lisp/loadup.el b/lisp/loadup.el
index 3ee8bed1842..c91c00a1075 100644
--- a/lisp/loadup.el
+++ b/lisp/loadup.el
@@ -253,6 +253,7 @@
 (load "startup")
 (load "term/tty-colors")
 (load "font-core")
+(load "facemenu")
 (load "emacs-lisp/syntax")
 (load "font-lock")
 (load "jit-lock")
@@ -491,7 +492,9 @@ lost after dumping")))
 
 (defun facemenu-keymap-restore ()
   "Restore the facemenu keymap."
-  (require 'facemenu)
+  ;; Global bindings:
+  (define-key global-map [C-down-mouse-2] 'facemenu-menu)
+  (define-key global-map "\M-o" 'facemenu-keymap)
   (define-key facemenu-keymap "\eS" 'center-paragraph)
   (define-key facemenu-keymap "\es" 'center-line))