comparison lisp/textmodes/reftex-global.el @ 27603:37b7d4f540f1

(reftex-change-label): add `A-Z' to char class in regexp.
author Carsten Dominik <dominik@science.uva.nl>
date Fri, 04 Feb 2000 10:04:00 +0000
parents f70a80cecdd3
children 31536c6cf2e3
comparison
equal deleted inserted replaced
27602:7f69a3b899d8 27603:37b7d4f540f1
1 ;;; reftex-global.el - Operations on entire documents with RefTeX 1 ;;; reftex-global.el - Operations on entire documents with 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
167 (if (string= from "") (setq from default)) 167 (if (string= from "") (setq from default))
168 (unless to 168 (unless to
169 (setq to (read-string (format "Replace label %s with: " 169 (setq to (read-string (format "Replace label %s with: "
170 from)))) 170 from))))
171 (reftex-query-replace-document 171 (reftex-query-replace-document
172 (concat "\\\\\\(label\\|[a-z]*ref\\){" (regexp-quote from) "}") 172 (concat "\\\\\\(label\\|[a-zA-Z]*ref\\){" (regexp-quote from) "}")
173 (format "\\\\\\1{%s}" to)))) 173 (format "\\\\\\1{%s}" to))))
174 174
175 (defun reftex-renumber-simple-labels () 175 (defun reftex-renumber-simple-labels ()
176 "Renumber all simple labels in the document to make them sequentially. 176 "Renumber all simple labels in the document to make them sequentially.
177 Simple labels are the ones created by RefTeX, consisting only of the 177 Simple labels are the ones created by RefTeX, consisting only of the