procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(syntax-ppss-toplevel-pos): New fun.

Browse source
This commit is contained in:
Stefan Monnier 2006-12-12 02:36:38 +00:00
parent 53d45a176b
commit 0e6c966c96
2 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
lisp/emacs-lisp/syntax.el
View file

@ -52,6 +52,14 @@
(defsubst syntax-ppss-depth (ppss)
(nth 0 ppss))
(defun syntax-ppss-toplevel-pos (ppss)
"Return the last preceding position at toplevel.
\"At toplevel\" means that it is outside of any syntactic entity:
outside of any parentheses, or comments, or strings.
Returns nil iff PPSS itself corresponds to a toplevel position."
(or (car (nth 9 ppss))
(nth 8 ppss)))
(defsubst syntax-ppss-context (ppss)
(cond
((nth 3 ppss) 'string)