update packages
This commit is contained in:
@@ -784,12 +784,18 @@ Copied almost verbatim from gnus-utils.el (but with test for mac added)."
|
||||
;; FIXME: allow '%foo%' but only when quoted; don't allow [_0-9] at beg.
|
||||
(space "\\(\\s-\\|\n\\)*") ; white space
|
||||
|
||||
(S7-method (concat "method(" Symb "," space
|
||||
"\\(list(\\(" Symb ",?" space "\\)+)\\|" Symb
|
||||
"\\))"))
|
||||
|
||||
(part-1 (concat
|
||||
"\\(" ;;--------outer Either-------
|
||||
"\\(\\(" ; EITHER
|
||||
Q xSymb Q ; any function name between quotes
|
||||
"\\)\\|\\("
|
||||
Symb ; (beginning of name) + ess-r-symbol-pattern
|
||||
"\\)\\|\\(" ; Add S7 method as a valid function name
|
||||
S7-method
|
||||
"\\)\\)")) ; END EITHER OR
|
||||
|
||||
(set-S4-exp
|
||||
@@ -807,7 +813,7 @@ Copied almost verbatim from gnus-utils.el (but with test for mac added)."
|
||||
|
||||
"\\(" space "\\s<.*\\s>\\)*" ; whitespace, comment
|
||||
;; FIXME: in principle we should skip 'definition *= *' here
|
||||
space "function\\s-*(" ; whitespace, function keyword, parenthesis
|
||||
space "\\(function\\|\\\\\\)\\s-*(" ; whitespace, function keyword, parenthesis
|
||||
)))
|
||||
`(,part-1 ,part-2))
|
||||
"Partial regex for matching functions.
|
||||
|
||||
Reference in New Issue
Block a user