(save-excursion
(set-buffer (get-buffer-create "*Abbrevs*"))
(erase-buffer)
- (insert-abbrev-table-description fortran-mode-abbrev-table t)
+ (insert-abbrev-table-description 'fortran-mode-abbrev-table t)
(goto-char (point-min))
(set-buffer-modified-p nil)
(edit-abbrevs-mode))