mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/progmodes/ruby-mode.el: Improve a few error messages.

Browse source
This commit is contained in:
Bozhidar Batsov 2013-11-05 18:28:40 +02:00
parent d57f4dde80
commit 03177f98c9
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -641,7 +641,7 @@ explicitly declared in magic comment."
"Indent the current line to COLUMN."
(when column
(let (shift top beg)
(and (< column 0) (error "invalid nest"))
(and (< column 0) (error "Invalid nesting"))
(setq shift (current-column))
(beginning-of-line)
(setq beg (point))
@ -732,7 +732,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
(forward-char -1))
(cond ((zerop n))
(no-error nil)
((error "unterminated string")))))
((error "Unterminated string")))))
(defun ruby-deep-indent-paren-p (c)
"TODO: document."
@ -943,7 +943,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
(setq in-string (match-end 0))
(goto-char ruby-indent-point)))
(t
(error (format "bad string %s"
(error (format "Bad string %s"
(buffer-substring (point) pnt)
))))))
(list in-string nest depth pcol))
@ -1018,7 +1018,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
(setq indent (current-column)))))
((and (nth 2 state) (> (nth 2 state) 0)) ; in nest
(if (null (cdr (nth 1 state)))
(error "invalid nest"))
(error "Invalid nesting"))
(goto-char (cdr (nth 1 state)))
(forward-word -1) ; skip back a keyword
(setq begin (point))