[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master a94cbaa 1/3: Remove some obsolete compat code in fo
From: |
Glenn Morris |
Subject: |
[Emacs-diffs] master a94cbaa 1/3: Remove some obsolete compat code in fortran.el |
Date: |
Wed, 10 Jan 2018 01:58:21 -0500 (EST) |
branch: master
commit a94cbaab9ff63d269f62b8619445d4f598f72aaf
Author: Glenn Morris <address@hidden>
Commit: Glenn Morris <address@hidden>
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 3fddf23..bfbf6c0 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))))