From 43fa4097df66501f6c0d044075f1484e4e8a498a Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Wed, 13 Nov 2024 17:04:52 +0100 Subject: [PATCH] Check availability of `major-mode-remap-alist` before setting it This is to restore some Emacs 28 backwards compatibility. --- init.el | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 2d31401..800ccd3 100644 --- a/init.el +++ b/init.el @@ -2803,7 +2803,13 @@ eventuelly be set to nil, however)." :commands (cperl-mode) :mode ("\\.plx\\'" . cperl-mode) :init (progn - (add-to-list 'major-mode-remap-alist '(perl-mode . cperl-mode)) + (if (boundp 'major-mode-remap-alist) + (add-to-list 'major-mode-remap-alist '(perl-mode . cperl-mode)) + (mapc + #'(lambda (pair) + (if (eq (cdr pair) 'perl-mode) + (setcdr pair 'cperl-mode))) + (append auto-mode-alist interpreter-mode-alist))) (setq cperl-hairy nil cperl-invalid-face 'default @@ -2829,7 +2835,8 @@ eventuelly be set to nil, however)." :config (require 'gnutls)) (when (package-installed-p "auctex") - (add-to-list 'major-mode-remap-alist '(latex-mode . LaTeX-mode)) + (when (boundp 'major-mode-remap-alist) + (add-to-list 'major-mode-remap-alist '(latex-mode . LaTeX-mode))) (require 'db-latex)) (use-package edit-indirect ; to allow code editing in markdown-mode