diff options
| author | Bozhidar Batsov | 2013-11-05 18:28:40 +0200 |
|---|---|---|
| committer | Bozhidar Batsov | 2013-11-05 18:28:40 +0200 |
| commit | 03177f98c9c755b98e25ad9c51bd4945798e77e4 (patch) | |
| tree | 068f88e041d18b3a5f48ed1e7bbe507c7e9247d3 | |
| parent | d57f4dde80447f0fcdb1c31df7f0657fd2eea369 (diff) | |
| download | emacs-03177f98c9c755b98e25ad9c51bd4945798e77e4.tar.gz emacs-03177f98c9c755b98e25ad9c51bd4945798e77e4.zip | |
* lisp/progmodes/ruby-mode.el: Improve a few error messages.
| -rw-r--r-- | lisp/progmodes/ruby-mode.el | 8 |
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)) |