1 |
;;; reftex-ref.el --- code to create labels and references with RefTeX |
;;; reftex-ref.el --- code to create labels and references with RefTeX |
2 |
;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004 Free Software Foundation, Inc. |
;; Copyright (c) 1997, 1998, 1999, 2000, 2003, 2004, 2005 |
3 |
|
;; Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Carsten Dominik <dominik@science.uva.nl> |
;; Author: Carsten Dominik <dominik@science.uva.nl> |
6 |
;; Version: 4.26 |
;; Version: 4.26 |
173 |
(nth 2 (reftex-label-info " " nil nil t)))) |
(nth 2 (reftex-label-info " " nil nil t)))) |
174 |
;; Catch the cases where the is actually no context available. |
;; Catch the cases where the is actually no context available. |
175 |
(if (or (string-match "NO MATCH FOR CONTEXT REGEXP" default) |
(if (or (string-match "NO MATCH FOR CONTEXT REGEXP" default) |
176 |
(string-match "ILLEGAL VALUE OF PARSE" default) |
(string-match "INVALID VALUE OF PARSE" default) |
177 |
(string-match "SECTION HEADING NOT FOUND" default) |
(string-match "SECTION HEADING NOT FOUND" default) |
178 |
(string-match "HOOK ERROR" default) |
(string-match "HOOK ERROR" default) |
179 |
(string-match "^[ \t]*$" default)) |
(string-match "^[ \t]*$" default)) |
218 |
|
|
219 |
;; Test if label contains strange characters |
;; Test if label contains strange characters |
220 |
((string-match reftex-label-illegal-re label) |
((string-match reftex-label-illegal-re label) |
221 |
(message "Label \"%s\" contains illegal characters" label) |
(message "Label \"%s\" contains invalid characters" label) |
222 |
(ding) |
(ding) |
223 |
(sit-for 2)) |
(sit-for 2)) |
224 |
|
|