Add 'major-mode-name' symbol property

diff --git a/lisp/arc-mode.el b/lisp/arc-mode.el
index 696684e914c619e7a9605af8e15d85ba5358e582..18dd0f42f8efce42b5288162560fb5972980c8f0 100644 (file)
--- a/lisp/arc-mode.el
+++ b/lisp/arc-mode.el
@@ -780,6 +780,8 @@ archive.
         (rename-buffer (concat " " (buffer-name)))
         (archive-extract)))))
 
+(put 'archive-mode 'major-mode-name t)
+
 ;; Archive mode is suitable only for specially formatted data.
 (put 'archive-mode 'mode-class 'special)
 

diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el
index 80559c1657ccb4d45544b6b4e76b4e80b4a2485c..c1aee89685154db0dfc079c119ebbf376a05ff62 100644 (file)
--- a/lisp/calc/calc.el
+++ b/lisp/calc/calc.el
@@ -1366,6 +1366,8 @@ Notations:  3.14e6     3.14 * 10^6
   ;; be displayed in order to accept user input.
   (setq-local touch-screen-display-keyboard t))
 
+(put 'calc-mode 'major-mode-name t)
+
 (defvar calc-check-defines 'calc-check-defines)  ; Suitable for run-hooks.
 (defun calc-check-defines ()
   (if (symbol-plist 'calc-define)

diff --git a/lisp/dired.el b/lisp/dired.el
index beab1b9cd2033a733c5931da62c366c4ad9b5ef8..6fcf31c166a493970ef245e7ee2259ffb76e493c 100644 (file)
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -2832,6 +2832,8 @@ Keybindings:
   (add-hook 'context-menu-functions 'dired-context-menu 5 t)
   (run-mode-hooks 'dired-mode-hook))
 
+(put 'dired-mode 'major-mode-name t)
+
 \f
 ;;; Idiosyncratic dired commands that don't deal with marks
 

diff --git a/lisp/emacs-lisp/derived.el b/lisp/emacs-lisp/derived.el
index 6b10150d04d4f65b79ddc34da2dd63c71e870880..18fe4f7b411cfc8de0318568d032467fd5bdde10 100644 (file)
--- a/lisp/emacs-lisp/derived.el
+++ b/lisp/emacs-lisp/derived.el
@@ -243,6 +243,7 @@ No problems result if this variable is not bound.
        (if (fboundp 'derived-mode-set-parent) ;; Emacs≥30.1
            (derived-mode-set-parent ',child ',parent)
          (put ',child 'derived-mode-parent ',parent))
+       (put ',child 'major-mode-name t)
        ,(if group `(put ',child 'custom-mode-group ,group))
 
        (defun ,child ()

diff --git a/lisp/image-mode.el b/lisp/image-mode.el
index 653a78331627a2eb5f5099542c1f94002ca8e80c..dfd3d5504f6d1e89820324b18c503f8677bb50f0 100644 (file)
--- a/lisp/image-mode.el
+++ b/lisp/image-mode.el
@@ -679,6 +679,8 @@ Key bindings:
       (require 'image-converter)
       (image-converter-initialize))))
 
+(put 'image-mode 'major-mode-name t)
+
 (defun image-mode--display ()
   (if (not (image-get-display-property))
       (progn

diff --git a/lisp/org/org-agenda.el b/lisp/org/org-agenda.el
index b36c20cd7cfd0a05a49aa71bd9e06f010b087f8e..a2cf3c77be7701fb42d1d25d39ba5f2dd47392a2 100644 (file)
--- a/lisp/org/org-agenda.el
+++ b/lisp/org/org-agenda.el
@@ -2400,6 +2400,8 @@ The following commands are available:
   (org-agenda-set-mode-name)
   (run-mode-hooks 'org-agenda-mode-hook))
 
+(put 'org-agenda-mode 'major-mode-name t)
+
 (substitute-key-definition #'undo #'org-agenda-undo
                           org-agenda-mode-map global-map)
 (org-defkey org-agenda-mode-map "\C-i" #'org-agenda-goto)

diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el
index f3a89860240e131085f486ae8b6b50f99264b77d..4111ae920886afc492fbb9d7a265c69e0e89b275 100644 (file)
--- a/lisp/progmodes/compile.el
+++ b/lisp/progmodes/compile.el
@@ -2440,6 +2440,8 @@ Runs `compilation-mode-hook' with `run-mode-hooks' (which see).
   (setq buffer-read-only t)
   (run-mode-hooks 'compilation-mode-hook))
 
+(put 'compilation-mode 'major-mode-name t)
+
 ;;;###autoload
 (put 'define-compilation-mode 'doc-string-elt 3)
 

diff --git a/lisp/simple.el b/lisp/simple.el
index 164f5c089bfa897991313f92b90ffcdf2187458d..83a3e71b380cbcaae99d2cad7f8deed9dbb00cad 100644 (file)
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -561,6 +561,8 @@ Other major modes are defined by comparison with this one."
   (kill-all-local-variables)
   (run-mode-hooks))
 
+(put 'fundamental-mode 'major-mode-name t)
+
 (define-derived-mode clean-mode fundamental-mode "Clean"
   "A mode that removes all overlays and text properties."
   (kill-all-local-variables t)

diff --git a/lisp/wdired.el b/lisp/wdired.el
index c7409446b198d768ae6c94374bf99ba6f657080b..7bae26e92591682ab5df4820068ffdbfbfe2821a 100644 (file)
--- a/lisp/wdired.el
+++ b/lisp/wdired.el
@@ -215,6 +215,7 @@ symbolic link targets, and filenames permission."
   (interactive)
   (error "This mode can be enabled only by `wdired-change-to-wdired-mode'"))
 (put 'wdired-mode 'mode-class 'special)
+(put 'wdired-mode 'major-mode-name 't)
 
 (declare-function dired-isearch-search-filenames "dired-aux")