Mercurial > emacs
comparison lisp/obsolete/rnews.el @ 62769:a1fa16a75bde
* obsolete/ooutline.el (outline-mode):
* obsolete/options.el (Edit-options-mode):
* obsolete/rnews.el (news-mode):
* obsolete/rnewspost.el (news-reply-mode): Use run-mode-hooks.
| author | Lute Kamstra <lute@gnu.org> |
|---|---|
| date | Thu, 26 May 2005 15:24:51 +0000 |
| parents | 86f3ab4179bd |
| children | 18a818a2ee7c 01137c1fdbe9 |
comparison
equal
deleted
inserted
replaced
| 62768:a58b7c623705 | 62769:a1fa16a75bde |
|---|---|
| 373 (setq mode-name "NEWS") | 373 (setq mode-name "NEWS") |
| 374 (news-set-mode-line) | 374 (news-set-mode-line) |
| 375 (set-syntax-table text-mode-syntax-table) | 375 (set-syntax-table text-mode-syntax-table) |
| 376 (use-local-map news-mode-map) | 376 (use-local-map news-mode-map) |
| 377 (setq local-abbrev-table text-mode-abbrev-table) | 377 (setq local-abbrev-table text-mode-abbrev-table) |
| 378 (run-hooks 'news-mode-hook)) | 378 (run-mode-hooks 'news-mode-hook)) |
| 379 | 379 |
| 380 (defun string-subst-char (new old string) | 380 (defun string-subst-char (new old string) |
| 381 (let (index) | 381 (let (index) |
| 382 (setq old (regexp-quote (char-to-string old)) | 382 (setq old (regexp-quote (char-to-string old)) |
| 383 string (substring string 0)) | 383 string (substring string 0)) |