Mercurial > emacs
comparison lisp/progmodes/f90.el @ 50562:6ee9d94eaca3
(f90-abbrev-start): Only offer help if abbrev-mode is active.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Sat, 12 Apr 2003 15:45:59 +0000 |
| parents | 0d8b17d428b5 |
| children | 9d10c32adde2 |
comparison
equal
deleted
inserted
replaced
| 50561:aab211655bcd | 50562:6ee9d94eaca3 |
|---|---|
| 1675 (let (c) | 1675 (let (c) |
| 1676 (insert last-command-char) | 1676 (insert last-command-char) |
| 1677 (setq c (if (fboundp 'next-command-event) ; XEmacs | 1677 (setq c (if (fboundp 'next-command-event) ; XEmacs |
| 1678 (event-to-character (next-command-event)) | 1678 (event-to-character (next-command-event)) |
| 1679 (read-event))) | 1679 (read-event))) |
| 1680 ;; Insert char if not equal to `?'. | 1680 ;; Insert char if not equal to `?', or if abbrev-mode is off. |
| 1681 (if (or (eq c ??) (eq c help-char)) | 1681 (if (and abbrev-mode (or (eq c ??) (eq c help-char))) |
| 1682 (f90-abbrev-help) | 1682 (f90-abbrev-help) |
| 1683 (setq unread-command-events (list c))))) | 1683 (setq unread-command-events (list c))))) |
| 1684 | 1684 |
| 1685 (defun f90-abbrev-help () | 1685 (defun f90-abbrev-help () |
| 1686 "List the currently defined abbrevs in F90 mode." | 1686 "List the currently defined abbrevs in F90 mode." |