Mercurial > emacs

comparison lisp/textmodes/reftex-parse.el @ 27602:7f69a3b899d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(reftex-with-special-syntax): Bind `case-fold-search' to nil.
author Carsten Dominik <dominik@science.uva.nl>
date Fri, 04 Feb 2000 10:03:22 +0000
parents f70a80cecdd3
children 31536c6cf2e3
comparison
equal deleted inserted replaced
27601:225cd305a20e 27602:7f69a3b899d8
1 ;;; reftex-parse.el - Parser Functions for RefTeX 1 ;;; reftex-parse.el - Parser Functions for RefTeX
2 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc. 2 ;; Copyright (c) 1997, 1998, 1999, 2000 Free Software Foundation, Inc.
3 3
4 ;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl> 4 ;; Author: Carsten Dominik <dominik@strw.LeidenUniv.nl>
5 ;; Version: 4.10 5 ;; Version: 4.11
6 ;; 6 ;;
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
29 (defmacro reftex-with-special-syntax (&rest body) 29 (defmacro reftex-with-special-syntax (&rest body)
30 `(let ((saved-syntax (syntax-table))) 30 `(let ((saved-syntax (syntax-table)))
31 (unwind-protect 31 (unwind-protect
32 (progn 32 (progn
33 (set-syntax-table reftex-syntax-table) 33 (set-syntax-table reftex-syntax-table)
34 ,@body) 34 (let ((case-fold-search nil))
35 ,@body))
35 (set-syntax-table saved-syntax)))) 36 (set-syntax-table saved-syntax))))
36 37
37 (defun reftex-parse-one () 38 (defun reftex-parse-one ()
38 "Re-parse this file." 39 "Re-parse this file."
39 (interactive) 40 (interactive)