1677 |
(setq c (if (fboundp 'next-command-event) ; XEmacs |
(setq c (if (fboundp 'next-command-event) ; XEmacs |
1678 |
(event-to-character (next-command-event)) |
(event-to-character (next-command-event)) |
1679 |
(read-event))) |
(read-event))) |
1680 |
;; Insert char if not equal to `?'. |
;; Insert char if not equal to `?', or if abbrev-mode is off. |
1681 |
(if (or (eq c ??) (eq c help-char)) |
(if (and abbrev-mode (or (eq c ??) (eq c help-char))) |
1682 |
(f90-abbrev-help) |
(f90-abbrev-help) |
1683 |
(setq unread-command-events (list c))))) |
(setq unread-command-events (list c))))) |
1684 |
|
|