diff options
| author | Glenn Morris <rgm@gnu.org> | 2018-01-09 22:54:46 -0800 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2018-01-09 22:54:46 -0800 |
| commit | a94cbaab9ff63d269f62b8619445d4f598f72aaf (patch) | |
| tree | dd02c71e6faaba53f40939ec8dbe0e37b1f97969 /lisp | |
| parent | ddb26f79b20329ada5f5bc6e1742807d029e06c0 (diff) | |
| download | emacs-a94cbaab9ff63d269f62b8619445d4f598f72aaf.tar.gz emacs-a94cbaab9ff63d269f62b8619445d4f598f72aaf.tar.bz2 emacs-a94cbaab9ff63d269f62b8619445d4f598f72aaf.zip | |
Remove some obsolete compat code in fortran.el
* lisp/progmodes/fortran.el (fortran-abbrev-start):
Remove obsolete compat code. This file uses modern features.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/progmodes/fortran.el | 8 |
1 files 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)))) |