Mercurial > emacs

comparison lisp/gnus/gnus-util.el @ 48588:52d99cc2e9e3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Typos.
author ShengHuo ZHU <zsh@cs.rochester.edu>
date Fri, 29 Nov 2002 15:57:52 +0000
parents 65eaf21a0a44
children 695cf19ef79e d7ddb3e565de
comparison
equal deleted inserted replaced
48587:0af9ad587767 48588:52d99cc2e9e3
1 ;;; gnus-util.el --- utility functions for Gnus 1 ;;; gnus-util.el --- utility functions for Gnus
2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000 2 ;; Copyright (C) 1996, 1997, 1998, 1999, 2000, 2002
3 ;; Free Software Foundation, Inc. 3 ;; Free Software Foundation, Inc.
4 4
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org> 5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
6 ;; Keywords: news 6 ;; Keywords: news
7 7
610 are not changed if anything in FORMS signals an error or otherwise 610 are not changed if anything in FORMS signals an error or otherwise
611 non-locally exits. The variables listed in PROTECT are updated atomically. 611 non-locally exits. The variables listed in PROTECT are updated atomically.
612 It is safe to use gnus-atomic-progn-assign with long computations. 612 It is safe to use gnus-atomic-progn-assign with long computations.
613 613
614 Note that if any of the symbols in PROTECT were unbound, they will be 614 Note that if any of the symbols in PROTECT were unbound, they will be
615 set to nil on a sucessful assignment. In case of an error or other 615 set to nil on a successful assignment. In case of an error or other
616 non-local exit, it will still be unbound." 616 non-local exit, it will still be unbound."
617 (let* ((temp-sym-map (mapcar (lambda (x) (list (make-symbol 617 (let* ((temp-sym-map (mapcar (lambda (x) (list (make-symbol
618 (concat (symbol-name x) 618 (concat (symbol-name x)
619 "-tmp")) 619 "-tmp"))
620 x)) 620 x))