From: Glenn Morris <rgm@gnu.org>
Date: Wed, 10 Jan 2018 06:54:46 +0000 (-0800)
Subject: Remove some obsolete compat code in fortran.el
X-Git-Tag: emacs-27.0.90~5907
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=a94cbaab9ff63d269f62b8619445d4f598f72aaf;p=emacs.git

Remove some obsolete compat code in fortran.el

* lisp/progmodes/fortran.el (fortran-abbrev-start):
Remove obsolete compat code.  This file uses modern features.
---

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))))