aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBozhidar Batsov2013-11-05 18:28:40 +0200
committerBozhidar Batsov2013-11-05 18:28:40 +0200
commit03177f98c9c755b98e25ad9c51bd4945798e77e4 (patch)
tree068f88e041d18b3a5f48ed1e7bbe507c7e9247d3
parentd57f4dde80447f0fcdb1c31df7f0657fd2eea369 (diff)
downloademacs-03177f98c9c755b98e25ad9c51bd4945798e77e4.tar.gz
emacs-03177f98c9c755b98e25ad9c51bd4945798e77e4.zip
* lisp/progmodes/ruby-mode.el: Improve a few error messages.
-rw-r--r--lisp/progmodes/ruby-mode.el8
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/progmodes/ruby-mode.el b/lisp/progmodes/ruby-mode.el
index 6df909723c2..253a6006052 100644
--- a/lisp/progmodes/ruby-mode.el
+++ b/lisp/progmodes/ruby-mode.el
@@ -641,7 +641,7 @@ explicitly declared in magic comment."
641 "Indent the current line to COLUMN." 641 "Indent the current line to COLUMN."
642 (when column 642 (when column
643 (let (shift top beg) 643 (let (shift top beg)
644 (and (< column 0) (error "invalid nest")) 644 (and (< column 0) (error "Invalid nesting"))
645 (setq shift (current-column)) 645 (setq shift (current-column))
646 (beginning-of-line) 646 (beginning-of-line)
647 (setq beg (point)) 647 (setq beg (point))
@@ -732,7 +732,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
732 (forward-char -1)) 732 (forward-char -1))
733 (cond ((zerop n)) 733 (cond ((zerop n))
734 (no-error nil) 734 (no-error nil)
735 ((error "unterminated string"))))) 735 ((error "Unterminated string")))))
736 736
737(defun ruby-deep-indent-paren-p (c) 737(defun ruby-deep-indent-paren-p (c)
738 "TODO: document." 738 "TODO: document."
@@ -943,7 +943,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
943 (setq in-string (match-end 0)) 943 (setq in-string (match-end 0))
944 (goto-char ruby-indent-point))) 944 (goto-char ruby-indent-point)))
945 (t 945 (t
946 (error (format "bad string %s" 946 (error (format "Bad string %s"
947 (buffer-substring (point) pnt) 947 (buffer-substring (point) pnt)
948 )))))) 948 ))))))
949 (list in-string nest depth pcol)) 949 (list in-string nest depth pcol))
@@ -1018,7 +1018,7 @@ Can be one of `heredoc', `modifier', `expr-qstr', `expr-re'."
1018 (setq indent (current-column))))) 1018 (setq indent (current-column)))))
1019 ((and (nth 2 state) (> (nth 2 state) 0)) ; in nest 1019 ((and (nth 2 state) (> (nth 2 state) 0)) ; in nest
1020 (if (null (cdr (nth 1 state))) 1020 (if (null (cdr (nth 1 state)))
1021 (error "invalid nest")) 1021 (error "Invalid nesting"))
1022 (goto-char (cdr (nth 1 state))) 1022 (goto-char (cdr (nth 1 state)))
1023 (forward-word -1) ; skip back a keyword 1023 (forward-word -1) ; skip back a keyword
1024 (setq begin (point)) 1024 (setq begin (point))