Mercurial > emacs

comparison lisp/obsolete/rnews.el @ 90188:01137c1fdbe9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Revision: miles@gnu.org--gnu-2005/emacs--unicode--0--patch-57 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 324-352) - Merge from gnus--rel--5.10 - Update from CVS - etc/emacs-buffer.gdb: Remove RCS keywords * gnus--rel--5.10 (patch 70-79) - Update from CVS - Merge from emacs--cvs-trunk--0
author Miles Bader <miles@gnu.org>
date Mon, 06 Jun 2005 02:39:45 +0000
parents 62afea0771d8 a1fa16a75bde
children f9a65d7ebd29
comparison
equal deleted inserted replaced
90187:587ea1490d70 90188:01137c1fdbe9
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))