procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some obsolete compat code in fortran.el

Browse source 
* lisp/progmodes/fortran.el (fortran-abbrev-start):
Remove obsolete compat code.  This file uses modern features.
This commit is contained in:
Glenn Morris 2018-01-09 22:54:46 -08:00
parent ddb26f79b2
commit a94cbaab9f
1 changed files with 2 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/progmodes/fortran.el
View file

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