From a94cbaab9ff63d269f62b8619445d4f598f72aaf Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 9 Jan 2018 22:54:46 -0800 Subject: [PATCH] Remove some obsolete compat code in fortran.el * lisp/progmodes/fortran.el (fortran-abbrev-start): Remove obsolete compat code. This file uses modern features. --- lisp/progmodes/fortran.el | 8 ++------ 1 file changed, 2 insertions(+), 6 deletions(-) diff --git a/lisp/progmodes/fortran.el b/lisp/progmodes/fortran.el index 3fddf2392ea..bfbf6c09b27 100644 --- a/lisp/progmodes/fortran.el +++ b/lisp/progmodes/fortran.el @@ -1040,13 +1040,9 @@ With non-nil ARG, uncomments the region." Any other key combination is executed normally." (interactive "*") (insert last-command-event) - (let* ((event (if (fboundp 'next-command-event) ; XEmacs - (next-command-event) - (read-event))) - (char (if (fboundp 'event-to-character) - (event-to-character event) event))) + (let ((event (read-event))) ;; Insert char if not equal to `?', or if abbrev-mode is off. - (if (and abbrev-mode (or (eq char ??) (eq char help-char) + (if (and abbrev-mode (or (eq event ??) (eq event help-char) (memq event help-event-list))) (fortran-abbrev-help) (push event unread-command-events)))) -- 2.39.2