| 900 | | (message "Invisible tag: %s" |
|---|
| 901 | | ;; Strip properties, otherwise, the text is invisible. |
|---|
| 902 | | (buffer-substring-no-properties |
|---|
| 903 | | (point) |
|---|
| 904 | | (if (or (and (> x y) |
|---|
| 905 | | (not (eq (following-char) ?<))) |
|---|
| 906 | | (and (< x y) |
|---|
| 907 | | (eq (preceding-char) ?>))) |
|---|
| 908 | | (backward-list) |
|---|
| 909 | | (forward-list))))))) |
|---|
| | 900 | (condition-case nil |
|---|
| | 901 | (message "Invisible tag: %s" |
|---|
| | 902 | ;; Strip properties, otherwise, the text is invisible. |
|---|
| | 903 | (buffer-substring-no-properties |
|---|
| | 904 | (point) |
|---|
| | 905 | (if (or (and (> x y) |
|---|
| | 906 | (not (eq (following-char) ?<))) |
|---|
| | 907 | (and (< x y) |
|---|
| | 908 | (eq (preceding-char) ?>))) |
|---|
| | 909 | (backward-list) |
|---|
| | 910 | (forward-list)))) |
|---|
| | 911 | (error nil))))) |
|---|
| | 912 | |
|---|
