Lines Matching +defs:table +defs:string
33 ;; - A table of contents provides easy access to any part of a document.
114 ;; Typing `C-c =' (`reftex-toc') will show a table of contents of the
131 ;; - prompt for a label string (default for figures and
204 ;; selection buffer, the table of contents buffer, or the index
307 "Version string for RefTeX.")
317 (defvar reftex-syntax-table nil)
318 (defvar reftex-syntax-table-for-bib nil)
320 (unless reftex-syntax-table
321 (setq reftex-syntax-table (copy-syntax-table))
322 (modify-syntax-entry ?\( "." reftex-syntax-table)
323 (modify-syntax-entry ?\) "." reftex-syntax-table))
325 (unless reftex-syntax-table-for-bib
326 (setq reftex-syntax-table-for-bib
327 (copy-syntax-table reftex-syntax-table))
328 (modify-syntax-entry ?\' "." reftex-syntax-table-for-bib)
329 (modify-syntax-entry ?\" "." reftex-syntax-table-for-bib)
330 (modify-syntax-entry ?\[ "." reftex-syntax-table-for-bib)
331 (modify-syntax-entry ?\] "." reftex-syntax-table-for-bib))
397 (setq reftex-syntax-table (copy-syntax-table (syntax-table)))
398 (modify-syntax-entry ?\( "." reftex-syntax-table)
399 (modify-syntax-entry ?\) "." reftex-syntax-table)
401 (setq reftex-syntax-table-for-bib
402 (copy-syntax-table reftex-syntax-table))
403 (modify-syntax-entry ?\' "." reftex-syntax-table-for-bib)
404 (modify-syntax-entry ?\" "." reftex-syntax-table-for-bib)
405 (modify-syntax-entry ?\[ "." reftex-syntax-table-for-bib)
406 (modify-syntax-entry ?\] "." reftex-syntax-table-for-bib)
514 (set symbol (intern (concat symname "-" (int-to-string index))))
650 ;; Help string for label type queries.
686 ;; Help string for index macro queries
705 (defvar reftex-latex-syntax-table nil)
850 (if (string= reftex-last-toc-master (reftex-TeX-master-file))
933 (setq entry (cons (string-to-char (car entry))
937 typekey (if typekeychar (char-to-string typekeychar) nil)
948 (string-match "@" fmt))
950 (setq fmt (split-string fmt "@+"))
975 ((string-match "\\`\\\\" env-or-mac)
987 (cond ((string= env-or-mac "any"))
988 ((string= env-or-mac ""))
989 ((string= env-or-mac "section"))
993 (let ((string (format "begin{%s}" env-or-mac)))
994 (or (assoc string toc-levels)
995 (push (cons string toc-level) toc-levels))))))))
1007 (and (not (string= env-or-mac "any"))
1008 (not (string= env-or-mac ""))
1022 ((string= "" env-or-mac) nil)
1031 ;; Prepare the typekey query prompt and help string.
1035 (string< (downcase (car x1)) (downcase (car x2))))))
1041 ;; In the help string, we need to wrap lines...
1112 ;; Make the prompt and help string for index macros query
1118 (mapconcat (lambda (x) (char-to-string (car x)))
1208 (if (string-match "[[{]\\*?[]}]" macro)
1213 (while (string-match "\\`[[{]\\(\\*\\)?[]}]" args)
1215 (when (eq ?\[ (string-to-char args))
1292 (file (if (string-match "\\.[a-zA-Z]+\\'" master)
1374 (unless (string= (file-truename real-master) (file-truename parsed-master))
1440 (files (if (string-match ext-re file)
1478 (if (string-match "%f" prg)
1480 (setq out (apply 'reftex-process-string (split-string prg)))
1481 (if (string-match "[ \t\n]+\\'" out) ; chomp
1487 (defun reftex-process-string (program &rest args)
1488 "Execute PROGRAM with arguments ARGS and return its STDOUT as a string."
1490 (with-output-to-string
1511 (if (string-match "^!" x)
1512 (apply 'reftex-process-string
1513 (split-string (substring x 1)))
1526 (when (string= (substring dir -2) "//")
1565 (when (string= (substring dir -2) "//")
1578 (if (string-match "\\(//+\\|/*!+\\)\\'" dir)
1581 (delete "" (split-string path (concat path-separator "+")))))
1588 (if (setq recursive (string= (substring dir -2) "//"))
1667 "Show the table of contents for the current document." t)
1679 (autoload 'reftex-make-cite-echo-string "reftex-cite")
1784 (string-match (concat "[" conf-variable "]") typekey))))
1799 (defun reftex-no-props (string)
1801 (and (stringp string)
1802 (set-text-properties 0 (length string) nil string))
1803 string)
1805 (defun reftex-match-string (n)
1806 ;; Match string without properties
1856 (defun reftex-all-assoc-string (key list)
1857 ;; Return a list of all associations of KEY in LIST. Comparison with string=.
1860 (if (string= (car (car list)) key)
1905 (defun reftex-truncate (string ncols &optional ellipses padding)
1907 ;; When PADDING is non-nil, and string is shorter than NCOLS, fill with
1909 ;; string needs to be truncated, replace last 3 characters by dots.
1910 (setq string
1911 (if (<= (length string) ncols)
1912 string
1914 (concat (substring string 0 (- ncols 3)) "...")
1915 (substring string 0 ncols))))
1917 (format (format "%%-%ds" ncols) string)
1918 string))
1977 (defun reftex-select-with-char (prompt help-string &optional delay-time scroll)
1989 (insert help-string)
2016 (defun reftex-make-regexp-allow-for-ctrl-m (string)
2019 (setq string (regexp-quote string))
2020 (while (setq start (string-match "[\n\r]" string (+ 3 start)))
2021 (setq string (replace-match "[\n\r]" nil t string)))
2022 string))
2161 (defun reftex-abbreviate-title (string)
2162 (reftex-convert-string string "[-~ \t\n\r,;]" nil t t
2165 (defun reftex-convert-string (string split-re invalid-re dot keep-fp
2168 "Convert a string (a sentence) to something shorter.
2169 SPLIT-RE is the regular expression used to split the string into words.
2170 INVALID-RE matches characters which are invalid in the final string.
2174 MAXCHAR Maximum number of characters in the final string.
2180 string below MAXCHAR.
2181 SEP String separating different words in the output string.
2182 IGNORE-WORDS List of words which should be removed from the string."
2184 (let* ((words0 (split-string string (or split-re "[ \t\n\r]")))
2188 (make-string (nth 0 reftex-abbrev-parameters) ?.)
2192 (make-string (1- (nth 1 reftex-abbrev-parameters)) ?.)))
2200 ((string-match reftex-label-illegal-re word)
2202 (while (string-match reftex-label-illegal-re word)
2214 (setq string (mapconcat 'identity words sep))
2216 ;; Abbreviate words if enforced by user settings or string length
2219 (> (length string) maxchar)))
2222 (lambda (w) (if (string-match abbrev-re w)
2224 (concat (match-string 1 w) ".")
2225 (match-string 1 w))
2228 string (mapconcat 'identity words sep)))
2231 (setq string
2232 (if (> (length string) maxchar)
2233 (substring string 0 maxchar)
2234 string))
2237 (if (and (not keep-fp) (string-match "\\s.+\\'" string))
2238 (setq string (replace-match "" nil nil string)))
2239 string))
2244 (while (string-match "[\n\r\t]\\|[ \t][ \t]+" text)
2247 (if (string-match "\\(\\\\end{\\|\\\\item\\|\\\\\\\\\\).*" text)
2250 (if (string-match "\\\\label{[^}]*}" text)
2253 (if (string-match "\\`[ }]+" text)
2258 ((= (length text) 0) (make-string 1 ?\ ))