Mercurial > emacs
changeset 5313:3189e46001fd
(gnus-capitalize-newsgroup): Modify a new temporary
syntax table, not the current one.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Thu, 23 Dec 1993 04:58:26 +0000 |
| parents | aad805608eec |
| children | e65e125e5334 |
| files | lisp/=gnus.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/=gnus.el Thu Dec 23 04:57:18 1993 +0000 +++ b/lisp/=gnus.el Thu Dec 23 04:58:26 1993 +0000 @@ -2,7 +2,7 @@ ;; Copyright (C) 1987, 1988, 1989, 1990, 1993 Free Software Foundation, Inc. ;; Author: Masanobu UMEDA <umerin@mse.kyutech.ac.jp> -;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.29 1993/11/16 10:47:27 rms Exp rms $ +;; Version: $Header: /home/fsf/rms/e19/lisp/RCS/gnus.el,v 1.30 1993/11/17 13:41:50 rms Exp $ ;; Keywords: news ;; This file is part of GNU Emacs. @@ -4910,9 +4910,10 @@ (defun gnus-capitalize-newsgroup (newsgroup) "Capitalize NEWSGROUP name with treating '.' and '-' as part of words." ;; Suggested by "Jonathan I. Kamens" <jik@pit-manager.MIT.EDU>. - (let ((current-syntax-table (copy-syntax-table (syntax-table)))) + (let ((current-syntax-table (syntax-table))) (unwind-protect (progn + (set-syntax-table (copy-syntax-table current-syntax-table)) (modify-syntax-entry ?- "w") (modify-syntax-entry ?. "w") (capitalize newsgroup))