diff options
| author | Paul Eggert | 2017-01-17 07:45:39 -0800 |
|---|---|---|
| committer | Paul Eggert | 2017-01-17 07:46:03 -0800 |
| commit | 021d340cf94f6670f1c45175e856f3394f7fcae1 (patch) | |
| tree | fdf33b9d85502f17ecd0c7ec4f35d852940a45b6 | |
| parent | 2b36ae07e3c8106e4603b330fc470f0595d28de0 (diff) | |
| download | emacs-021d340cf94f6670f1c45175e856f3394f7fcae1.tar.gz emacs-021d340cf94f6670f1c45175e856f3394f7fcae1.zip | |
; Spelling fixes
| -rw-r--r-- | lisp/textmodes/rst.el | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/lisp/textmodes/rst.el b/lisp/textmodes/rst.el index 06f969d2784..261e98eabce 100644 --- a/lisp/textmodes/rst.el +++ b/lisp/textmodes/rst.el | |||
| @@ -109,7 +109,7 @@ | |||
| 109 | (def-edebug-spec push | 109 | (def-edebug-spec push |
| 110 | (&or [form symbolp] [form gv-place])) | 110 | (&or [form symbolp] [form gv-place])) |
| 111 | 111 | ||
| 112 | ;; Correct wrong declaration. This still doesn't support dotted desctructuring | 112 | ;; Correct wrong declaration. This still doesn't support dotted destructuring |
| 113 | ;; though. | 113 | ;; though. |
| 114 | (def-edebug-spec cl-lambda-list | 114 | (def-edebug-spec cl-lambda-list |
| 115 | (([&rest cl-macro-arg] | 115 | (([&rest cl-macro-arg] |
| @@ -1006,7 +1006,7 @@ BEG-UND are the starting points of the overline or underline, | |||
| 1006 | respectively. They may be nil if the respective thing is missing. | 1006 | respectively. They may be nil if the respective thing is missing. |
| 1007 | BEG-TXT is the beginning of the title line or the transition and | 1007 | BEG-TXT is the beginning of the title line or the transition and |
| 1008 | must be given. The end of the line is used as the end point. TXT | 1008 | must be given. The end of the line is used as the end point. TXT |
| 1009 | is the title text or nil. If TXT is given the indendation of the | 1009 | is the title text or nil. If TXT is given the indentation of the |
| 1010 | line containing BEG-TXT is used as indentation. Match group 0 is | 1010 | line containing BEG-TXT is used as indentation. Match group 0 is |
| 1011 | derived from the remaining information." | 1011 | derived from the remaining information." |
| 1012 | (cl-check-type beg-txt integer-or-marker) | 1012 | (cl-check-type beg-txt integer-or-marker) |
| @@ -1845,8 +1845,7 @@ Uses and sets `rst-all-ttls-cache'." | |||
| 1845 | HDRS reflects the order in which the headers appear in the | 1845 | HDRS reflects the order in which the headers appear in the |
| 1846 | buffer. Return a `rst-Hdr' list representing the hierarchy of | 1846 | buffer. Return a `rst-Hdr' list representing the hierarchy of |
| 1847 | headers in the buffer. Indentation is unified." | 1847 | headers in the buffer. Indentation is unified." |
| 1848 | (let (ado2indents) ; Asscociates `rst-Ado' with the set of indents seen for | 1848 | (let (ado2indents) ; Associates `rst-Ado' with the set of indents seen for it. |
| 1849 | ; it. | ||
| 1850 | (dolist (hdr hdrs) | 1849 | (dolist (hdr hdrs) |
| 1851 | (let* ((ado (rst-Hdr-ado hdr)) | 1850 | (let* ((ado (rst-Hdr-ado hdr)) |
| 1852 | (indent (rst-Hdr-indent hdr)) | 1851 | (indent (rst-Hdr-indent hdr)) |
| @@ -2451,7 +2450,7 @@ also arranged by `rst-insert-list-new-tag'." | |||
| 2451 | (defun rst-insert-list-continue (ind tag tab prefer-roman) | 2450 | (defun rst-insert-list-continue (ind tag tab prefer-roman) |
| 2452 | ;; testcover: ok. | 2451 | ;; testcover: ok. |
| 2453 | "Insert a new list tag after the current line according to style. | 2452 | "Insert a new list tag after the current line according to style. |
| 2454 | Style is defined by indentaton IND, TAG and suffix TAB. If | 2453 | Style is defined by indentation IND, TAG and suffix TAB. If |
| 2455 | PREFER-ROMAN roman numbering is preferred over using letters." | 2454 | PREFER-ROMAN roman numbering is preferred over using letters." |
| 2456 | (end-of-line) | 2455 | (end-of-line) |
| 2457 | (insert | 2456 | (insert |
| @@ -2551,8 +2550,8 @@ roman numerical list, just use a prefix to set PREFER-ROMAN." | |||
| 2551 | "Return the positions of begs in region BEG to END. | 2550 | "Return the positions of begs in region BEG to END. |
| 2552 | RST-RE-BEG is a `rst-re' argument and matched at the beginning of | 2551 | RST-RE-BEG is a `rst-re' argument and matched at the beginning of |
| 2553 | a line. Return a list of (POINT . COLUMN) where POINT gives the | 2552 | a line. Return a list of (POINT . COLUMN) where POINT gives the |
| 2554 | point after indentaton and COLUMN gives its column. The list is | 2553 | point after indentation and COLUMN gives its column. The list is |
| 2555 | ordererd by POINT." | 2554 | ordered by POINT." |
| 2556 | (let (r) | 2555 | (let (r) |
| 2557 | (save-match-data | 2556 | (save-match-data |
| 2558 | (save-excursion | 2557 | (save-excursion |
| @@ -2963,7 +2962,7 @@ error if there is no working link at the given position." | |||
| 2963 | (unless link-buf | 2962 | (unless link-buf |
| 2964 | (setq link-buf (current-buffer))) | 2963 | (setq link-buf (current-buffer))) |
| 2965 | ;; Do not catch errors from `rst-toc-get-link' because otherwise the error is | 2964 | ;; Do not catch errors from `rst-toc-get-link' because otherwise the error is |
| 2966 | ;; suppressed and invisible in interactve use. | 2965 | ;; suppressed and invisible in interactive use. |
| 2967 | (let ((mrkr (rst-toc-get-link link-buf link-pnt))) | 2966 | (let ((mrkr (rst-toc-get-link link-buf link-pnt))) |
| 2968 | (condition-case nil | 2967 | (condition-case nil |
| 2969 | (rst-toc-mode-return kill) | 2968 | (rst-toc-mode-return kill) |