diff options
| -rw-r--r-- | lisp/emacs-lisp/syntax.el | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/syntax.el b/lisp/emacs-lisp/syntax.el index f290db42c04..619fa18e91f 100644 --- a/lisp/emacs-lisp/syntax.el +++ b/lisp/emacs-lisp/syntax.el | |||
| @@ -53,10 +53,12 @@ | |||
| 53 | (nth 0 ppss)) | 53 | (nth 0 ppss)) |
| 54 | 54 | ||
| 55 | (defun syntax-ppss-toplevel-pos (ppss) | 55 | (defun syntax-ppss-toplevel-pos (ppss) |
| 56 | "Return the last preceding position at toplevel. | 56 | "Get the latest syntactically outermost position found in a syntactic scan. |
| 57 | \"At toplevel\" means that it is outside of any syntactic entity: | 57 | PPSS is a scan state, as returned by `partial-parse-sexp' or `syntax-ppss'. |
| 58 | outside of any parentheses, or comments, or strings. | 58 | An \"outermost position\" means one that it is outside of any syntactic entity: |
| 59 | Returns nil iff PPSS itself corresponds to a toplevel position." | 59 | outside of any parentheses, comments, or strings encountered in the scan. |
| 60 | If no such position is recorded in PPSS (because the end of the scan was | ||
| 61 | itself at the outermost level), return nil." | ||
| 60 | (or (car (nth 9 ppss)) | 62 | (or (car (nth 9 ppss)) |
| 61 | (nth 8 ppss))) | 63 | (nth 8 ppss))) |
| 62 | 64 | ||