130 |
|
|
131 |
(defun buffer-syntactic-context (&optional buffer) |
(defun buffer-syntactic-context (&optional buffer) |
132 |
"Syntactic context at point in BUFFER. |
"Syntactic context at point in BUFFER. |
133 |
Either of `string', `comment' or `nil'. |
Either of `string', `comment' or nil. |
134 |
This is an XEmacs compatibility function." |
This is an XEmacs compatibility function." |
135 |
(with-current-buffer (or buffer (current-buffer)) |
(with-current-buffer (or buffer (current-buffer)) |
136 |
(let ((state (syntax-ppss (point)))) |
(let ((state (syntax-ppss (point)))) |