diff options
| author | Harald Jörg | 2024-05-16 21:55:07 +0200 |
|---|---|---|
| committer | Harald Jörg | 2024-05-16 21:58:34 +0200 |
| commit | 96269209a3e22707635239d057be4feac217b4bc (patch) | |
| tree | f907bff895e0125fd48143d8defee5cf7288bee0 | |
| parent | 650ee9e071eea2ff8504e056131efa9f6ac894e9 (diff) | |
| download | emacs-96269209a3e22707635239d057be4feac217b4bc.tar.gz emacs-96269209a3e22707635239d057be4feac217b4bc.zip | |
;cperl-mode.el: Allow running under Emacs >=27
I would like to advertise cperl-mode.el from the repository as a
workaround for bug#70948. This can be achieved by safeguarding
the call to derived-mode-add-parents with a version check.
* lisp/progmodes/cperl-mode.el: Call derived-mode-add-parents only
if it is available.
| -rw-r--r-- | lisp/progmodes/cperl-mode.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 11709bfe00b..81ecb535b82 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el | |||
| @@ -1934,7 +1934,8 @@ or as help on variables `cperl-tips', `cperl-problems', | |||
| 1934 | ;; Setup Flymake | 1934 | ;; Setup Flymake |
| 1935 | (add-hook 'flymake-diagnostic-functions #'perl-flymake nil t)) | 1935 | (add-hook 'flymake-diagnostic-functions #'perl-flymake nil t)) |
| 1936 | 1936 | ||
| 1937 | (derived-mode-add-parents 'cperl-mode '(perl-mode)) | 1937 | (when (fboundp 'derived-mode-add-parents) ; to run under Emacs <30 |
| 1938 | (derived-mode-add-parents 'cperl-mode '(perl-mode))) | ||
| 1938 | 1939 | ||
| 1939 | (defun cperl--set-file-style () | 1940 | (defun cperl--set-file-style () |
| 1940 | (when cperl-file-style | 1941 | (when cperl-file-style |