From: Eli Zaretskii <eliz@gnu.org>
Date: Tue, 11 May 2021 20:18:01 +0000 (+0300)
Subject: Move the Text Properties menu back to Edit
X-Git-Tag: emacs-28.0.90~2507^2
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=5784b421ee41632f67a517add8806d13cc7bfb96;p=emacs.git

Move the Text Properties menu back to Edit

* lisp/textmodes/enriched.el (enriched-mode): Don't add "Text
Properties" sub-menu to Text mode menu.
* lisp/facemenu.el (menu-bar-edit-menu): Add "Text Properties"
sub-menu back to the Edit menu.
---

diff --git a/lisp/facemenu.el b/lisp/facemenu.el
index 76ac235c2a8..29ee4f8bddc 100644
--- a/lisp/facemenu.el
+++ b/lisp/facemenu.el
@@ -244,6 +244,10 @@ return a string which is inserted.  It may set `facemenu-end-add-face'."
   (define-key map [fc] (cons "Face" 'facemenu-face-menu)))
 (defalias 'facemenu-menu facemenu-menu)
 
+(easy-menu-add-item
+ menu-bar-edit-menu nil
+ ["Text Properties" facemenu-menu])
+
 (defvar facemenu-keymap
   (let ((map (make-sparse-keymap "Set face")))
     (define-key map "o" (cons "Other..." 'facemenu-set-face))
diff --git a/lisp/textmodes/enriched.el b/lisp/textmodes/enriched.el
index e68100714c3..ba8fac81f2c 100644
--- a/lisp/textmodes/enriched.el
+++ b/lisp/textmodes/enriched.el
@@ -38,7 +38,6 @@
 
 ;;; Code:
 
-(require 'facemenu)
 (provide 'enriched)
 
 ;;;
@@ -236,9 +235,6 @@ Commands:
 	(t				; Turn mode on
          (add-hook 'change-major-mode-hook
                    #'enriched-before-change-major-mode nil 'local)
-         (easy-menu-add-item
-          text-mode-menu nil
-          ["Text Properties" facemenu-menu :help "Change text properties"])
 	 (add-to-list 'buffer-file-format 'text/enriched)
 	 ;; Save old variable values before we change them.
 	 ;; These will be restored if we exit Enriched mode.