1820 |
(buffer-substring-no-properties (match-beginning num) |
(buffer-substring-no-properties (match-beginning num) |
1821 |
(match-end num))))) |
(match-end num))))) |
1822 |
|
|
1823 |
|
(defun looking-back (regexp) |
1824 |
|
"Return t if text before point matches regular expression REGEXP. |
1825 |
|
This function modifies the match data that `match-beginning', |
1826 |
|
`match-end' and `match-data' access; save and restore the match |
1827 |
|
data if you want to preserve them." |
1828 |
|
(save-excursion |
1829 |
|
(let ((beg (point))) |
1830 |
|
(if (re-search-backward regexp nil t) |
1831 |
|
(if (= (match-end 0) beg) |
1832 |
|
t |
1833 |
|
nil) |
1834 |
|
nil)))) |
1835 |
|
|
1836 |
(defconst split-string-default-separators "[ \f\t\n\r\v]+" |
(defconst split-string-default-separators "[ \f\t\n\r\v]+" |
1837 |
"The default value of separators for `split-string'. |
"The default value of separators for `split-string'. |
1838 |
|
|