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

Guard against nested percent literals

Browse source 
* lisp/progmodes/ruby-mode.el
(ruby-syntax-propertize-percent-literal):
Don't check the syntax status.
(ruby-syntax-propertize): Check it here.  And also guard against
being in a larger percent literal.

* test/automated/ruby-mode-tests.el
(ruby-no-nested-percent-literals): New test.
This commit is contained in:
Dmitry Gutov 2016-03-07 02:58:49 +02:00
parent 066f3bc3f3
commit 6e63b3e997
2 changed files with 39 additions and 30 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/ruby-mode.el
View file

@ -1901,7 +1901,10 @@ It will be properly highlighted even when the call omits parens.")
(ruby-syntax-propertize-heredoc end))))
;; Handle percent literals: %w(), %q{}, etc.
((concat "\\(?:^\\|[[ \t\n<+(,=]\\)" ruby-percent-literal-beg-re)
(1 (prog1 "|" (ruby-syntax-propertize-percent-literal end)))))
(1 (unless (nth 8 (save-excursion (syntax-ppss (match-beginning 1))))
;; Not inside a string, a comment, or a percent literal.
(ruby-syntax-propertize-percent-literal end)
(string-to-syntax "|")))))
(point) end)))
(define-obsolete-function-alias
@ -1944,8 +1947,6 @@ It will be properly highlighted even when the call omits parens.")
(defun ruby-syntax-propertize-percent-literal (limit)
(goto-char (match-beginning 2))
;; Not inside a simple string or comment.
(when (eq t (nth 3 (syntax-ppss)))
(let* ((op (char-after))
(ops (char-to-string op))
(cl (or (cdr (aref (syntax-table) op))
@ -1972,7 +1973,7 @@ It will be properly highlighted even when the call omits parens.")
(put-text-property (1- (point)) (point) 'syntax-table
(string-to-syntax "|")))
;; Unclosed literal, do nothing.
((scan-error search-failed)))))))
((scan-error search-failed))))))
(defun ruby-syntax-propertize-expansion ()
;; Save the match data to a text property, for font-locking later.

8
test/automated/ruby-mode-tests.el
View file

@ -461,6 +461,14 @@ VALUES-PLIST is a list with alternating index and value elements."
(ruby-assert-face "%S{foo}" 4 nil)
(ruby-assert-face "%R{foo}" 4 nil))
(ert-deftest ruby-no-nested-percent-literals ()
(ruby-with-temp-buffer "a = %w[b %()]"
(syntax-propertize (point))
(should (null (nth 8 (syntax-ppss))))
(should (eq t (nth 3 (syntax-ppss (1- (point-max))))))
(search-backward "[")
(should (eq t (nth 3 (syntax-ppss))))))
(ert-deftest ruby-add-log-current-method-examples ()
(let ((pairs '(("foo" . "#foo")
("C.foo" . ".foo")