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

Move curly functions closer to where they’re used

Browse source 
* lisp/progmodes/js.el (js-jsx--enclosing-curly-pos)
(js-jsx--goto-outermost-enclosing-curly): As the code evolved, these
functions’ definitions ended up being far away from the only places
where they were used.  Move them there.
This commit is contained in:
Jackson Ray Hamilton 2019-04-08 22:27:41 -07:00
parent 9545519572
commit 7c3ffdaf4b
No known key found for this signature in database
GPG key ID: B4771664B476B290
1 changed files with 20 additions and 20 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
lisp/progmodes/js.el
View file

@ -1956,26 +1956,6 @@ the match. Return nil if a match can’t be found."
(setq tag-stack (1+ tag-stack))))
(setq last-pos (point)))))))
(defun js-jsx--enclosing-curly-pos ()
"Return position of enclosing “{” in a “{/}” pair about point."
(let ((parens (reverse (nth 9 (syntax-ppss)))) paren-pos curly-pos)
(while
(and
(setq paren-pos (car parens))
(not (when (= (char-after paren-pos) ?{)
(setq curly-pos paren-pos)))
(setq parens (cdr parens))))
curly-pos))
(defun js-jsx--goto-outermost-enclosing-curly (limit)
"Set point to enclosing “{” at or closest after LIMIT."
(let (pos)
(while
(and
(setq pos (js-jsx--enclosing-curly-pos))
(if (>= pos limit) (goto-char pos))
(> pos limit)))))
(defun js-jsx--enclosing-tag-pos ()
"Return beginning and end of a JSXElement about point.
Look backward for a JSXElement that both starts before point and
@ -2646,6 +2626,26 @@ The column calculation is based off of `sgml-calculate-indent'."
))
(defun js-jsx--enclosing-curly-pos ()
"Return position of enclosing “{” in a “{/}” pair about point."
(let ((parens (reverse (nth 9 (syntax-ppss)))) paren-pos curly-pos)
(while
(and
(setq paren-pos (car parens))
(not (when (= (char-after paren-pos) ?{)
(setq curly-pos paren-pos)))
(setq parens (cdr parens))))
curly-pos))
(defun js-jsx--goto-outermost-enclosing-curly (limit)
"Set point to enclosing “{” at or closest after LIMIT."
(let (pos)
(while
(and
(setq pos (js-jsx--enclosing-curly-pos))
(if (>= pos limit) (goto-char pos))
(> pos limit)))))
(defun js-jsx--expr-attribute-pos (start limit)
"Look back from START to LIMIT for a JSXAttribute."
(save-excursion