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

Shorten some ppss struct field names

Browse source 
* lisp/emacs-lisp/syntax.el (ppss): Capitalize docstrings.
(ppss-comment-depth): Renamed from ppss-comment-nesting.
(ppss-quoted-p): Renamed from ppss-after-quote-p.
(ppss-min-depth): Renamed from ppss-minimum-paren-depth.
(ppss-open-parens): Renamed from ppss-open-paren-positions.
* etc/NEWS: Announce the ppss-* accessors.
This commit is contained in:
Noam Postavsky 2020-02-23 08:26:35 -05:00
parent 693749c60f
commit ba7004b2a7
2 changed files with 21 additions and 13 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
etc/NEWS
View file

@ -3351,6 +3351,14 @@ brackets at the start of a line inside documentation strings with a
backslash, although there is no harm in doing so to make the code
easier to edit with an older Emacs version.
---
** New symbolic accessor functions for a parse state list.
The new accessor functions 'ppss-depth', 'ppss-list-start',
'ppss-last-sexp-start', 'ppss-string-terminator', 'comment-depth',
'quoted-p', 'comment-style', 'comment-or-string-start', 'open-parens',
and 'two-character-syntax' can be used on the list value returned by
'parse-partial-sexp' and 'syntax-ppss'.
---
** The 'server-name' and 'server-socket-dir' variables are set when a
socket has been passed to Emacs.

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

@ -89,33 +89,33 @@ Put first the functions more likely to cause a change and cheaper to compute.")
(:constructor make-ppss)
(:copier nil)
(:type list))
(depth nil :documentation "depth in parens")
(depth nil :documentation "Depth in parens.")
(innermost-start
nil :documentation
"character address of start of innermost containing list; nil if none.")
"Character address of start of innermost containing list; nil if none.")
(last-complete-sexp-start
nil :documentation
"character address of start of last complete sexp terminated.")
"Character address of start of last complete sexp terminated.")
(string-terminator nil :documentation "\
non-nil if inside a string.
(it is the character that will terminate the string, or t if the
Non-nil if inside a string.
\(it is the character that will terminate the string, or t if the
string should be terminated by a generic string delimiter.)")
(comment-nesting nil :documentation "\
(comment-depth nil :documentation "\
nil if outside a comment, t if inside a non-nestable comment,
else an integer (the current comment nesting).")
(after-quote-p nil :documentation "t if following a quote character.")
(minimum-paren-depth
nil :documentation "the minimum paren-depth encountered during this scan.")
(comment-style nil :documentation "style of comment, if any.")
(quoted-p nil :documentation "t if following a quote character.")
(min-depth
nil :documentation "The minimum depth in parens encountered during this scan.")
(comment-style nil :documentation "Style of comment, if any.")
(comment-or-string-start
nil :documentation
"character address of start of comment or string; nil if not in one.")
(open-paren-positions
"Character address of start of comment or string; nil if not in one.")
(open-parens
nil :documentation
"List of positions of currently open parens, outermost first.")
(two-character-syntax nil :documentation "\
When the last position scanned holds the first character of a
(potential) two character construct, the syntax of that position,
\(potential) two character construct, the syntax of that position,
otherwise nil. That construct can be a two character comment
delimiter or an Escaped or Char-quoted character."))