672 |
(setq major-mode 'archive-mode) |
(setq major-mode 'archive-mode) |
673 |
(setq mode-name (concat typename "-Archive")) |
(setq mode-name (concat typename "-Archive")) |
674 |
;; Run archive-foo-mode-hook and archive-mode-hook |
;; Run archive-foo-mode-hook and archive-mode-hook |
675 |
(run-hooks (archive-name "mode-hook") 'archive-mode-hook) |
(run-mode-hooks (archive-name "mode-hook") 'archive-mode-hook) |
676 |
(use-local-map archive-mode-map)) |
(use-local-map archive-mode-map)) |
677 |
|
|
678 |
(make-local-variable 'archive-proper-file-start) |
(make-local-variable 'archive-proper-file-start) |